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PREFACE 



The CICS/OS/VS Program Logic , LY33— 6029 has been split into two separate 
manuals. This manual, the CICS/OS/VS Program Logic: Description 
contains three major sections from the CICS/OS/VS Program Logic . These 
sections are "Introduction" , "Method of Operation" , and "Program 
Organization". The other half of the split CICS/OS/VS Program Logic . 
named the CICS/OS/VS Program Logic; Data Areas , contains the "Directory" 
and "Data Areas" sections. The original section on "Diagnostic Aids" has 
been dropped as the information previously in this section is now fully 
documented in the CICS/VS Problem Determination Guide , SC33-0089. 

| This publication provides logic information for programming support 
representatives and system programmers who maintain the IBM Customer 
Information Control System/Virtual Storage in an OS/VS environment. It 
describes CICS/OS/VS. When used with CICS/OS/VS source-program listings 
| and CICS/OS/VS Program Logic; Data Areas , this book enables you to 
| understand the internal operation of CICS/OS/VS. The two program logic 
| manuals do not replace the program listings; they supplement them and 
| make the information in them more accessible. 

The major parts of this book are: 

® " Introduction ," which contains general information about CICS/OS/VS 
services and overall operation 

• "Method of Operation ," which contains Hierarchy Input Process 
Output (HIPO) diagrams that describe CICS/OS/VS in terms of the 
functions it performs 

• "Program Organization," which describes CICS/OS/VS in terms of its 
parts (which, in CICS/OS/VS, are source modules) ; an interface 

| diagram is given for each of the main parts of CICS/OS/VS 

| • "Bibliography," which identifies other CICS/OS/VS publications and 
additional IBM publications of use to you when working with 
CICS/OS/VS 

Note: In this publication, the term VTAM refers exclusively to the 
program product ACF/VTAM, program number 5735-RC2. 
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SECTION 1; INTRODUCTION 



The IBM Customer Information Control System/Virtual Storage (CICS/VS) is 
a data base/data communication system that provides an interface between 
a System/370 operating system and user-written application programs • 
Applicable in most online environments , CICS/VS provides many of the 
facilities for standard applications: message switching , inquiry , data 
collection , order entry , and conversational and batched data entry. 

CICS/VS is available as two program products: CICS/DOS/VS, which 
executes under control of the Disk Operating System/Virtual Storage 
(DOS/VS) , and CICS/OS/VS, which executes under Operating System/Virtual 
Storage (0S/VS1 or 0S/VS2) . Both program products consist of modular 
components from which a user installation can select and tailor a 
CICS/VS system to meet particular application processing needs. This 
| publication, together with its companion publication CICS/OS/VS Program 
| Logic; Data Areas . deals with CICS/OS/VS 9 and all subsequent references 
to CICS/VS in this publication refer to CICS/OS/VS. 

The CICS/VS Introduction to Procfram Logic provides a technical 
overview of CICS/VS. Users are advised to read the CICS/VS Introduction 
to Program Logic before using this manual. 



| USING THE PROGRAM LOGIC: DESCRIPTION AND PROGRAM LOGIC: DATA 

| AREAS MANUALS 

I 

| The two Program Logic Manuals , namely the CICS/OS/VS Program Logic: 
I Description and the CICS/OS/VS Program Logic: Data Areas , provide the 
| user with information that will help him to use his source listings and 
| locate the causes of any problems that may occur. 

Once the user has a technical overview of CICS/VS (by reading the 
CICS/VS Introduction to Program Logic § for example) and is aware of the 
general functions being performed , he can identify the specific modules 
involved in any function in which he is interested via the method of 
operation (HIPO) charts in Section 2 of this manual. Many of the 
modules interact extensively with other CICS/VS modules, or make 
frequent use of external control blocks. This interaction is described 
in Section 3 by means of interface diagrams supported by notes. 

| Certain control blocks provide vital system information. The format 
| and content of these is detailed in Section 2 of the CICS/OS/VS Program 
| Logic: Data Areas . Section 1 of the same publication provides an 
| alphabetical list of all CICS/VS source modules , together with a brief 
j description of each module. 



PURPOSE AND FUNCTIONS 

CICS/VS is a data base/data communication interface between application 
programs and the host operating system. It provides most facilities 
needed in an online environment. In doing so, CICS/VS manages 
concurrent requests from: 

Section 1 : Introduction 3 
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• Terminals on a telecommunication network of mixed devices to 
activate transaction and execute a variety of user— written 
application programs 

• Application programs for accesses to data sets and terminals , 
obtaining or freeing of storage, or use of other resources 

The components of CICS/VS are: 

• System Management — the supervisory functions: Task, Storage, 
Program, and Time Management, and the data management functions: 
Terminal, File, Transient Data, Temporary Storage, and Journal 
Management 

• System Reliability — abnormal condition handling with possible 
recovery action including user-written error exits and error 
programs 

• System Monitoring — the testing and debugging aids: Trace 
Management and Dump Management 

• Application Services — the techniques for reducing application 
programming effort, including Basic Mapping Support, 2260 
compatibility, and built— in functions 

• System Services — the ready— to— use application programs for sign— 
on/sign-off procedures, master, supervisor, and operator terminal 
functions, displaying statistics, batched transaction processing, 
dynamic opening and closing of data sets, time-of— day control, 
terminal test, initiating snap dumps, and message switching 

• System Support — the facilities needed to initiate and terminate 
CICS/VS sessions, to generate a CICS/VS system and to define the 
CICS/VS environment of the user B s selection; the High— Level 
Language Preprocessor? and the CICS/VS Dump Utility programs 

These components and their parts are summarized in the CICS/VS 
Introduction to Program Logic * 



ENVIRONMENTAL CHARACTERISTICS 

CICS/VS operates as an OS/VS task within an OS/VS region in either a 
dedicated or multiprogramming environment. The selection of the 
environment is the user's responsibility, as is the selection of system 
options beyond those required for the operation of CICS/VS. 



SYSTEM CONFIGURATION 

The system configuration required for CICS/VS is largely determined by 
the scope of the environment to be supported and the nature of the 
user's applications. A list of the terminals and control units 
supported by CICS/VS is given in the CICS/VS General Information . 
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CICS/VS INTERFACES 

The principal system interfaces of CICS/VS are as follows: 

• Interfaces between CICS/VS and the host operating system (OS/VS1 or 
0S/VS2) : 

— the CICS/VS data management functions , using CICS/VS system 
control tables , controlling the use of access methods , which 
are listed below 

— CICS/VS System Recovery program, for SPIE and STAE (0S/VS1 and 
OS/VS2 Release 1) , and SPIE and ESTAE (0S/VS2 Release 2 
onwards) 

— CICS/VS Task Management and Time Management, for the interval 
timer, to regain control after a WAIT releases control to OS/VS 

— CICS/VS System Initialization program, when obtaining or 
freeing storage, attaching tasks, opening files, or initially 
giving control to CICS/VS 

• Interfaces between user— written application programs and CICS/VS: 

— Command— level interface using EXEC commands and the EXEC 
interface Block (EIB) 

— Macro-level interface using CICS/VS macro instructions. Task 
Control Area (TCA) , Common System Area (CSA) , and Terminal 
Control Table terminal entry. 

• Interfaces between CICS/VS modules: system areas, work areas, 
system control and service tables , and allocation maps 

A detailed listing of the required and optional components of 0S/VS1 
and 0S/VS2 is given in the CICS/VS General Information , 

The major interfaces of CICS/VS are the Common System Area (CSA) and 
the Task Control Area (TCA) . The CSA contains the system constants, 
module addresses, control table addresses, task abnormal termination 
interface, time management storage, and work area for accumulating 
system statistics. On a CICS/VS system, the open list address pointers 
in the Common System Area point indirectly to the active interfaces of 
CICS/VS and the access methods of the operating system. The normal 
diagnostic and serviceability aids as provided by the operating system 
are utilized where applicable. 

The TCA is the major vehicle for carrying parameter information from 
a task requesting services to the CICS/VS management module or service 
program that provides those services. It consists of a system control 
section, an application program communication section, and, optionally, 
a user Transaction Work Area (TWA) . 



ACCESS METHODS 

Standard access methods are supported by CICS/VS. These are: 
• Basic Telecommunications Access Method (BTAM) 

Section 1: Introduction 
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• Direct Access Method (DAM) 

© Sequential Access Method (SAM) 

• Indexed Sequential Access Method (ISAM) 

• Telecommunications Access Method (TCAM) 

• Virtual Storage Access Method (VSAM) 

© Virtual Telecommunications Access Method (VTAM) 

Either BTAM or VTAM, and DAM and SAM are essential to the running 
CICS/VS. Depending on the data base configuration, ISAM, VSAM or both 
may be required. Data sets created using any of these access methods 
can be operated on by application programs executing under the control 
of CICS/VS and by offline batch— processing programs. 

In addition, CICS/VS users can use the Data Language/I (DL/I) 
facility of the program product Information Management System/Virtual 
Storage, (IMS/VS) (program number 5740— XX2) ) . DL/I is a general-purpose 
data management facility designed to satisfy diverse data base 
processing requirements in either a batch or an online environment. 
Through the CICS/VS— DL/I Interface CICS/VS application programs can 
access DL/I data bases using the standard DL/I CALL functions. 



PHYSICAL CHARACTERISTICS 

CICS/VS is designed to run in a virtual storage environment. A system 
such as 0S/VS1 or 0S/VS2 provides CICS/VS with more address space than 
the real storage capacity of the computer on which it is run. This 
increase is accomplished by means of a paging technique, which simulates 
real storage on direct access storage. Real storage is organized into 
page frames which correspond to pages organized in a page data set on 
direct access storage. A description of paging is provided in the 
CICS/VS Introduction to Program Logic . 



CICS/VS ADDRESS SPACE 

The CICS/VS main storage address space is structured as follows: 

• CICS/VS nucleus, located in the high end of the CICS/VS address 
space, and composed of: CICS/VS modules, CICS/VS tables, and 
program storage for resident (fixed and non— fixed) application 
programs 

• CICS/VS dynamic storage used for CICS/VS control areas, 
input/output areas, work areas, and program storage for nonresident 
loaded application programs 

• OS/VS storage required for: OS/VS access methods and OS/VS work 
areas 

In the CICS/VS nucleus, the high— usage CICS/VS modules (Task, Time, 
Terminal, and Storage Management) need not be fixed in real storage 
| because activity causes them to be effectively fixed. Under 0S/VS1, or 
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under OS/VS2, the CICS/VS user has the option to tailor the placement of 
the nucleus modules in real storage through the use of the Nucleus Load 
Table (NLT) • This table allows the user to structure the smallest 
working set for the CICS/VS nucleus and also, where necessary, specify 
modules as non— pageable • If a NLT is not specified at system 
initialization, a default load order is used to build the nucleus and 
modules will be paged in accordance with frequency of use. 

The storage organization for CICS/VS is shown in Figure 1—1. Several 
aids for determining initial address space size are provided in the 
CICS/VS System Programmer ' s Reference Manual . 
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SUBPOOL ALLOCATION OF DYNAMIC STORAGE 

The CICS/VS Storage Control program manages the CICS/VS dynamic storage 
space. It allocates storage , dependent on the type of request , from 
different subpools. Each subpool obtains and returns storage in page 
multiples from the dynamic storage area. 

The subpools used by CICS/VS are: 

The program subpool containing dynamically loaded application 
programs 

The control subpool containing resource management storage 

The shared subpool containing temporary storage , BMS maps, DL/I 
areas, tables , etc. 

The teleprocessing subpool containing line and terminal 
input/output areas 

The mixed and isolated subpools containing user areas and file 
storage 

The RPL subpool containing parameter lists for VTAM 

The effect of the use of subpools is to minimize the total number of 
page frames that are used for CICS/VS dynamic storage , while ensuring 
adequate performance 

If insufficient/ real address space is available for the dynamic 
storage area, CICS/VS is usually able to operate, but with reduced 
performance, due to excessive virtual storage paging. An optimum ratio 
of virtual to real should be determined for each user installation, 
recognizing the processing requirements of that installation. 



DATA SETS 



CICS/VS DATA SETS 

The access methods for use with CICS/VS data sets and the record format 
of these data sets are predefined within CICS/VS. Any required 
formatting of the data sets is performed by CICS/VS during 
initialization or by the CICS/VS maintenance functions. The CICS/VS 
data sets are: 

• CICS/VS Program Library 

• Restart data set 

• Dump data set 

• Intrapartition data set 

• Temporary Storage data set 

• System Log data set 
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• Automatic Statistics data set 

• Auxiliary Trace data set 

• Trace data set 

CICS/VS data sets other than the Dump data set., the Trace data set-- 
the System Log data set, and other data sets (for example, the Automatic 
Statistics data set) which may contain extrapartition transient data 
must be located on direct access storage • The Dump data set. Trace data 
set, System Log data set, and extrapartition transient data sets may be 
on either direct access storage or magnetic tape. Whether all of the 
data sets core required, and the amount of space needed for each, depends 
on the CICS/VS options selected at CICS/VS generation and the extent to 
which they are used. Information about these data sets is given in the 
CICS/VS System Programmer ■ s Guide (OS/VS) and in the CICS/VS 
Introduction to Program Logic . 



USER DATA SETS 

User data sets comprise those data sets that form the CICS/VS user data 
base. They may also include Extrapartition Transient Data data sets, 
Terminal Control sequential data sets. Data Language/I data sets, and 
journal data sets. Information about these data sets is given in the 
CICS/VS System Programmer's Guide (OS/VS) and in the CICS/VS 
Introduction to Program Logic . 



OPERATIONAL CONSIDERATIONS 



CICS/VS is generated, initialized, and operated as outlined in the 
following paragraphs. 



SYSTEM GENERATION 

The CICS/VS generation process provides the user with the means of 
setting up the specific CICS/VS management and service programs that 
will satisfy his requirements. CICS/VS generation procedures are given 
in the CICS/VS System Programmer's Guide (OS/VS) and the necessary macro 
instructions are described in detail in the CICS/VS System Programmer's 
Reference Manual. 
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PREPARATION OF CICS/VS TABLES 

CICS/VS is dependent on the user— created CICS/VS tables, which describe 
the user's data— base/data— communication environment and the treatment 
given to elements of that environment. Information regarding the user's 
terminals, data sets (permanent and temporary) , programs, and 
transactions is contained in these tables. The CICS/VS System 
Programmer's Reference Manual contains full details of the macro 
instructions needed to generate the tables. The CICS/VS tables are as 
follows : 

Program Control Table (PCT) 

Processing Program Table (PPT) 

Terminal Control Table (TCT) 

System Recovery Table (SRT) 

File Control Table (FCT) 

Destination Control Table PCT) 

Journal Control Table (JCT) 

The system service tables include: 

Sign-On Table (SNT) 

Terminal List Tables (TLTs) 

Program List Tables (PLTs) 

Transaction List Tables (XLTs) 

| The contents of these tables are listed in Section 2 of the 
| CICS/OS/VS Program Logic; Data Areas . Their use is summarized in the 
CICS/VS General Information . 



CICS/VS INITIALIZATION 

CICS/VS may be dynamically configured under user control during CICS/VS 
initialization. The user selects (by using specified suffixes) the 
CICS/VS modules and tables desired for the current session. The System 
Initialization program is responsible for preparing CICS/VS for 
communication and inquiry by user— written application programs. It 
builds the CICS/VS nucleus, initializes data sets, opens system and user 
data sets, constructs and initializes tables, and builds the CICS/VS 
dynamic storage pool. This program is invoked as an OS/VS job by user- 
provided job control statements. (Details of the System Initialization 
program are given in section 3 of this manual) . 
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CICS/VS PROCESSING 

To achieve its objective of providing fast response to terminal users f 
CICS/VS uses its own multitasking within one region of main storage* 
Such multitasking within one region is analogous to multiprogramming 
within the total OS/VS environment. Generally , tasks are initiated as 
result of transactions entered at terminals. Whenever one task is 
forced to wait for completion of an I/O operation , availability of a 
resource , or some other reason , processing of another task within 
CICS/VS is initiated or continued. The interrelationships of, and 
services performed by, various CICS/VS System Management functions in 
the processing of a task are shown in Figure 1—2. 



ASYNCHRONOUS TRANSACTION PROCESSING 

The optional Asynchronous Transaction Processing (ATP) facility allows 
transactions and the data associated with those transactions to be 
batched for asynchronous (concurrent) processing. This means that the 
transactions within a batch are not processed until the entire batch has 
been entered into CICS/VS. Then, while the batched transactions are 
being processed, the terminal operator may proceed to enter other 
transactions. When processing of the batched transactions is completed, 
the terminal operator may request that the resultant output be sent to 
the terminal that originated the batch or to some alternate terminal. 
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Figure 1—2. CICS/VS Transaction Flow 
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MESSAGE SWITCHING 



The Message Switching program provides the user with a general— pur pose 
message switching capability during execution of CICS/VS. Messages can 
be routed to one or more terminals by specifying the transaction code 
CMSGp the message text, and optional parameters that identify receiving 
terminals. A message can be delivered immediately, or as soon as all 
required resources are available, or at a designated future time. 



CONTROL INFORMATION 

System statistics are maintained during execution by the various CICS/VS 
management programs. These statistics can be written to a destination 
during the day in part or in their entirety on the request of any 
terminal operator whose security code allows the request of such 
information. They are gathered automatically when the system is 
normally terminated. 

System statistics are transmitted to a user— specif ied destination 
(sequential output device) as variable— length, unblocked records 
(maximum block size is 136) . The name of the destination is the control 
system system log (CSSL) . 

In addition, using the automatic statistics function, the user can 
have system statistics recorded on a data set on a regular (user- 
specified) interval and have them printed offline in an interval or 
summary format . 

Number of tasks in system for any period 

Number of tasks initiated 

Number of storage acquisitions 

Number of times storage cushion is released 

Number of times storage request is queued 

Number of times storage queue is established 

Maximum number of requests in storage queue 

Number of times a program is used 

Number of READ requests per data set 

Number of WRITE update requests per data set 

Number of WRITE add requests per data set 

Number of deletes from VSAM data set 

VSAM shared resources statistics 

Number of WRITE requests (per data set) to extrapartition data set 

Number of WRITE requests (per data set) to intrapartition data set 
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o Number of input messages per terminal 

© Number of output messages per terminal 

• Number of transmission errors per terminal 
o Number of transactions 

• Number of transaction errors 

© Number of polls issued per line 

• Maximum number of Temporary Storage Control Records used (for 
auxiliary storage) 

© Maximum number of PUT requests to temporary storage , main storage , 
and auxiliary storage 

© Maximum number of Temporary Storage unit tables used 

© Maximum number of Temporary Storage group identifications (TSGIDs) 
used 

© Temporary Storage main storage requirements 

© Dynamic Transaction Backout statistics 

® Transaction Restart statistics 

© Number of records written per journal identification 

These statistics are useful in determining proper data set * 
allocation , identifying infrequently used programs that should not 
remain permanently resident, determining the activity from each 
terminal, and, in general, ensuring that the resources of the system are 
used effectively. 

Although journaling for the File Control Program is performed 
automatically, the creation of an audit trail is largely the user B s 
responsibility. Through the use of CICS/VS Journal Management 
facilities, the user can create and journal transaction data to 
sequential data sets. These data sets are called journal data sets. 
The user describes each journal data set when defining his system. 
During CICS/VS execution, an application program issues CICS/VS macro 
instructions that cause the Journal Control program to store transaction 
data in that data set when the transaction is completed. The same data 
set can also be used for other control and summary data. 

If DL/I data bases are used, the DL/I logging function can be used to 
produce on the CICS/VS System Log data set (a unique journal data set) , 
or on the DL/I System Log, which is not under the control of CICS/VS, an 
audit trail of changes made to DL/I data bases. The CICS/VS— DL/I 
Interface routine logs a scheduling or termination record to this data 
set when a transaction that alters a DL/I data base is scheduled or 

| terminated. DL/I provides utilities that produce reports from the 

I CICS/VS System Log. 
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SECTION 2; METHOD OF OPERATION 



CICS/VS is coded largely according "to functional organization; specific 
modules perform specific functions. In this section, CICS/VS is divided 
into major functional areas. Within each area, information is divided 
into functions. 

The information in this section is presented in the form of Hierarchy 
Input process Output (HIPO) diagrams. Figure 2—1 shows the structure of 
a HIPO diagram. The HIPO diagrams contain three blocks of information. 
The left— hand block contains the input to the central block, which 
contains the processing steps involved in the function or subf unction 
represented by the diagram. The right-hand block contains the output 
(changes made to registers, control blocks etc.) from the processing 
steps. The processing steps are numbered and the numbers correspond to 
notes, if any, on the lower portion of the page. If notes are given, 
they include references to modules, routines, and labels involved. 

The HIPO diagrams use a number of special symbols to convey 
information, and arrows to represent the flow through the diagrams. The 
special symbols are: 

TCB TCB 



• TCAPTR . Data Block 1 TCAPTR 



TPSLL __ TCDFLG 

[■-■- --l.---] Flag Block I • ■ 1 • • 



(CJl 



Terminal 

Disk k. A 

Printout 




y / 

< " ' v J 0PL118 

Arrows are used for either of two reasons: 

To connect blocks and shapes in the input and output areas to 
processing steps to which they are related 

To point from one processing step to a processing step other than 
that which follows it sequentially. The processing step pointed to 
can be on the same page, on a different page, or on a different 
diagram* 
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The six kinds of arrows are: 

> Data reference 



.> 



Data movement 



//////< > 



-i\ 



[z2 ^ / 



G2El> 



Data modification 



Control flow 



On— page connector 



5Z> 



EHV> 



y 



Off— page connector 



(■> 



;> 



CPL119 



Figure 2—2 is a visual table of contents for the HIPO diagrams. The 
diagrams are numbered in a sequence that follows the pattern C.F.f where 
C is a major CICS/VS component, F is a functional service area, and f is 
a specific function. For example, diagram 1.1.5 is for component 1, 
System Management; functional area 1.1, Task Management; and function 
1.1.5, Change Priority of a Task. Some functions are further subdivided 
as represented by the pattern C.F.f.s where s is a subf unction. The 
pages within each diagram are numbered sequentially beginning with 1. 

More detailed visual tables of contents are provided at the C.F level 

for all functional service areas consisting of more than three diagrams. 

For example, diagram 1.1 is a visual table of contents for the Task 
Management functional service area. 
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If the transaction ID cannot be found in 
the PCT 'CSAC is substituted. 



If the ATTACH was conditional and 
the task is a member of a task class, 
then, if the number already attached in 
that class is greater than or equal to 
the limit the ATTACH is terminated. 
A 'negative response' code is set in 
TCAKCRC. 



If a terminal is to be associated with 
the attached task (X'OT in first byte 
of TCAKCFA of caller) security and 
terminal characteristics checks are made. 
If any check fails 'CSAC is substituted 
as transaction ID. 
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SThe DCA is acquired by GETMAIN or 
from the DCA quick-cell chain. The 
TCA is acquired by GETMAIN or, 
if the task is primed, is imbedded in a 
PRA which is in turn acquired either by 
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1.5.11.1.14 


06 If task was associated with transient data reset "task 
initiated" indicator in DCT entry 

| 07 | Remove task from DCA chain and update statistics in 
PCT entry 


CO 


KCTD 






1 08 1 Trace detach 






CO 


DFHTR 




SYSTEM I D=208 
ID1=07 









NOTES 


ROUTINE 


LABEL 


REFERENCE 


I 05 J Clear task pointer for terminal. Post 
ATP, if applicable 

Advise TCP if a terminal dependent 
task terminating 




KCTTCNLB 
KCTITF 





Page 2 of 3 



OUTPUT 



CSA 




| CSAATP 




TCTTE 




| TCTTECA 




TDT 




| TDTIBM | 


PCT 




| PCTASAA 









Diagram- 1.1.2-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 











Diagram- 1.1.2-02 
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INPUT 








CSA 




CSACDTA 








TCA 




TCAHTAA 
TCAPRAA 
TCASCCA 




SRA 




SRANXHTA 




DCA 




DCATSKC | 
PCT 









PCTNXPRA 




CSA 




CSA Account- 
ing Fields 












CSANXDCA | 




p 







PROCESS 



OUTPUT 



09 Free HTA, TCA and PR A 



<n> 



10 Update task statistics in CSA 



11 Free DCA snd exit to dispatcher 

CO 






KCDC 



Dispatcher 





CSA 






CSACDTA 






SRA 






SRANXHTA 






HTA 






HTACHN 






PRA 






PRACHN 






CSA 






CSA Accounting 
Fields 






PCT 

PCTNXPRA 

CSA 






CSAKCNAC 
CSANXDCA 






DCA 






DCACHN 











Diagram- 1.1.2-03 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


H 


If the task has an HTA (HPO only) 








return the HTA to the quick call chain 




KCPNOTRM 






SRANXHTA. 










If the task was not a primed storage 










task, call DFHSCP FREEMAIN TCA 










to free the TCA and any other storage 










owned by the task 










If the task was a primed storage task 




KCTT70 






FREEMAIN TCA is called only if there 










are outstanding allocations outside the 










primed area (TCASCCA/TCA address). 










In this case, if FREEMAIN is called, it 










does not free the TCA. The PRA is 










placed on the free chain PCTNXPRA. 











The DCA is returned to the quick-cell 




KCTT90 




chain CSANXDCA. CSAKCNAC is 










'posted'. This word is used as a CICS 






4.2.4.1 




system event by STP when waiting for 










system to quiesce. 










KCPMAXTR is increased by 1. This is 










an internal count of the number of 










tasks which can be activated without 










exceeding the 'active task' limit 










CSAMAXT. 









REFERENCE 



Diagram- 1.1.2-03 
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INPUT 



PROCESS 



OUTPUT 





TCA 
TCATCQA | 




QCA 




QCAWKSP 

QCAHMASK 

QCAHASHT 




QEA 




QEACHN 

QEALNTH 

QEANAME 




TCA 




TCATCQA | 
QCA 




QCANXQEA | 
QEA 




QEACHN | 








QEACHN | 








QEAOTP 
QEAUCT 








| QEAWTC | 




DCA 




DCATCQC 









| 01 | Determine hash value and search hash chain for argument 
queue name 



di 



Argument name not found on hash chain. Get storage 
for new QEA 



03 



GETMAINQEA 



Place new QEA on hash chain. Initialize it and exit to 
re-dispatch caller 

Argument name found on hash chain. If already 
owned by caller add one to use count and exit to 
re-dispatch caller 



Argument name found on hash chain and owned by 
another task 



'///////& 



E> 





QCA 
QCAWKSP 

QEA 
QEAWTC 






QCA 






QCAHASHT 
QCANXQEA 






QEA 






All fields of 
new QEA 












QEACHN 






QEAUCT 

TCA 

TCATCTR 


I 










TCATCDC 
QEA 


I 




QEAWTC 
DCA 






| DCATCQC 


] 



Enqueue upon a Resource 



Diagram- 1.1.3-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


H 


The argument queue name is hashed 
to obtain an index to one of 64 QEA 
chain heads in the QCA. Each hash 
chain is ordered low to high by full 
queue name within queue name length. 




KCENQN 




S 


If the queue name is such that the QEA 




KCENQ20 




will be larger than 64 bytes a DFHSC 










GETMAIN QEA is issued. Otherwise 










a standard 64 byte QEA is used, 










obtained from the quick-cell chain 










QCANXQEA, or via GETMAIN if the 










chain is empty. 








GH. 


The new QEA is inserted in the appro- 




KCENQ40 




priate hash chain at the correct point to 










preserve ordering. It is also placed at the 










head of the chain of QEAs held by the 










task (TCAKCQC). The calling task is 










then redispatched 


KCTDDTN 




1.1.9 





A 'duplicate request' code is returned in 
TCATCTR to indicate that the caller 
was already enqueued on the given queue 




KCENQ50 






The caller is redispatched 


KCTDDTN 




1.1.9 



The caller's DCA is placed on the QEA 
wait chain. This is a loop through 
QEAWTC, the DCATCQC fields of the 
waiting DCAs and back to the QEA. 
The DCAs are in the order in which the 
ENQ requests were made. The caller 
is then suspended until the QEA is 
released by the present owner and other 
waiting tasks 



REFERENCE 



Enqueue upon a Resource 



Diagram- 1.1.3-01 
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LICENSED MATERIAL — PROPERTY OF IBM 



INPUT 



PROCESS 









TCATCQA 
TCAKCQC 








QEANOQ 
QEALNTH 
QEANAME 








QEAUCT | 








QCANDSP | 



joi Search chain of QEAs held by calling task for argument 
queue name 


CO 


KCQARG 






|02 1 Argument found on owned QEA chain. Reduce use 
count by one and if result is not zero go to redispatch 
caller 

1 03 1 Argument found on owned QEA chain and use count 
now zero. Relinquish ownership and exit to dispatcher. 


CO 


KCQRLS 




1.1.4.2 


1 I Argument not on owned QEA chain. 
1 Q 4 1 Redispatch caller. 







DUTPUT 


\ 




'///////ty 


| QCAFLAGS | 




| QEAUCT | 





Dequeue from a Resource 



Diagram- 1.1.4-01 



01 The 'owned QEA' chain head is 

1 TCAKCQC. The chain, which is not 

ordered ends with a zero chain field. 



The subroutine KCQRLS removes the 
QEA from the 'owned QEA' chain 
and resumes any waiting task. The 
subroutine KCQRLS sets the flag 
QCANDSP if any task is waiting. The 
exit to the dispatcher is to redispatch 
the caller, or if QCANDSP is set, to 
perform a full dispatch. 



Dequeue from a Resource 



Diagram - 1.1.4-01 
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PROCESS 



QEA 


| QEANOQ | 


QCA 


I QCANDSP | 





I 01 I Release the task from each item on the "owned QEA" 

chain (head in TCAKCQC) then redispatch caller or do 

full dispatch 


<s> 


KCQRLS 




1.1.4.2 









Dequeue All Resources 



Diagram- 1.1.4.1-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


I 01 1 If any task was waiting for any of the 

queues released from the control of the 

calling task QCANDSP is set on, causing 
a full dispatch cycle rather than a simple 
redispatch of the caller. 


KCDQALN 


KCDQL20 


1.1.4.2 



NOTES 


ROUTINE 


LABEL 


REFERENCE 











Dequeue All Resources 



Diagram- 1.1.4.1-01 
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INPUT 





TCA 




TCAKCQC | 
QEA 




QEANOQ 
QEAWTC 








QEAHASH 

QEACHN 

QEALNTH 




QCA 




QCAHASHT 
QCANXQEA 




TCA 




| TCAKCQC | 







PROCESS 



I 01 1 Remove QEA from "owned QEA" chain of calling task. 

If any task is waiting for this queue (QEAWTC +ve) go 

to step 4. 



02 Remove QEA from hash chain and free it 



oxx 



03 J Return to caller 

Select first task on wait chain. Place QEA on "owned 
QEA " chain of that task. Reinitialize QEA and resume 
. waiter. 



CX>[ 



05 Return to caller 








TCA 
TCAKCQC 

QEA 
QEANOQ 






QEACHN 
QCA 






QCAHASHT 
QCANXQEA 












QCANDSP 
QEA 






QEAWTC 
QEAOTP 
QEANOQ 
QEAUCT 






DCA 






DCATCQC 
TCA 






TCAKCQC 
TCARSTSK 











Subroutine KCQRLS 



Diagram- 1.1.4.2-01 



H 







The wait chain is a chain of DCA's in 
the form of a loop through QEAWTC 
and DCATCQC. The chain to the QEA 
is distinguished by a high order bit in 
the chain field. 



If the QEA was for a short name the 
QEA is returned to the quick call chain 
headed by QCANXQEA. Otherwise it 
is freed by issuing a F REEMAI N. 



The flag QCANDSP is set to indicate to 
the caller that a full dispatch is required 
since a task which was suspended has 
now become active again. 



Subroutine KCQRLS 



Diagram- 1.1.4.2-01 
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Processing 



PAGE 1 Of 1 



CSA 



TIPE=CHAP 



CSAACTF 
LOW 

Priority 
ask 
address 

csaactba" 

High 

SB*" 1 
address 






TCATCDP 

Dispatch 

priority 



fiegu 
Del 



DCATCDP 
Dispatch 
priority 



Onchain task froa 
active task 

Sriority 
ispatcning chain 




7777777777// 



/i — 1\ 
\ r — if 



Chain task to 
active task 
priority 
dispatching chain 



V 

To Task 

Dispatcher 

1.1.9 



DCA 






DCAKCPA 

Next 

higher 

priority 

address 




DCARCBA 
Rext lower 
priority 
address 









Change Priority of a lask 



Diagram - 1. 1.5-01 



[02] 



Change Priority of a lask 



Diagrai - 1.1.5-01 
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LICENSED MATERIAL 
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Input 



Processing 



TYPE=WAIT 



ft. 



1CATCDC 
Dispatch 
control 
indicator 



ICATCEA 

Event 

control 

address 



1CAPCAAA 
facility 
control 
address 



X. 



DPHKCP: 

[oil Determine the origin of 
the request and exit 
accordingly 



E~l 



Synchronize a Task 



Diagram - 1 . 1 .fc-C i 



A non-dispatchable WAIT request 
is assumed to be a Terminal 
Control WAIT, further tests are 
made to distinguish an ATP task 
from one associated directly 
with a Terminal. 

For ATP tasjts, ATP's ECB is 
posted, and control is 
transferred to the Task 
Dispatcher. 

For terminal -associated tasks, 
control is transferred to 
suspend the task. 

For tasks that require terminal 
READ timeout, the timeout value 
is determined and placed in the 
DCA (DCATBTO). 

For asynchronous paging tasks 

(anticipatory paging) , a pageout 

will be started for the task's 

data areas, if running 
under the MVS or S1.6 
'variants of the operating 
system. 



utine Label 



Routine Label j "<=f 



Synchronize a Task 

Section 2: Method of Operation 



Diagram - 1. I.fc-Cl 
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Input 



Processing 



Output 



PAGE 1 0* 1 



c 


:sa 
cs a act pa 

low 

ifi? Elty 

address 

CSAACTiI~ 

High 

priority 

task 

address 










I 


CSASOSFA 

Low 

priority 

task 

address 

CSASOSpI 

High 

priority 

task 

address 




)CA 

DCATETO 

lerainai 

BEAD 

timeout 

value 









a_x 



01 Test for DFH0305 condition 



-V 



\m 



7777777777// 







Chain task to 
suspend task chain 



OH] Exit to dispatcher 



V 
To Task 
Dispatcher 
1.1.9 



DCA 

Fdcakcpa 
Next 
higher 
priority 
address 



DCAKCBA 
Next lower 
priority 
address 



Suspend a Task 



Diagram - 1. 1.7-0' 



Notes 



{Oil If the reguest is to suspend a 
CICS/VS system task (e.g.. 
Terminal Control) CICS is 
abnormally terminated. 



G3 



If the task requests timeout 
the task is inserted into the 
suspend chain in timeout value 
descending sequence . The tasks 
in the suspend chain are not in 
priority sequence. 



\E 



Routine label 



Suspend a Task 



Diagram - 1.1.7-01 
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PAGE 1 OP 



ae^uestor 
iCfl 

ricARSTSK~~ ] 
| Aa dress of j 
I suspended | 

LEL j 



IYPiS= RESUME 



•L^ 



CSASUSEA 
Low 

priority 
tasK 
aa dress 

csasosba" 

riigh 

priority 

task 

aa dress 



CS A ACT FA 

Lou 

priority 

tasK 

address 

CSAACTBA 
Hi an 

priority 
tasn 
address 



[iCADCAA 1 
| Address of | 
| tasks DC A j 







Unchain task from 
suspended task 
chain 



01] 



Chain task to 
active task 
priority dispatch 
chain 




DC A 



DCAKCFA 

Vext 

higher 

Driority 

address 



DCAKCBA 
Next lower 
priority 
address 



Resume a Tas* 



Motes 



I01J The task's registers are saved 
in the JSA ratner than in ICA. 
No switcn occurs during 
processing. 



QZJ 



Resume a lasK 



Diagram - 1 . *.fl-C ' 
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INPUT 



Task Dispatcher Overview 



Page 1 of 1 



PROCESS 



OUTPUT 



01 Update clock values and perform any time-dependent 



functions which have become due 



Select a task for dispatching 



03 | If a task is found dispatch it 



04 If no task is found return to OS and wait for one or 

more events identified during step 2 



Diagram - 1.1.9-01 



When control is regained after the 
WAIT the whole dispatch cycle is 
repeated after updating the 'packed' 
time-of-day CSATODP as well as binary 
values 



Task Dispatcher Overview 



Diagram- 1.1.9-01 
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INPUT 



PROCESS 



OUTPUT 



CSA 




CSABASCL 
CSABASTU 
CSAICIAJ 








CSATODTU 
CSAICITP 
CSAICEBA 
CSASBTI 




ICE 




ICESTATI 
ICEXTOD 




CSA 




CSATTECB | 




DCA 




DCATRTO | 




CSA 




CSATODTU 

CSASBTI 

CSATSDTI 

CSATCNDT 

CSATTECB 

CSAMAXT 




HTA 




HTASTGCH 
HTATCAA 




SRA 




SRADSPCH 
SRASTGCH 







I 01 1 Reset runaway task control and update binary clock 
value 


C^ 


KCTODRTN 






|02 1 Treat any expired ICE events 




<n> 


DFHIC 




Expiration Analysis 


1 03 Purge any timed-out 


suspended tasks 




<n> 


KCPURGE 




Abend Task 


] 04 1 Determine whether TCP should be dispatched 

05 Determine whether any task which was in SRB mode 
is now ready for redispatch in TCB mode 

06 Enter task scan loop 



'///////£ > 



'/////////} 



y//////J ) 





CSA 






CSAICRIN 

CSAICITP 

CSAICIAJ 

CSATODTU 

CSATODB 






TCA 






TCAPCAC 
CSA 






CSATTECB 
CSATCNDT 






SRA 






SRADSPCH 
SRASTGCH 









Task Dispatcher Time Analysis 



Diagram- 1.1.9.1-01 



J 01 J The time-of-day sub-routine recognizes 
the passing of 24.00 hours and sets 
CSAICIATP to cause DFHIC to be 
called in step 2. 

| 02 1 The internal time interval KCTOTREM 
is set in this section to the time 
remaining to the first unexpired ICE, 
if any, otherwise to the system time 
interval (ICV value) 

03 |f any task has been suspended 

waiting for a terminal read to be 
satisfied for longer than the 'time-out' 
interval specified in the PCT, it is 
purged with abend code 'AKCT. The 
subroutine KCPURGE resumes the tasks 
and sets a 'timed-out' dispatch code 
TCADCRTO in the DCA. 



If the time in CSATCNDT has expired, 
the timer ECB CSATTECB is set to 
X'40' to cause TCP task to be dispatc- 
hed. If not expired, the remaining 
time is saved in KCTCREM. 

If KCP is aware of any possible reason 
for activating the TCP task (KCTCPEVI 
set by task termination, WAIT non- 
dispatchable issued by some task etc.} 
the remaining time will be set to the 
scan delay interval CSASDTI and 
CSATCNDT set to correspond to that 
interval if this reduces the current 
value of CSATCNDT. 

If the SRA dispatch queues are not empty, 
indicating that an SRB mode task is ready 
for redispatch, the first HTA is taken from 
the dispatch chain SRADSPCH (if this is 
empty the stage chain SRASTGCH is 
moved to SRADSPCH) and the 
associated task dispatch directly. 
SRASTGCH is fed by the 'LEAVE SRB 
MODE' service in KCSP, which also 
posts SRAECB. 



Task Dispatcher Time Analysis 



Diagram- 1.1.9.1-01 
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LICENSED MATERIAL 



PROPERTY OF IBM 



INPUT 



PROCESS 



OUTPUT 





CSA 




CSAMAXT 
CSAACTBA 




DCA 
DCATCDC | 




DCATCDC 
DCAKCBA 
DCATCAA 








DCAEOLF 
DCATSKC 
DCAPGLST 




CSA 




CSAPCAA 
CSA task class 
accounting 
fields 




CSA 




CSAPCAA | 




TCTTE 




| TCTLESLI | 




DCA 




DCATCEA 
DCAAPURG 








| DCATCEA | 







01 Perform initialization for scan of active DCA chain 



For each DCA on the chain exit to one of the following 
sections depending on the dispatch code DCATCDC in 
the DCA. Each section, apart from 'end-of-chain' 
either causes the task under consideration to be dispat- 
ched, or returns to this section to examine the next 
DCA on the chain. 

Dispatch codes TCADCIND, TCARCSC, TCASRBM 
andTCARCTS. Ignore this DCA. 







Dispatch codes TCADCIDT, TCADCABD, TCADCPRG, 
TCATDPTO. Dispatch task. 

Dispatch codes TCANDCG, TCAMAXT, TCAMXTC 
TCAPCWT. Check whether reason for task being non- 
dispatchable has gone away and if so redispatch it 

Dispatch codes TCAPGWT, TCADCIEL, TCADCISE. 
If an OS event for which task is waiting has 
completed redispatch. 



07 1 Dispatch code TCADCISY. If internal CI CS event has 
been 'posted' redispatch task, otherwise ignore this 
DCA. 

| 08 1 Dispatch code TCADCEND End of DCA chain reached. 
Go to 'partition exit' section. 






CSA 






CSAPCAA 
CSA task class 
accounting 
fields 
CSACDTA 






DCA 






DCATCEA 
DCATCDC 






CSA 






CSAPCAA 












WAIT LIST 
OF OS 
EVENTS 











Task Dispatcher Active DCA Scan 



Diagram- 1.1.9.2-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





The DCA scan is set to begin at either 




KCTD40 




the first (TCP task) or the second DCA 










on the chain. The TCP task is skipped 






1.1.9.1 




if the TCP dispatch time has not expired, 










avoiding examining all TCP ECBs on 










every dispatch scan. The internal switch 










KCTDTCP is set to show which of these 










courses was taken. 










The address and length of storage in 






1.1.9.4 




which to build an ECB list are loaded 










from the dispatcher TCA (placed there 










by SI Fl). The I/O event counter is set 






1.1.9.4 




to zero (used to determine the number 








of events to be waited for in O/S wait). 










The active task counter is set to CSAMAXT 











The scan may also end if the 'active 








task' counter falls to zero. This count 










is reduced by one for each 'non-system' 










task (i.e. not TCP or journalling) which 










is waiting for O/S events (see step 6). 










Control passes to partition exits as in 










step 8. 











Tasks with codes other than TCACIDT 








are redispatched by calling PC ABEND 










on their behalf - this is an immediate 










ABEND as opposed to the deferred 










ABEND, recognized by the redispatch 










section, which waits until any CICS 










services have completed. ' 









NOTES 


ROUTINE 


LABEL 


REFERENCE 





• TCANDCG indicates that the task is 




KCTDNDCG 




waiting for storage to complete a KCP 










service. The storage request is retried. 










If successful the storage is freed again 










and the KCP service restarted. 










• TCAPCWT applies to SVS only and 




KCTDPCW 






indicates that the task is waiting for 










a page fixed area in which to build a 










virtual subarea list for PGLOAD 










issued by DFHCSVC. (MVS and 










VS1 use register form of PGLOAD) 










• TCAMAXT, TCAMAXTC are codes 




KCTDMAXT 






set when a task is inserted in the active 




KCTDMXTC 






DCA chain (the latter is for tasks 










belonging to a task class). Tasks are 










unable to proceed if active task limits 










would be exceeded. 











Tasks in these categories are waiting for 








OS events. If not yet posted the event(s) 










is (are) added to the list of ECBs for which 










an OS WAIT may eventually be issued. 











TCADCEND is a special code assembled 








into the 'dummy' active DCA int the 










CSA at CSAACTOF. 









Task Dispatcher DCA Scan 



Diagram- 1.1.9.2-01 
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INPUT 



PROCESS 



OUTPUT 





TCA 




TCADCAA 


TCATCDC 




CSA 




CSATRMFI 
CSATCTCA 




TCA 




TCAKCTTA | 








TCACTCMT 
TCAFCAAA 




TCTTE 




TCTTECTT | 
TCA 




TCAKCTTA 
TCASYABI 
TCASVMID 




CSA 




CSAICRIC | 




TCA 




| TCATCRS | 










I 01 I If an 'immediate abend' code appears in the TCA 
abend task. 

I 02 1 Trace dispatch if required and reset stall purge. 




0^ 


DFHTR 




SYSTEM ID 208 


| 03) Call user exit if any. 

| 04 | If dispatching a TCP or KCP task go straight to step 6, 
otherwise treat deferred ABEND requests. 

05 Set a runaway time interval if required. 
1 06 I Restore task's registers and return. 



'////////> > 





DCA 




DCAKCTL | 




CSA 




CSACDTA | 




TCTTE 




TCTTETT | 




TCA 




TCASVMID | 




CSA 




CSAICRIN | 








| CSAPIPSW | 







Task Dispatcher Dispatch 



Diagram- 1.1.9.3-01 



The stall purge indicator is turned on 
by partition exit when the system 
appears to have come to a halt. It is 
turned off here if a non-system task is 
to be dispatched. 



The 'no flush' indicator is turned on in 
TCASVMID so that services invoked by 
the task after dispatch will not abend 
the task when returning. 

For tasks other that KCP and TCP 
a test is made for deferred abend. I n 
such cases the task is to.be abended 
when the present nest of CICS service 
call ends. 

If DFHPC has already started the abend 
(TCAABIPM orTCAABRAM set) the 
dispatch continues normally. Otherwise 
the 'no flush' indicator is turned off 
and the flush linkage entered if no 
service calls are in progress (TCASVMID 
zero). 



Task Dispatcher Dispatch 



REFERENCE 



If CSAICRIC is zero, i.e. runaway task 
support is suppressed, the task is 
dispatched. 

Otherwise the interval timer is set to 
allow the task to be terminated if 
stile running when the interval expires. 

To avoid frequent use of the STIMER 
O/S service the runaway interval is 
increased by 2 seconds. Successive 
dispatches use the same setting until 
the 2 seconds has elapsed, at which time 
a new STIMER must be issued. 



Section 2: Method of Operation 



Diagram- 1.1.9.3-01 
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INPUT 



PROCESS 



OUTPUT 



DCA 


| DCATCAA | 
CSA 




CSAACTBA 








CSASOSON 
CSAMXTON 








CSACTODB 
CSAICSIC 








CSACTODB 
CSASUSFA 
CSAACTFA 




DCA 




DCAKCFA 
DCATCDP 
DCATCDC 




PCT 




PCTSPA 







01 Process TCP task event list if not already done 




<n> 


KCEVLT 






["771 Add ECBs for 'SRB mode' tasks to 
L_J the ECB list (HPO only) 

[03 J Go to wait (Step 6) if whole active chain is processed 
and not in 'short on storage' or 'max tasks attached' 
condition 

04 If stall indicator is off, turn it on, set a stall time limit 
and go to wait (step 6) 

1 05 1 Stall indicator on. If the stall time has not expired go 
' — — ' to wait (step 6), otherwise either purge a task or rescan 
the active chain 


<n> 


KCPURGE 














TCA 


| TCAPCAC | 


PCT 


| PCTSPA | 





Dispatcher - Partition Exit 



Diagram- 1.1.9.4-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





If the TCP task was skipped in the DCA 
active chain scan it must now be examined 
and its associated events added to the list 
for the OS WAIT. 

If any event is in fact posted the TCP 
task will be dispatched immediately. 




KCTDPXN 


1.1.9.2 


@ 


The 'SRB mode' ECBs are posted by KCSP 
when a task running in SRB mode returns 
to TCB mode by issuing a 'LEAVE SRB 
MODE' request. 




KCTDPX20 







The stall time limit is the present-time 




KCSTTMTA 




•CSAICSIC. If, after that time, no 










useful work has been done, tasks are 










purged from the system in the hope that 










freeing their resources will allow 










remaining tasks to proceed. 








s 


Successive dispatches, separated in time 




KCSTTMTB 




by the system time interval (ICV) are 










attempted until the stall time has 










expired. If, when this occurs, the full 










active DCA chain has not been examined 










because of 'maximum active task' limits 










(CSAMAXT) a final dispatch cycle with 










no limit is attempted. If, and only if, 










this fails purging of tasks is begun. 




KCPATASK 






'Purgeable' tasks are purged in order of 










increasing priorty from the suspended 










chain, then in ascending priority order 










from the active chain. 









Dispatcher - Partition Exit 
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CICS/OS/VS Program Logic: Description 
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Page 2 of 2 . 



INPUT 



PROCESS 



OUTPUT 





CSA 




CSAMAXT 
CSAMAXTC 








CSAIOCP | 







1 Q6l Set a timer mterval t0 the shorter of the intervals 
determined during pre-scan processing 

[ 07 1 Update the active tasks high water mark (CSAMAXTC) 
if necessary 

[08J Issue OS WAIT 

|o9j Update time of day fields and go to dispatcher again 


ox> 


KCTODRTN 













v//////J> > 



Dispatcher - Partition Exit 



Diagram- 1.1.9.4-02 : 



| Q6 1 The interval is the time to the next 

timed event, or, if shorter, the system 
time interval (ICV) 



During the active DCA scan a count 
was maintained of I/O events ('single 
events' or page I/O events). A percentage 
(CSAIOCP) of this is used as count 
argument to the OS WAIT macro in an 
attempt, given a reasonably high percentage, 
to ensure that a reasonable amount of 
work will be on hand when control 
is returned after the wait. 



Dispatcher - Partition Exit 



Section 2: Method of Operation 



Diagram- 1.1.9.4-02 
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INPUT 



PROCESS 



OUTPUT 





CSA 
CSAICRIN | 




CSAPIPSW | 




CSACDTA | 

TCA 
TCASVMID | 

CSA 




CSAPUBA 
CSAPLBA 
CSAPIPSW 








CSAPIPSW | 







[01 Save registers, establish KCP base registers and load 

CSA address. If runaway task indicator is off, go to 



I 02 [ |f program interrupt in progress or time does not match 
expected runaway interval expiry, go to step 6. 



| Q3 I Set abend code 'AICA' and turn off 'no flush' in 
TCASVMI D and exit to step 6 if zero. 



1 04 If interrupt address unfavourable go to step 6. 



05 Save interrupted op. code and replace with zero 



06 Post timer ECB CSATTECB and return to O/S. 



'/////////> > 



W///// ) 





TCA 






TCAATAC 
TCASVMID 






CSA 






CSATTECB 





Timer Interrupt Exit Routine 



Diagram- 1.1.9.501 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





If runaway task indicator is off this 


ICINTRPT 




1.1.9.4 


represents the expiry of a 'partition 










exit' time interval. The CSA address is 










stored in KCP during initialization. 








s. 


in MVS it is possible for a timer interrupt 
to occur as a result of an STIMER issued 
before the current one. 











Timing off 'no flush' causes the task to 




ICINT30 




be abended when control reaches the 










top of the nest of CICS service calls. 











Interruption occuring outside CICS 
storage, in protected CICS modules, or 
in SPIE or ESTAE exits cannot be 
handled. 








s 


The op. code is temporarily replaced 




ICNOPCHK 




by zero. When control returns to the 










point of interrupt a program check 










occurs which the SPIE routine, because 










of the saved op. code, recognizes as 










being in reality a timer interrupt. It 










restores the op. code and ABENDS the 










offending task. 









Timer Interrupt Exit Routine 



Diagram- 1.1.9.5-01 
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OUTPUT 




01 Locate HTA argument passed by caller 

02 Place request on SRB work queue and initiate SRB if 
necessary 


<n> 


KCSRBA 




1.1.10.1 


03 Return to caller 







'///////> > 




Diagram- 1.1.10-01 



Oil The argument HTA is marked as being 
associated with an 'ATTACH' 



03 The OS register save area in the CSA is 

used for this service 



ROUTINE LABEL REFERENCE 



Section 2: Method of Operation 



ROUTINE LABEL REFERENCE 



Diagram - 1.1.10-01 
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INPUT 



PROCESS 



OUTPUT 





HTA 




HTALRQF | 
SRA 




SRASRQXS 
SRALRQCT 








SRARQCHN 
SRARQEND 








SRALRQCT 
SRASRQXS 
SRASHORT 







01 Identify whether long or short running SRB request. 

02 Update appropriate (long or short) request counter. 



03 Place HTA on request chain. 



(04 1 Determine whether it is necessary to start another SRB, 
and, if not, return to caller. 



05 Start new SRB and return to caller. 



'////////fy 






SRA 






SRASRQXS 
SRALRQCT 












SRARQCHN 
SRARQEND 






HTA 






HTASTGCH 











Subroutines KCSRBA/KCSRBE 



Diagram- 1.1.10.1-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





Entry point KCSRBA is used by 






1.1.10 


'ATTACH HTA' and may request a 










long or short running SRB. Entry 










point KCSRBE is used by 'ENTER 










SRB MODE' and assumes a short run 






1.1.11 




request. 











The HTA is placed at the end of the 




KCSRB20 




chain. Because SRB executions, 










possibly running concurrently, take 










items off this chain, some moderately 










devious compare and swap logic is 










required here. 











A new SRB is started if either there are 








very few 'short run' SRBs active, or the 










request queue has become larger than a 










threshold value. 








B 


A type 6 SVC is issued. This dispatches 




KCSRB50 


1.1.12 


an SRB (with entry point in KCSP) and 










returns. 









Subroutines KCSRBA/KCSRBE 
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CICS/OS/VS Program Logic: Description 
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INPUT 



PROCESS 



OUTPUT 





SRA 




SRANXHTA | 
TCA 




TCAHTAA | 
HTA 




HTACHN 







I 01 Provide the caller with an HTA if there is none 

associated with the TCA. 



<n^ 



02 Place request on SRB work queue and initiate SRB if 

necessary. 



<=> 



03 Exit to perform full despatch. 

CO 





SRA 




| SRANXHTA 




TCA 




| TCAHTAA 




HTA 




| HTATCAA 




TCA 




| TCATCDC 




HTA 




I HTAFLGS 







Enter SRB Mode 



Diagram - 1.1.11-01 



If the caller does not already have on 
HTA (TCAHTAA=0) one is obtained 
from the quick-cell chain SRANXHTA 
(using compare and swap since HTAs 
are returned by SRB mode process) or, 
if this is empty, by issuing a GETMAIN. 
If this fails the task is temporarily set aside 
with a 'non-dispatchable' code TCANDCG 
until storage becomes available. 

From the point of view of normal 
TCB mode CICS, the task has now 
become non-dispatchable, and will 
remain so (with TCASRBM dispatch 
code) until, in SRB mode, it issues a 
'LEAVE SRB MODE' service request 
to KCSP. 



REFERENCE 



REFERENCE 



Enter SRB Mode 



Diagram - 1.1.11-01 
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INPUT 



(See detail charts) 



SRB Management Overview 



Page 1 of 1 



PROCESS 



OUTPUT 



ED 



Initialize SRB mode execution. 

Select item from request chain, check validity of 
request and provide environment exit to requestor. 



1 03 | On return from SRB mode execution via DETACH 
HTA or LEAVE SRB mode service, dispose of 
resources and go to step 2. 



(See detail charts) 



Diagram- 1.1.12-01 







SRB mode execution is initiated by the 
issuing of the type 6 SVC SRBSVC by 
KCP. 



The request chain is built by KCP as a 
result of ATTACH HTA and ENTER 
SRB MODE service requests. If the 
request chain is empty the SRB terminates. 



These services and the above steps all 
reside in DFHKCSP, which is loaded in 
protected storage by DFHSIB1. 



1.1.10.1 
1.1.12.3 



1.1.10.1 
1.1.12.4 



1.1.12.1 
1.1.12.4 



SRB Management Overview 



Diagram- 1.1.12-01 
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INPUT 



PROCESS 



OUTPUT 





TCA 




TCAHTAA | 
HTA 




HTARSAX 




SRB 




SRBPARM 


SRBSAVE 




SRA 




SRASTGCH | 




| SRASHORT | 







I 01 | Check validity of save area of returning SRB 



02 Pu * HTA on stage chain 

rbTl Post DCAPECB ECB 



<•■%> 


KCSLOCK 








<^> 


O/S POST 


branch entry 






<n> 


KCSUNLK 





I 04 I Adjust short running SRB count and go to look for 

another SRB request 



E^ 



y///////> > 



V//////J ) 



Leave SRB Mode 



Diagram- 1.1.12.1-01 











A check is made that the save area index 
which was associated with the SRB is 
still valid, and that the FRR parameter 
area is still the one established by 
CICS. The save area and FRR can be 
reused if so. 

Placing the HTA on the stage chain 
makes the CICS task available for run- 
ning in TCB mode again from the point 
at which 'LEAVE SRB MODE' was 
.called. 

DCAPECB is posted to indicated that 
a task is ready to run. If CICS is 
waiting on DCAPECB (among others) 
the local lock is acquired and POST 
invoked via branch entry. 



The SRB execution has completed as 
far as the caller is concerned. If there 
is any outstanding SRB mode request 
this will now be satisfied. 



REFERENCE 



Leave SRB Mode 



Diagram- 1.1.12.1-01 
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OUTPUT 



SRX 


| SRXRSCA | 
HTA 


| HTARSAX | 
SRB 


I SRBPARM I 


SRA 


| SRANXHTA | 





01 Check validity of save area of terminating request 



I Q2 1 Put HTA back on quick call chain SRANXHTA 



03 Go to adjust short run SRB count if this was a short 

run execution, or go straight to look for next request. 



CO 




SRA 


| SRANXHTA | 
HTA 


| HTACHN | 



Diagram- 1.1.12.2-01 



01 Check is as for 'LEAVE SRB MODE'. 



If this was a short run SRB then the 
count must be reduced by 1. Control 
is passed to 1.1.12.1 step 4 in this case. 



REFERENCE 



Diagram- 1.1.12.2-01 
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INPUT 



PROCESS 



OUTPUT 



I 01 I Add 1 count of running SRB's (SRATOTAL) and 
' ' save MVS return address (SRXRTNA) 

|"02~| Issue SETFRR 
j03 I Get save area 


ox> 


KCSLOCK 












<n> 


O/S GETMAIN 




branch entry 








<n> 


KCSUNLK 






| 04| Exit to SRB dis 


patcher 






SRB Initialization . 



Diagram- 1.1.12.3-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





The MVS return address is saved here. 


DFHKCSPP 






It is always saved in the same place, so 










SRBs always return to the same point 










in MVS. The SRB executions which 










return to MVS from KCSP are not 










normally initiated by CICS in any case. 








@ 


The recovery routine nominated here 






KCSP310 


simply ABENDS CICS, 











An CVS save area must be supplied for 
use by System Services called by the 
SRB execution. The normal CICS O/S 
save area in the CSA cannot be used 
since the SRBs run in parallel. 

The save areas are protected to prevent 
corruption during the comparatively 
long periods of use during I/O 
operations. 

If the chain of free areas is empty a 
new area is obtained in subpool 252 
using branch entry to GETMAIN (which 
requires that the local lock be held). 

The SRB execution is terminated if the 
GETMAIN fails. 






KCSP320 



ROUTINE LABEL REFERENCE 



SRB Initialization 



Diagram- 1.1.12.3-01 



Section 2 : Method of Operation 



47 



LICENSED MATERIAL 



PROPERTY OF IBM 



Page 1 of 1 



INPUT 



SRA 




SRARQCHN | 
HTA 




HTASTGCH | 
SRA 




SRASRQXS 
SRALRQCT 




HTA 




HTALRQF | 
SRX 




SRXVEA 
SRXVAA 




TCA 




TCATCRS | 
HTA 




HTAATTF 
HTATCAA 
HTAEPA 




SRX 




SRXRTNA | 




SRA 




| SRATOTAL | 







PROCESS 



OUTPUT 



[01 If no save area is available go to initialization section 
to get one (1.1.14.3 step 2) 

02 Take a request from the chain. If none go to step 6. 

03 Initialize FRR parameter area 



| 04 ] Update request count and short run SRB count 
(if applicable) 



05 Check validity of request and start its execution 



06 Terminate SRB 



''/////////} 



=> 








SRA 






SRARQCHN 












FRR Parameter 
Area 






HTA 






HTARSAX 
SRA 






SRABRQXS 
SRASHORT 
SRALRQCT 






TCA 






TCATCDC 
TCAPCAC 






SRA 






SRATOTAL 











SRB Dispatcher 



Diagram- 1.1.12.4-01 



NOTES 
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A save area may be unavailable if the 




KCSP500 


1.1.12.1 • 


check in 'LEAVE SRB MODE' or 






1.1.12.2 ; 




'DETACH HTA' failed. 








@ 


The request chain SRARQCHN is built 




KCSP510 


1.1.10 


up by 'ENTER SRB MODE' and 






1.1.11 




'ATTACH HTA' services in KCP. 











The SRX address and the current HTA 








address are placed in the FRR 










parameter area. 








H 


A check is made to ensure that the 




KCSP540 




address to which control will be passed 










is one of a protected list of valid 










addresses. 











The save area is put back on the free 




KCSP580 




chain and the total of running SRB 










executions reduced by one. Control 










is returned to MVS at the address saved 










in SRXRTNA 









SRB Dispatcher 
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CICS/OS/VS Program Logic: Description 
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INPUT 



PROCESS 



OUTPUT 




r^H Check that SRB address in TCB is valid. Return if 
I 1 not 

I 1 Return to MVS requesting dispatch of SRB 



HPOSVC(DFHHPSVC) 



Diagram- 1.1.12.5-01 



02 



This module is a type 6 SVC link 
edited into the MVS nucleus. It is 
invoked only by KCP in response to 
an 'ATTACH HTA' or 'ENTER SRB 
MODE' request issued by ZCP or FCP. 
Its sole function is to dispatch the 
SRB described by the SRB imbedded 
in the SRX allocated in SQA by 
DFHSIBI. 

The user field of the callers TCB 
should address the SRX whose TCB 
pointer should point back to that TCB. 

The program flow logically splits at 
this point, in SRB starting and the TCB 
continuing. 



DFHHPSVC 



1.1.9.2 
1.1.9.3 



ROUTINE LABEL REFERENCE 



HPO SVC (DFHHPSVC) 



Section 2: Method of Operation 



Diagram- 1.1.12.5-01 
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INPUT 



From 
User 



Page 1 of 1 



PROCESS 



OUTPUT 





TCA 




TCATCRS 
KCP's register 
save area 




TCA 




TCATCR 
KCP's type of 
request flag 




KCP 




DFHLFM 
TYPE = PLIST 
Static in-line 
LIFO parameter 
list 







I 01 I Restore registers 14 through 1 1 from TCA 
njjl Issue LIFO TYPE = ENTER request 
Establish addressability to KCP's code 
Branch to service routine code 




| 06 i Issue LIFO TYPE = RETURN request 
J q-J Return to user 



V///////J ) 



% 





TCA 






TCAKCRC 
KCP's return 
code 











LIFO Storage Requests 



Diagram - 1.1.13-01 







The registers are restored at this point 
since return will be made from this 
request to the user, not to KCP. 



Base registers are set up to be compatible 
with KCP's registers in the non-LIFO case 



Although 
to, it alwe 



the service routine is branched 
always returns to set the return 



code 

LIFO return is made to the requestor 



LIFO Storage Requests 



LABEL REFERENCE 



Diagram- 1.1.13-01 
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CICS/OS/VS Program Logic: Description 
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Input 



Processing 



PAGE 1 OF 



TXPE=SCHEDULE 



GU. 



Ttcakcrc ) 

[Module ID | 

[TCAKCTI I 

Trans- I 

action ID j 



TCAKCTA 
Tern in al 
ID 



TCAKCFA 
Address of 
supplied 



a- 



AIDS 


CSA 






AIDTRMID 
Terminal 
ID 




CSAAIDBA 
Address of 
first AID 




AIDTRNID 
Trans- 
action ID 


CSATCT0A 

TCT 

address 




AIDOPCHK 
Operator 
check 


1 


CCTTE 


" 








1CTTE0I 
Op er at or 

TCTTEOCL 
Operator 
class 













— >0 



[bTj Build an AID for the 
requesting task, if 
necessary 



< |»»| > SCP 



[02] Scan 



the AID chain for a 



/ 



<s> 



atching terminal ID 
TCP 



7777777777// 



LOCATE 



1.5.1 1.1 .1£ 



1 03 1 Merge the new AID into the. 
AID chain 

J04j Return new AID address 

[05] Perform operator check, if 
necessary 



7/( .> 

/ 



7777777777// 



'-^}.z 



/\\/ 



<'^> 



-177777777777 \)\ 

\ / 

v 
To Caller 



1.5.11.1 .14J 



New AID 

r |"aIDTCTA I 

JTCTTR 
| address ( 



CSA 
[CSAAIDBA | 



AID 

Taidchnad" 1 
Address ofj 
(next AID I 



TCA 

[tcakcfa ~] 



ITCTTEIC 
|Auto. 
initiate 
jindicator 



Schedule a Resource 



Diagram - 1.1.13.1-01 



1 Oil An AID xs built if the 

requesting tasK does not supply 
one. If AID storage is not 
available, an appropriate 
response code is returned 
directly to the calling routine. 

f oT] If an existing AID with a 
matching terminal ID is not 
found, tae TCTTEs are searched, 
via the DtfHTC LOCATE function, 
for one and the address of the 
matched TCTTE. If no matching 
TCTIE is found, an appropriate 
response code is returned to the 
calling routine. 

If a matching ID is found, the 
TCTTE address is put in the AID 
and the AID is then searched for 
matching transaction ID and 
operator check. 

[oJj The new AID is matched against 
existing AIDs until the first 
no-match condition after a match 
of terminal IDs occurs. 

The new AID is merged where this 



Routine Label 



condition occurs. 

If this condition does not 
occur, the new AID is merged at. 
the end of the chain. 

The new AID contains a code and- 
an operator check value if a 
check is to be made. The check 
involves comparing the operator 
check field of the AID against 
one of two fields in the TCTTE. 

If equal, or if no check is 
required, the Automatic Initiate 
indicator is turned on in the 
TCTTE, via the DFHTC ATI 
function. If neither, the 
indicator is left unchanged. 

Control is returned directly to 
the caller. 



Routine) Label 



Schedule a Be source 



Diagram -1.1.13.1-01 
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INPUT 



TYPE = AVAIL PROCESS 



OUTPUT 





TCTTE 




TCTTETI 
Terminal ID 




AIDs 




AIDTRMID 
Terminal ID 


AIDSTATI 

Status 

Indicator 


AIDTRNID 
Transaction 
ID 


AIDTYPE 
Type of AID 


AIDOCTYPE 
Type OP check 


AIDOPCHK 

Operator 

check 











Scan AID chain to match the TCTTE terminal ID 



| 02 | Verify that the proper operator is on the terminal, 
if necessary 



03 Obtain terminal storage, if necessary 







<dO 


SCP 




GETMAIN 


1.2.1 


Initiate 


he task or resume S 


USPENDI 


<n> 


KCP 




ATTACH 


1.1.1 








<n> 


KCP 




RESUME 


1.1.8 



05 Determine the AID type 



4>E 



4> 



^> 



'/, 



JL 





TCTTE 






TCTTEDA 
TIOA address 




TCTTECA 
Address of 
owner's TCA 










TCTTEIC 
Auto init 
indicator 




TCAKCRC 
Return code 




CSA 




CSAAIDBA 
Address of 
first AID 


AIDOCTYP 
Operator 
check code 




AID 




AIDCHNAD 
Address of 
next AID 







Declare Resource Availability 



Diagram - 1.1.13.2-01 



NOTES 
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REFERENCE 





If a match is not found, a return code is 




KCAVLSC 




set and control is returned to the caller. 








@ 


If the AID requires an operator check, 








the operator check field of the AID is 










compared with either TCTTEOI or 










TCTTEOCL, depending on the operator 










check code in the AID. If not equal, 










the Automatic Initiate indicator is 










reset in the TCTTE. If not equal, the 










indicator is left unchanged. 











Terminal storage is obtained if none was 




KCAVLINT 




previously acquired. If no storage is 










available, a negative response code is 










returned to the caller. 











If this AID represented a request by an 
existing task for a terminal, then that task 
is RESUMED, otherwise a Task Control 
ATTACH is issued. If unsuccessful, a 
negative response code is returned to 
caller. If successful, AID status is set to 
Task Initiated'. 




KCAVLGSB 


1.1.1 


@ 


If the A I D was not created by an 








Interval Control PUT request, the AID 










is unchained and its storage is released. 










For BMS-type AIDs, the data ID field 










is added to the new TCA. 
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FOB 1 Connect the new task to the terminal 
07 Set response code 
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Response code 











Declare Resource Availability 



Diagram - 1.1.13.2-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


I Qg I The response indicates whether or not 

I 1 the task was initiated. Control is returned 

to the caller. 


KCTDDTN 







NOTES 


ROUTINE 
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REFERENCE 











Declare Resdurce Availability 
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Point to first AID 



Advance to next AID 



If this AID is for the unavailable TCTTE, cancel 
the AID 



[~r~1 Continue scan of AIDs 



Cancel an 
AID 



Determine whether the owning system entry should 
be put out of service. Set good return code if not. 



Point to first AID 



Update first AID, cancel AID 



Cancel an 
AID 



OUTPUT 



EO® 



EZ>3 



I ••• e • ••• I 



Page 1 of 1 
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NOTES 
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REFERENCE 


r^H The TCTTE points to the owning 

1 1 system entry (TCSE). The system 

entry anchors the chain of Al Ds 

1 qc 1 If there are no available primary or 

1 1 secondary-conversations, the system 

entry should be put out of service 




KCRUAN 
KCRUA040 
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Declare Removal of a Resource - UNAVAI L 
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DFHKCP: 

| Q1 I Pass information to the suspended task that the 
' ' ALLOCATE request has failed 

I 02 I Resume the suspended task 


<n> 


KCP 




DFHKC 
TYPE = 
RESUME 


1 03 I Release the AID storage 




<"> 


SCP 




\r— V 


DFHSCTYPE 
= FREEMAIN 


I 04 1 Return 







V///////A ) 



E Field TCATPTA in the suspended tasks 
TCA is cleared. This indicates a failure to 
allocate a TCTTE 



J L 



% 





TCA 






TCATPTA 
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Storage 
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Recovery 
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[oil Validate the request (Task 
ASCR ABEND test.) 



l02j Determine which storage 
subpool to use 

foil Test for DFH0501 condition 



7ZlZZ7Z7ZPZ 7 l)> 

/ 
/ 

7777777777// 



< i««i > scT.TT.. l 

Ofctain storage 

1.2. 1.X j 

[oil Suspend the task if 
necessary 



7777777777777[ > 







106 J Save storage area address 



1 07 I Trace the storage 
allocation 



777777777777 | 

V/\}\ 
— \/ 



e™1 



GtTnAIN Controller 







PA1 






pamnbyte j 

NO. Of i 










bytes | 
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OA1TYPRQ 1 






Request | 




type l 




CS* 






CSASOSI | 




j Short on 1 




(storage 

\^1l J 




TCA 




[tcascsa ] 




I storage | 




jarea J 




Iarl^ress | 




L J 






Diagram - 


1.2. i-ni 



ii the nuacer of oytes requested 
is zero or exceeds the maximum 
value, tne tasK is abnormally 
terminated witn a termination 
code of ASCrf. 



j02j The type of storage requested 

determines which subpool is used 
to ontain it. Hnen the storage 
reguested will be chained off 
tne TCA cnain, tne storage is 
allocated from tne same suhpool 
as the TCa. 

J04J A branch is made to the required 
subpool GETMAIN routine to 
satxsfy the request. 

[05j If the request was unconditional 
and could not oe satisfied, the 
tasK is suspended. The FREEMAIN 
Exit routine will retry tne 
request when some storage is 
freed. 

fo71 Tne GET MA IN request is traced 
with a X' C8' trace entry. 



1.1.7 
1.2. a 



Routine Latel j *<= 



GETMAXN Controller 



Diagram - 1.2. 1-0 i 
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£AflTYPBQ 

Bequest 

type 



ny tes 
requested 



> 



Control Suopool GEiMAIN 



DPHSCP: 

foil 



Allocate storage 
on a best fit 
basis 



< |..| > 
\ i — -,/ 



SCMASTPG 

Assign another 
page to the 
suBpool 



GE 



/i — 1\ 
\r — i/ 



scfaqein" I 

Insert new page in) 
FAQE chain | 



E 



/i — 1\ 

< !••! > SCINITIAL 

Initialize storage 

|05 j Create a Storage 
Accounting Area 

|06l Return address of storage 
area 



7777777777// 

v 

To 1.2. 1 or 
1.2. U 



PAHCSADR 
Storage 
area 
address 



Diagram - 1.2.1. 1-C1 



(Oil An atteapt is made to allocate 

storage iron existing FAQEs on a 
nest lit basis. 

j02j Additional pages are assigned to 
the suopool only when the 
request cannot x>e satisfied from 
existing FA^Es. 

[oj] When new pages are assigned to 

the suopool, they are treated as 
a i-'ree Area Queue Element (FAQE) 
and are inserted into the FAQE 
chain. The reyuest for storage 
is then retried. 

[oaj The area is initialized to the 
nit pattern given ny the 
IN1TIMG = operand if the operand 
was specified. A four-oyte 
Storage Accounting Area is built 
in tne front cf tne area. 

I Ob] The address of tne area 

allocated is returned to the 
caxling routine. If no area 
could ne allocated, an address 
of zeros is returned. 



Control Sunpool GE1BAIN 



Diagram - 1.2.1.1-01 
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EAMNBYTE 
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Process iag 



Teleprocessing Suopool GE1MAIN 
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>i 



L 



DFHSCP: 
Jin] Adjust the request 



Allocate storage 
on a best fit 
basis 



/i i\ 



Assign another 
page to the 
subpool 



S 



/i — i\ 

< l-l > 
\i — -1/ 



Insert new page in 
the PAQE chain 



>ficiillTAL "1 

I Initialize storage] 

J06 1 Create duplicate Storage 
Accounting Areas 



PAGE 1 o* 2 



Diagram - 1.2.1.2-C 



(Oil Tne numner of bytes requested is 
adjusted to include the 
duplicate Storage Accounting 
Areas. 

A. for XIOA, adjustment is 
request * 13 rounded to 
double-doubleword. 

B. For L10A, adjustment is 
request «• 8 rounded to 
double-doubleword. 

]02J An attempt is made to allocate 

storage from existing PAQEs on a 
nest fit basis. 

J 03 j Additional pages are assigned to 
the subpool only when the 
request cannot oe satisfied from 
existing £A£Es. 

jOU] when new pages are assigned to 

tne subpool, taey are treated as 
Free Area wueue Element (PAQE) , 
and are inserted into the FAQE 
chain. The request for storage 
is then retried. 



The area is initialized to the 
bit pattern given by the 
INITIMG= operand if the operand 
was specified. 

Duplicate Storage Accounting 
Areas are built at the front and 
the back of the area. 



Routine 
SCINITAL 



Label | net 



Teleprocessing Suopool GEINAIN 



Diagram - 1 . 2 . 1 .2-C 1 
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Processin g 
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j Storage 

ch ai n 
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1071 Add storage area to 
storage chain 



J 08 j Return address of 
allocated area 



7777777777777( > 



<> 



GE=ni 



TCTTESC 
(Storage 
chain 



PAM 

fpAUCSADP 1 
(storage 
(area ( 

(address 



Teleprocessing Sunpool GETMAIN 



[07] It the area is a 110 A, it is 
added to the TCITE storage 
chain, it the area is a LIOA, 
the cna in points to itself. 

[Od] Ine address of the area 

allocated is returned to the 
calling routine, if no area 
could oe allocated, an address 
or zeros is returned. 



Teleprocessing Suopool GETMAIN 



utine Latel 



Routine Latel 



HIP0i»AT 1.1 Diagram - 1.5.1.2-C2 
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Beyuest 
type 

PA MN BY IK 
No. of 
ay tes 
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DFHSCP: 


|0m Adjust the request 


[02j Allocate storage area 


\m 




IcTAP 1 

Calculate 1 
turnaround point 
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\i — -1/ 


SCMASTPG 




Assign another 
page to the 
subpool 


To5l Update the counter of 


active allocations 


S 


/" — J \ 






SCINITAL 
Initialize storage 




|07 j Create Storage Accounting 


Areas 



!>B 



Nixed Suxjpool G£TMAIN 




Diagran 



Notes 



[oil Tae numoer of oytes requested is 
adjusted to include the 
duplicate Storage Accounting 
Areas. 

A. For TCA, adjustment is 
request ♦ 8 rounded to 
doucle-douoleword. 

a. Hon- TCA, adjustment is 
request + 1o rounded to 
douole-douflieword. 

10 2 J The storage area is .ootained 
from the next available 
location, and the pointer to the 
next aval laole location is 
adjusted to point to the end of 
tne area just allocated. 

To JJ When additional pages are 

needed, tne turnaround point is 
cheated to determine whetner the 
allocating of pages should 
Continue in an upward direction 
or to turn around and start 
again from tae low end of 
dynamic storage. 



[oTj New pages are allocated as 

needed, based on the turnaround 
point. 

JO 5 j A count of the number of active 
allocations is kept for each 
page assigned to the mixed 
subpool. This count is kept in 
the second half of the page map. 

[oil The area is initialized to the 
tit pattern given by the 
INITIMG= operand if the operand 
was specified. 

[oTI Duplicate Storage Accounting 

Areas are built into the front 
and the back cf the area. 
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[08J Add storage area to 
storage chain 

J09j Return address of storage 
area 
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Storage 
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Storage 
area 
address 

PAUPGMAP 
Page map 



Mixed SuDjfOOi G£TMAIN 



Diagram - 1.2. 1.3-0 



The area is added to the TCA 
storage chain. iTne chain is a 
push-down gueue.) If a TCA is 
being allocated, the chain field 
is initialized to point to the 
front of the TCA. 

The address of tne area 
allocated is returned to the 
calling routine. If no area 
could oe allocated, an address 
of zeros is returned. 



La eel 
SCMIXGSC 



Routine Label 



Mixed Subfooi. GE2MAIN 



Diagram - 1.2.1 .3-C2 
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type 
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NO. Of 
bytes 
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DFHSCP: 
[oT] Adjust the request 



[02] 
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|»»| > SCHASTPG 
Vi i/ 
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page to the 
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1 n (initialize storage! 

[Oul Create a subpool header 



051 Create Storage Accounting 
Areas 



i> 



E~l 
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(Storage 
area 
(address j 



Diagram - 1.2. 1.U-01 



[ 1 1 Eight oytes are added to t&e 
length to allow for the 
duplicate Storage Accounting 
Areas. The reguest is converted 
to the nuoner of pages required. 
Ihis value is compared to the 
nunner of pages reguested which 
is specified in the PCE. The 
higher nuaber is stored as the 
nuaber of pages required. 

|02J Since isolated tasks have 
exclusive control of entire 
pages, new pages are assigned 
for the nuaber of pages coaputed 
in step 1 . 

l03J The TCA is initialized to binary 
zeros. All pages allocated are 
Barked in the PAH as part of the 
initial allocation. 

|ou ) A neader containing forward and 
oacJcward PAQE pointers is 
created in the TCA. The 
remainder of tae area that is 
not a part of the TCA is made 
into a FAtfE. 



Boutine Latel 



Duplicate Storage Accounting 
Areas are built at the front and 
the back of the TCA. The storage 
chain field is initialized to 
point to the front of the TCA. 



Isolated Subpool TCA GETMAIN 
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SCFRSTFT 

Allocate storage 
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Insert new page in 
FAQE chain 
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SCIHITAL 




Initialize storage 
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Isolated Subpool GETaAIN 



Diagram - 1,2.1.5-0' 



The number of oytes requested is 
adjusted to include the 
duplicate Storage Accounting 
Areas. 

Adjustment is, request + 16 
rounded to douole - doubleword. 



02J An attqapt is made to allocate 
from existing FAQEs using first 
free area large enough to 
satisfy request. 

03] Additional pages are assigned to 
the subpool only if the request 
cannot be satisfied from 
existing FAQEs. 

04 j When new pages are assigned to 
the subpool, tney are treated as 
a Free Area Queue Element (FAQE) 
and are inserted in the FAQE 
chain. The request for storage 
is then retried. 

J 05 1 The area is initialized to the 
nit pattern given ny the 
INITIMG= operand if the operand 



was specified. 

Duplicate Storage Accounting 
Areas are built at the front and 
the back of the storage area. 



Isolated Subpool GETMAIN 



Diagram - 1.2.1.5-01 
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[08J Return address of storage 
area 
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(Storage 

jchain 
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Storage 
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Diagram - 1.2.1.5-02 



Motes 



1 07 j The storage area is added to the 
ICA storage chain. ( The chain 
is a push-doiin queue.) 

1 08 1 The address of the allocated 

storage area is returned to the 
calling routine. If no area 
could oe. allocated, an address 
of zeros is returned. 



Routine Label Pef 



Isolated Subpool GE1HAIH 



Diagrai - 1.2.1.5-02 
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Snared Subpool Gal MAIN 



Diagram - 1.2.1.6-01 







An attempt is made to allocate 
from existing ?AQEs on a nest 
fit oasis. 



[02] Additional pages are assigned to 
the subpool only when a request 
cannot be satisfied from 
existing FkQEs. 

[Odj Wnen new pages are assigned to 
tne subpool, tney are eaco 
treated as a free Area Queue 
Element (PAyE) and are inserted 
in the Ji'A^E chain. The request 
for storage is then retried. 

[ot] Tne area is initialized to tne 
nit pattern given by the 
INITIMG = operand if the operand 
was specified. 

fob] A four-oyte Storage Accounting 
Area is built in the front of 
the area. 

|0bj Tne address of tne allocated 

area is returned to the calling 



Routine Latel 



routine. If no area could be 
allocated, an address of zeros 
is returned. 



Routine Label 



Shared Subpool GEIflAIH 



Diagram - i-2-i .6-0 i 



66 



CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OF IBM 



Processing 



PAGE i OP 1 



PAN 






fAMTYPBQ 
Bequest 
type 

PA HN BYTE 
Mo. of 
cytes 
requested 








' 






DPHSCP: 



\l 1/ 



Assign pages to 
the subpool 



3 



< |»»| >[IciNITAL 
\| 1/ 



Initialize stor 



age) 



I 03 J Create a Storage 
Accounting Area 



04 1 Complete the page 
allocation process 
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Diagram - 1.2..L7-C1 



01( Since all areas in this subpool 
are allocated only in full 
pages, the requested number of 
pages are assigned to this 
subpool. 

02 J An area is initialized to the 
bit pattern given by the 
INI1IHG= operand if the operand 
was specified. 

J03l A four-byte Storage Accounting 
Area is built at the front of 
toe area, even though it is not 
needed by. Storage Control. 

This is provided as a diagnostic 
aid for convenience in reading 
dump. 

j^Ou] The page allocation process is 
completed by adjusting the 
second half of the page map to 
reflect the allocation. 



Boutine label B«f 



Aligned Subpool GEIflAIN 



Diagram - 1.2.1.7-C1 
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[03J Complete the page 
allocation process 



[04J Hark the program for 
deletion, if necessary 
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Diagram 



[oil Program storage is requested in 
doublewords. The number of 
doublewords is converted to 
bytes. 

[02] Program storage is allocated in 
contiguous full pages from the 
high end of dynamic storage. 

]03J The number of pages associated 
with tne allocation is kept in 
the second half of the PAN. 



E3 



The program is marked for 
deletion if its allocated 
storage is so low in the dynamic 
storage that it is intermixed 
with pages assigned to other 
s un pools. 

The address of the allocated 
area is returned to the calling 
routine, if no area could be 
allocated, an address of zero is 
returned. 



Program Subpool GET«AiN 



Diagram - 1.2.1.8-Ci 
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Storage 
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Diagram - 1.2.2-01 



1 01 i The request type and the address 
of the storage area to be freed 
are saved. 

j 02 j The address must be a double 
doubleword in the dynamic 
storage area. If the address is 
invalid, the task is abnormally 
terminated. 

j 03| The subpccl containing the 
specified area is determined 
from the page map in the PAH. 

105] Control is passed to the 

appropriate subpool preemaih 
routine to satisfy the reguest. 



Routinel Label 



Routine| Label 



PREEHAru Controller 
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Oli Ine area to ne freed is traced 
via a X^CS*' trace entry. 

ol] The area to be freed is inserted 
in the Free Area tfueue Element 
(FAQE) cnain. 

03J If the freed area had created an 
PAQE tnat spanned a full page, 
the page is removed from this 
subpool 's page allocation and is 
now available to any subpool. 

I04J Tne exit is to the common 
FREEMAIN exit. 



Control Subpool PREEMAIM 



Diagram - 1.2.2. i-Oi 
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Notes 

[oij The duplicate Storage Accounting 
Areas are compared to see if 
either was destroyed. 

[02 ] If the area oeing freed is a 
TIOA, it is removed from the 
terminal storage chain. 

[o71 Tne area being freed is traced 
via a JC'C9' trace entry. 

[04j The area to oe freed is inserted 
in the Free Area uueue Element 
(FA£E) cnain. 

[Obf If the freed area bad created an 
FAQE that spanned a full page, 
the page is removed from this 
suopool' s page allocation and is 
now available to any subpool. 

[06j Ine exit is to the common 
FREEMAIN exit. 

NOTE: If all HOAs are to oe 
releasea (that is, RELEASE=ALL 
was specified) , the above 



process is repeated for each 

area on the storage chain before 

exiting to the common PPEEMAIH 
exit. 
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loi] The duplicate Storage Accounting 
Areas are compared to see if 
either was destroyed. 

[02] Tne area being freed is traced 
via a X'cy trace entry. 

) 03) Tne storage chain is searched 
for the area neing freed. When 
found, tne area is removed froa 
the cnain. 

J 04 j The count of active allocations 
is decremented for every page 
touched by the area being freed. 

[05] when tne count of active 

allocations reaches zero, the 
page is removed from the 
sunpool's page allocation and is 
now available to any subpool. 

jobj The exit is to the common 
Ffl£EMAIN exit. 

NOIE: ir" the request is to free 
a 1CA, the above process is 



utine Label 



repeated for each storage area 
on the storage chain before 
exiting to the common EREEWAIN 
exit. The TCA is the last area 
freed. 
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foij lae duplicate Storage Accounting 
Areas are compared to see if 
either was destroyed. 

j02| lae area being freed is traced 
via a X»C9' trace entry. 

[OjI The storage chain is searched 
for tne area Being freed. When 
found, it is removed from the 
chain. 

foul The area to he freed is inserted 
in the Free Area Queue Element 
(FAQE) chain. 

1 05 j Any full pages contained 

entirely in the new free area 
that are not part of the pages 
initially allocated for the TCA 
request are removed from the 
tasJcs page allocation and are 
now available to any subpool. 

J0bl The exit is to the common 
FREEMAIN exit. 

NOTE: if the request is to free 



a TCA, the above process is 
repeated for each storage area 
on the storage chain before 
exiting to the common FREEMAIN 
exit. The TCA is the last area 
freed. 
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[oil The area to be freed is traced 
via a X'C9" trace entry. 

[02] The area to be treed is added to 
Free Area Queue Element (FAQE) 



03 j It the free area had created an 
FA^E that spanned a full page, 
the page is removed from the 
subpool's page allocation and is 
now available to any subpool. 

04j The exit is to the common 
FREEMAIN exit. 
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{Oil The area to ne freed is traced 


SCFREElfi 


SCALGFRE 


2.1. a 


via a JCC*? 1 trace entry. 








j02j The. number or pages allocated to 








the are* is determined from the 








second naif of the PAN. 








1 Oil The page map in the PAH is 








cnanged tc indicate that the 








pages wnich were allocated to 








the freed area are availaole to 








any sua pool. 








[oaj Ine freed pages are released to 


SCPGRLSE 






the operating sys'tem to prevent 








any unnecessary paging when the 








pages are again allocated. 
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FREEMAIN exit. 
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[oil Tne.area to be freed is traced 
via a.X'C9' trace entry. 

|02 ] The number of pages allocated to 
tne program is determined from 
the second half of the PAN. 

[o|] The page map of the PAD is 

changed tc indicate that the 
pages which were allocated to 
the freed area are available to 
any subpool. 

jot* ] The freed pages are released to 
the operating system to prevent 
any unnecessary paging when the 
pages are again allocated. 

j 05 j The exit is to the common 
FBEEMA1W exit. 
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02 j Control is returned to the 

reguestor via the Runaway Tasx 
racility via an interval Control 
tixil macro instruction. 
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j 02j The DCA suspend chain is 

searched for tasks suspended by 
Storage Control. 

j Qj ] Each suspended request is 

retried by entering the required 
suopool GETHAIM routine. 

\\ When a suspended request is 

satisfied, the suspended task is 
resumed via a Task Control 
&ESUHE. 



051 If the freed area relieved the 
snort -on-storage condition, the 
shott-on-storage indicator is 
turned off. 

06 j Tne exit is to the prograa exit. 



FBEEHAIM Exit 
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1 02 1 The subpool that encountered the 
storage violation is determined 
by examining the current subpool 
header. 

Violations are: 

A. Nonmatched duplicate Storage 
Accounting Area. 

B. Overlapping free areas. 

I0J| If the subpool has an FAQE 

chain, each FAQE on the chain is 
checked for validity. If an 
error is found, the PAQE is 
rebuilt or a dummy is created in 
its place. 

j 04] The TCA or TCTTE storage chain 
is verified or corrected using 
the duplicate Storage Accounting 
Areas. 

) 05 j If the problem was corrected, 
control is returned to the 
subpool routine that had control 
when the problem was 



Routine Label 



encountered. 

If the problem could not be 
located or recovered, the system 
is abnormally terminated using 
operating system ABEND macro. 



Routine) Label 



Storage Contrcl Recovery 
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Diagram - 1.3.1-01 



The information saved includes 
the ABEHD exit flags and 
addresses, the RSA chain 
address, the HLL save area 
address, the HLL storage chain 
address, and the return 
registers. 
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01) Ii COBOL is used, free the 

storage area acquired for TGT. 

If PL/Ms usea, free the 
storage areas acquired by PL/I 
for tais program. 



Transfer Program Control 



routine Label *»et 



Diagram - 1.3.2-01 
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It tne counter is less than 
zero, tne tasK is abnormally 
terminated witn an APCH ABEND 
code. 

If the counter is greater than 
zero, control is returned to the 
cailer- 

Ine storage areas are released 
if either: 

The module is a map. 

The short on storage indicator 
is on. 

The program is to be deleted. 
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03j It the released program was 
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restored into the TCA. 
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A. The Storage required (in number 
or doublewords) is kept in the PPT. 


' 


RCPF 
PCGPS 





NOTES 


ROUTINE 


LABEL 


REFERENCE 
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LICENSED MATERIAL 



PROPERTY OP IBM 



Page 2 of 2 



INPUT 



OUTPUT 



B. Load program 




<n> 


Loader-Communication 




Load the program 

1.3.4.2. 


C. Perform HLL processing 

(" 1 Check the type of request 

A. lfTYPE=LOAD 

r~| Perform pre-execution processing for non- 
L2L1 request 

[T|T] Transfer control to the specified program 


LOAD 






To Called 
Program 







PPT 






PPTCOTGT 
TGT size 




PPTCOBLL 

BLLcell 

displacement 




TCA 






TCAPCTA 

PPT 

address 


TCAPCCA 
HLL save 
area 
address 


^ 


Save Area 













Program Fetch 



Diagram- 1.3.4-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 




B. Program load 




PCCLOAD 






C. The address of the PL/I or COBOL 
macro interface routine is placed 
in the PL/I or COBOL program. 




PCPEXIT 




H 


If a program load was requested, 
control is returned to the caller. 




PCPFRCUB 







The PPT address is placed in the TCA. 




DOCPCP10 




For HLL request, task-related storage 
is obtained. 










For an application using the command level 
interface, LOAD DFHEIP if it has not 
already been loaded. 




DFHPCEI 


6.5.1 




For COBOL applications the first two 
BLLcells, BLLDS and CSA are initialized 















PCPE 





ROUTINE LABEL REFERENCE 



Program Fetch 



Diagram - 1.3.4-02 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OF IBM 



Input 



TCA 


i • I • V 

h::n^> 




TCAPCTR 
Request 
type 




| 


TCAPCPI 
Program ID 


L > 






>PT 






I 


i 




PPT PI 
Program ID 






PPTPLGS 

Enable 

indicator 













[01 j Scan the PPT to find a 
■atch for the program ID 



|02j Perform required 
processing 



^ 



V 

To Caller 



TCA 






TCAPCLA 
Loaded PPT 
address 




TCAPCTR 

Return 

code 









PPT Search 



Diagram - 1. 3. 4. 1-01 



G3 



1 02 1 If the PPT entry was disabled, 
the request is treated as an 
error. 

If an error occurs, the task is 
abnormally terminated lABBMD 
code APCT) unless the request 
was conditional or SETXIT was 
specified. (For SETXIT or 
conditional requests, the error 
indicator is returned as the 
message.) 

If LOCATE was requested, the PPT 
address is placed in the TCA, 
and control is returned to the 
calling program. 

If not LOCATE, return. 

The PPT is searched, using the 
DFHPC»L0CATE macro instruction. 



Routine Label 



PPT Search 



Diagram - 1. 3* «• 1-01 
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■L 



01 I Read and process all 
records 

A. For RID records, 
relocate address 
constants 

. B. For ccntrol records, 
determine the length 
and address of the text 
record tc follow and 
read the text record 



L ,/ 



[I:::::-:] 



V 

To Caller 



Loaded 
Program 



Loader - Relocate 



Diagram - 1.3.H.2-0V 



101 1 Control is returned to caller 
either when the last RLD record 
is processed or wnen the last 
text record is read. 



Routine latel R€f 



Loader - Relocate 



Ciaoran - 1.3.M.2-0' 



90 



CICS/OS/VS Program Logic: Description 
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output 
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re a 

frc... 

L£rog 



TXPE=DELETE 



flCAPCTR } 
■ n idJ 



DtfUPC TXPE=DELisTE ae^uest Processing 



^1 

••••I > 



DFiiPCP: 

ED 



\ r — -i/ 



PPT Search 
Locate the p 



rogramj 
.3.U.1J 



7777777777777f > 



03 



< |»»| > Delete Loaded 
\ r — t/ Program 



Remcve program 
references from 
load list 

1.3.5. 1 







V 

To Caller 



TCAPCTR 

Return 

code 



Diagram - 1.3.5-01 



Label 

PCDILETE 



DFtiPC TYPE=DiiL]slh Bequest Processing 



Diagram - 1.3.5-d 
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ICA 






TCAPCTB 
Request 
type 




TCAPCLC 
Load list 
chain 


1 


Load List 













Processing 






Output 



PAGE 1 OP 1 



[oT| Per fori processing for 
DELETE request 



N| 1/ 



Prograa Release 



Release prograa 
resources 

1.3.2.1 



zzzzzzzzzzzzz{)> 



V 

To Caller 



Delete Loaded Prograa 




Diagraa - 1.3.5. 1-01 



Rotes 


Routine 


Label 


Ref 


Notes 


Routine 


Label 


Ref 


J01J For DELETE request, prograa is 
re ao Ted froa the load list. 

If a aatching ID is not found, 
control is returned to the 
caller. 




PCCDLPH 











D«l«ta Loaded Prograa 



Diagraa. - 1.3. 5. 1-01 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL — PROPERTY OF IBM 



TCAPCTA 
address 



Return Prograa Control 



Processing 



Oat pat 



PAGE 1 OF 1 



TIPE=RETOBH 






> 



ophpcp: 
[Oil Perfora HLL processing 



/« — «\ 
S. — 1/ 



/i — 1\ 



Prograa Elevation 



Elevate taste to 
next highest level 
1.3.3.2 



| 03 | Check the prograa level 



/« — 1\ 



Diagraa - 1. 3.&-0T 



|0l] All HLL storage areas are 
released. 

J03J If the prograa is at the highest 
level, a Task Control DETACH is 
issued to terainate the task. 

If not at the highest level, 
control is transferred to the 
specified prograa. 



Routine Label 



latum Prograa Control 



Olagraa - 1. 3. *-01 
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PAGE 1 OF 



1CAPCSR 
Second 
request 
type 



1CAPCERA 
Exit 
routine 
address 



•L^ 



> 



1 1 I Check the request type and, 
set the active indicator 



7777777777777C > 



QE 



Perform processing for 
SETXI1 request 



i> 



E:H:-:j 



\ / 

V 
To Caller 



TCAPCAXI 
ABEND exit 
indicator 

TCAPCSRA 
FlXit 
routine 
address 

TCAPCXPa" 
PPT 

address of 
exit 
program 



Cancel/Activate/Heactivate anABEND Exit 



Diagram - 1.3.7-0' 



|01j For activate/reactivate 

reguests, tne active indicator 
is turned on. 

For cancel reguests, the active 
indicator is turned off. 



02 j The routine or PPT entry address 
is set up in tne TCA. (The PPT 
is searched to determine the PPT 
entry address.) 



Routine Label 



Cancei/Activate/fieactivate anABEND Exit 



Diagram - 1.3.7-01 
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CICS/OS/VS Program Logic: Description 
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Input 



Processing 
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TCAPCPI 

PPT 

address 



PPTBCC Ho. 1- 
of current 
users 



1 / 



PPTTLE 

Residence 

indicator 



0- 



>S0-- 



~->q 



CSA 

fcSASITBJT 
|J5IT 



*c 



ore dll sip I 



SIPBLDL 

BLDL 

routine 



SIPARHPd 
PPT entry 
address 



~O0 



[oT] Obtain reguired 
information 



77777777777771 > 



[02j Free old resident 

information and save new 
information 



:(> 



77777777777771 > 







,03] Save disk address of the 
progran 



En^j 



V 

To Caller 



SIP 






SIPABHPS 
PPT entry 
address 




PPT 






PPTSAR 
Storage 
area 
reguired 




PPTBHTD 
Entry 
point 
displace- 
ment 


PPTDASA 
TTR on 
disk 









Get Directory Information about a program 



A DOS/VS LOAD macro instruction 
is issued to obtain the program 
size, its entry point 
displacement, and its disk 
location. The LOAD macro 
instruction is issued with a 
TIT=N0 parameter to cause a 
directory search only. 



EH 



Routine | Label 



Routine Label 



G«t Directory Information about a program 



Diagram - 1. $. 0-01 
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input 



COBOL interface 



Processing 



PAGE 1 0* i 



iLv 



r> 



> 



L > 



DFHPCP: 
foT] Save required information 



02 } Perform service-related 
functions 



[03] Enter requested CICS 
module 

jOaj Perform bit manipulation 
for trace request 



7777777777777( > 



GE 



Restore saved information 



ti> 



G™1 



To COEOL 
Program 



TCAPCHS 
HLL save 
area 
address 



COBOL Save 
Area 

"cm::::: 



Diagram - 1.3.9-0 ' 



01 j Tue contents of tae registers 
are saved. 

02] Hove information previously 
moved oy the macro reguest 
expansion. 



Routine Latsl Pet 



CObOL Interface 



Diagram - 1.3.9-01 
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CICS/OS/VS Program Logic: Description 
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PL/I la tec face 



1CAPCTA 
PL/I fie St 
tine 
switch 



ICACSPE 
Address of 
CICS 

requested 
module 



Processing 



PAGE 1 0* 



••••I > 




DFHPCP: 
10 1 1 Save required information 



[02j Per 
fir 
pro 



form processing for 
st call from a PL/I 
gram 



7777777777// 



E3 



| 03 I Ent 

mod 



er requested CICS 
ule 



I Ot j Perform bit manipulation 
for trace request 



05 Restore saved information 



— — i;i 
V 

To PL /I 
program 



TCAPCHS 
HLL save 
area 
address 



Ftcapcta 

JPL/I first 
time 
switch 



Diagram - 1.3. 10-Ci 



1 1 1 Ihe contents of the registers 
are saved. 

[02J The CSA address is savsd in the 
location specified by the PL/I 
call statement. 

QE 
[iE3 
EJ 



Routine Label Pef 



PL/I Interface 



Diagram - 1.3. 10-C 
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INPUT 



PROCESS 





PCT 




• • • • 










PCTIPIA 




Initial 
Program ID 















> H 



DFHPCP : 




CO 


SCP 


Free dependent 
storage 






® ox> 


SPP 





Perform restart processing 



OUTPUT 



:> 



% 



TCAPCPI 



Program ID 



Restart task after ABEND 



Diagram 1.3.11-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


r~~| Free user class storage, not TCA. 

rTT] Re-initialize Dynamic Log. 

rZT] Set 'restarted' flag, clear ABEND code, and. 
1' 'synchpointed' flag. Move initial program 
ID into PCXCTL. 




PCRETRY 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Restart task after ABEND 



Diagram 1.3.11-01 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OP IBM 



CUABT: ICPVT 
PAGE 1 OF 1 



|Tiae Hanageaentl 
t 1.4.01 



IDeleay I | Signal | 

(Processing of a| | Expiration of a| 

(Task - SAIT | |Specified Tine | 

| 1.4.1| |- POST | 

i . , 1-U.2I 



Tasl Initiation! | (Current Tiae of| 

- INITIATE/PUT MlDay - GETIHE | 

1.4.3 | | | 1.4.51 



| Data Retrieval | | Cancel a 

|- GET/BBXRT | |Tiae-Ordered 

I 1.4 .6 J | Bequest — 

• • ICiBCBL 

I 1-4 



| |Tiae-of— Day 

I | Clock Beset 

I | Support 

I I 1. 



|Tiae Ezpiration| | ICE SCHEDULE | 
I Analysis | | 1.4.101 



1.4.9| i- 



| Build Basic ICE| 
I 1.4.4| 



Tiae flanageaent 



Diagraa — 1.4—01 
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Processing 



PAGE 1 Of 



[iCAICRT 
j lime or 
j interval 

| 1CAICQID 
j Heyuest ID 



CSA 

rCSAIcifcA~~l 1- 

j Adaress of ( 
|IC£ chain j 






> 



\m 



[££] 



>[lCCHAIN~~ ~ "j 
I Form an ICE chain"! 



BE 







Process the resumed task 



7777777777// 



A. Set response code 

B. Release ICE storage 



/i — 1\ 



[•::::-} 



\ / 

v 
To Caller 



[iCECHNAD 1 
(Adaress of 
next ICE j 

ICRC 1 
;ponse j 



I! 

TCA 

TCA 
Pes 
cod 



Delay ' Processing or a Task 



Diagram - 1.1. 1-01 



1 02 i Tne chain sequence is formed 
according to expiration tines. 



[ou] 



A. Tne suspended task is resumed 
upon expiration of the 
interval or time requested. 
When tne suspended tasK is 
resumed, process begins 
immediately. If the 
expiration time had elapsed 
when the original request was 
made, an appropriate response 
is returned. 

fl. A Storage Control PHEEMAIN is 
issued. 



Delay Processing of a Task 



Diagram - 1.«i. i-C i 
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CICS/OS/VS Program Logic: Description 
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Processing 



Output 



PAGE 1 0? 



fiUv 



ICAICRT 
line or 
interval 

icaicqid"" 
Bequest ID 



CSA 

rcSAICEBA"™) 

Address ofj 

[ICE chain J 



•I > 



Signal Expiration of a Specified line 



DFHICP: 



IClEicBN ~] 

iuild~basic~ici 

1.U.UJ 



[02j Initialize the posting 
area 



E^> 



[form an ICE chain j 

^«] Issue a Task Control WAIT 
request 

< i««iNj"dfhkcp ) 

Nr ~ '' VTir " 

1. 1-61 



I OS J Set response code 



\> 



G™1 
v 

To Caller 



ICETCAAD 

TCA 

address 



ICETECA 
Event 
control 
area 



TCA 

f TCAICTEC ' 
Event 
control 
area 
address 



[tcaicrc ""I 
Response | 

l£2£f 1 



Diagram - 1.11.2-C1 



1 02) The event control area that wiil 
oe posted at the re guested tine 
or interval is part of the ICE 
and is posted upon expiration of 
tne requested tine of interval. 

tO 3] ine chain sequence is formed 
according to expiration time. 

[oTj Expiration of tine-dependent 
event is detected by Task 
Control Task Dispatcher. The 
Tasx Control WAIT is issued to 
cause immediate posting if the 
expiration time nad elapsed when 
tne original request was made. 



Routine Label 



Signal expiration of a Specified Tine 



Diagram - 1.H.2-01 
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Input 



1CAICTH 
lype of 
reyuest 

ICAICHT 
line or 
interval 



Processing 



PAGE 1 o? 



-»00~> 



ICAICQID 
Bequest ID 



IICAICDA 
Data area 
address 




>0 



> B @~> 



]— >0 



Task Initiation 



DFHICP: 
^Oll Verify the necessary IDs 






C>0 



EJ 



initialize automatic task 
initiation fields 

Perform additional 
processing for POT 
reguests 



DPHTSP 



1.8.1J 



7777777777// 



<P 



I >riCCHAIN I 

JForm an ICE chain - j 



I 06 I Set response code 



zz{>B0zz{> 

N / 
V 
To Caller 



ICETRHID 
Terminal 
ID 



ICECHNAD 
Address of 
next ICE 



prCAICRC 
j Response 
[code 



Diagram '- i.u.3-0i 



}0l( The transaction ID is verified 

ijy scanning the PCT for an entry 
that matches tne ID of tne 
original request. If no match, 
set return code and return to 
caller. 

A. For terminal -dependent tasks, 
if a terminal ID was 
specified in toe original 
reguest, it is verified by 
scanning the TCTIE for a 
matching entry. If no match, 
set tne appropriate return 
code and return to caller. 

J0<*j All time- ordered messages are 
stored using Temporary Storage 
facilities. Tne reguest ID is 
used as data ID tor the stored 
messages. 

[05] The chain sequence is formed 
according to expiration times. 



U. J 

Diagram - '1.0.3-01 
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CICS/OS/VS Program Logic : Description 



LICENSED MATERIAL 



PROPERTY OF IBM 



PAG* 1 C* 1 




fi)7] Obtain ICE storage, if 
necessary 



<i=S> 



[o5] Build basic ICE 



A. Give it an ID 

B. Specify the type of ICE 

C. Calculate the 
expiration time-of-day 



G™1 



To Caller 
1.H.1 1.0.2 
1.H.3 



TCAICEAD 
Address of 
assigned 
ICE 



[tcaicqid*"""] 

lOnique ID j 

ICE 

I CERQID 
Unique ID 



Tvpe 
ICE 



ICEXTOD 
Expiration 
time of 
day 



Build Basic ICE 



E3 



If the task had previously 
issued a POST request, an ICE 
would reoain assigned to the 
task and it is reused for any 
Interval Control service 
requiring an ICE. 



A. If no ID was supplied with 
the request, a unique ID is 
developed using the counter 
in CSADdtiXi). The CICS 
component code, DFH, prefixes 
the system-generated ID. 

6. Iypes of IC£s and 

corresponding codes are shown 
in tne lutervax Control 
Element aata area in Cnapter 
5. 

C. The user-supplied value is 
converted to jOOths of a 
second in binary form. If an 
interval value was specified, 
it is aaded to the current 
time of day to produce an 
expiration time. If a time 



utine Label 



value was specified, it is 
used alone as the expiration 
time. 



Build Basic ICE 



Diagram - i.o.o-Ci 
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Input 



PAG* 1 0* 



TYPE=GEIIME 



•• • • | > 



I ICAICTfl 
I lype of 
jce guest 



> 



| 1CAICDA 
j flata area 
] address 



> 



j"oi] Obtain current time of day, 
and refresh CSA fields 



7777777777777[ 



Branch to GETTIHE 
Routine 

1. 1.1 1.« 



[oi] Set time adjustment 

indicator, if necessary 



J 03 J Return time of day to user--- 
area, if specified 



i> 







: iU 



e™j 



\ / 

v 
To Caller 



Current Time of Day 



CSATO0P 
Packed 
time of 
day 

csrctodb" 
Binary 
time of 
day 



CSATODTt! 
Timer 

units time 
of day 



JCSAICIND 
j Internal 
I initiate 
lindicator 

Data Area 



Diagram - 1.«.5-CT 



01] ine requested rorm of the time 
of day is obtained through Task 
Control in: 

Binary 

PacJced decimal 



\E 



Uithin the aoove subroutines, a 
test is made to see if the 
current time of day obtained 
from tne operating system is a 
value smaller than a previously 
obtained value, ir so, it 
indicates tnat the operating 
system cIock has oeen reset (at 
midnigat, tor example). An 
indicator in tne CSA is then set 
to cause the lime Adjustment 
program to be initiated in the 
Time Expiration Analysis. 



Label 
ICGTIMEN 



Routine Label 



Current lime of Day 



Diagram - 1.U.5-CI 
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TYPE=GE1/RETBY 






1CAICTR 
Type of 
request 

lcIFcTH - 
facility 
control 
address 



TCAICDA 
Data area 
address 



1CATCPC 
ECT entry 
address 



> 



CSAAIDBA | 
Address of| 
AID chain 



L > 



— ->0 



DFHICP: 










03 


Perform 


GET 


reguc 


St 






processing 










A. Find 


and 


save 


the 


data ■ 



(>s 



B. Release AID storage 



7777777777777f > 



/■ — j\ 
\ i — i/ 



1.2.2 
[02 1 Retrieve the data record 



/«■—- «\ 

< !••! > 

\r—|/ 



TSP 
GET 



03 j Set response code 



{> 



0zz() 





7/0 

/ 
/ 

7777777777//I1/ 



\ / 

v 
To Caller 



AID 

!AIDCHNAD I 
Address ofl 

next AID J 

TCA 

[tcatsdi I 

JData ID | 



ITCAICRC ] 
Response j 
code ] 



TCAICDA 
Data area 
address 



Diagram - ' .M .6-0 i 



A. If the task is associated 
with a terminal, the AID 
chain is scanned for an AID 
created ay a PUT request that 
has the same terminal ID as 
in ttte tasx's associated 
TCTijS and the same 
transaction ID as in tne 
task's associated PCT. If 
found, the data ID is stored 
in tne TCA. If no matching 
AID is found, an end -of -file 
code condition is returned to 
the caller. If the tasK is 
not associated with a 
terminal, tne data ID is in 
the AID pointed to by tne 
facility control address in 
the TCA. 

J02) The data associated with the 
request is retrieved from 
Temporary Storage. If an I/O 
error is encountered in 
Temporary Storage, or if a dummy 
Temporary Storage module exists, 
an appropriate return code is 



l03] If no data area was supplied 

with the request, the data area 
address is returned with the 
response code to the requesting 
routine. 



Diagram - i.<4.fc-o 1 



Data Retrieval 
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csaiceba 
Address of 
ICE chain 

CA 




TYPE=CANCEL 

••••1 > 


1 








ICAICQID 
Request ID 

icaicead"" 

Address of 
assigned 

ICE 

IcItYpI 1 

ICtRQID 
Unique ID 



















[oT] Hatch the request ID 



|77f > 
7777777777// I / 



\\— •/ 



ICTYPANL 

Determine the type 
of request b€ing 
canceled 



fo3l Cancel the specified 
request 



/ l_j \ 

< |«*| > ICUHCHN 

r ~~ n [onchaiiTthe~icE J 

B. Perform 

request-specified 
functions 



/i — 1\ 



/i__j\ 

\\:-\/ 



"Jip 




Release 


1.8.3 


SCP 
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FREEWAIN 


1.2.2 



7777777777// 



7i:> 



Ell-] 



V 

To Caller 



ITCAICRC ] 
Response | 
code I 



ICECHNAD 
Address of 
next ICE 



ICETECA 
Event 
control 
area 



Cancel a line-Ordered Request 



Diagram - 1.«.7-01 



Oil The Ids chain is scanned for an 
ICE witn a matching request ID. 

If no request ID was given with 
the cancelation request, the ICE 
previously assigned to the task 
is uncnained via a subroutine, 
and its storage is released 
through Storage Control. 

02 j This subroutine also directs the 
processing to the appropriate 
cancelation processing. 



8. A WAIT request is canceled by 
resuming the waiting task via 
a Task Control RESUME, 

A POST request is canceled fiy 
turning on the event 
completion uits compatible 
with ooth OS/VS ECEs and 
DOS/VS CCBs in the event 
control area assigned to 
task. 



utin€ Label 



A PUT request is canceled by 
releasing the data stored in 
Temporary Storage and by 
releasing the ICE storage. 

An INITIATE request is 
canceled by releasing the ICE 
storage. 



Label 
ICINCKlii 



Cancel a liae-Oraered Request 



Ciagra 
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Processing 



PAGE 1 OT 



TYPE=H£SET 



1 






CSATODTU 
Previous 
timer 
units tine 
of day 






1 01 J Obtain current time of day 
and 24-hour clock values 

[02] Test for rollback of 

24-hour clock. If no 

rollback occured, refresh 
the CSA fields 

J03j Schedule time adjustment 

program (TAJP) if rollback- 
occured 

jou] Return appropriate return 
code to caller 



7777777777/ 



?<> 



2Z{>@ 



i:i 

\ / 

V 
To caller 



Qzz<> 



0zz(> 



CSABASCL 
Base 

time-of- 
day clock 
value 

CSABASTo" 

Base 

24-hour 

clock 

value 

timer 

units 

CSATODP 
Packed 
tine of 
day 



CSATODB 
Binary 
time of 
day 



CSATCDTO 
Timer 

units time 
of day 



CSAJYDP 

Julian 

date 



CSATADJT 
Time 
adjust, 
amount 

csaicind"" 

Time 

control 

indicator 



TCAICTR 
Return 
code J 



1 



Time-of-Day Beset Routine 



Motes 



fo"T] Current time-of-day clock is 
obtained via a Store Clock 
instruction. If tne condition 
code indicates a clock failure 
return a • clocjt inoperative' 
return code. 

Obtain the 24-hour clock (timer 
units) value from the operating 
system. 

J02l A cIock rollback condition 
exists if the current timer 
units value is smaller than the 
previous timer units value. The 
case clock and timer units 
values and Julian date are 
extablisned and the other 
time-of-day values in the CSA 
are obtained through task 
control (KCP) . A normal return 
code is returned. 

foT| if a clock rollback is detected, 
tne amount of caange is saved in 
the CSA for TAJ P. If TAJP is not 
scheduled it will be scheduled 
by setting tne appropriate 
indicators in the CSA. The time 



Routine 
ICRSCLNG 



adjustment task is initiated by 
the task dispatcher. A 'time 
•adjustment is scheduled' return 
code is returned. 



Time-of-Day Reset Routine 
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PAGE 1 OF 



1CAICRT 
Exit tine 
interval 



Task 

Dispatcher 
1.lfl1. 1 

->mS=' 



CSAICIND 
Internal 
initiate 
indicator 



CSAICEBA 
Address of 
IC£ chain 



] CSASOSI 
I Short on 

storage 
j indicator 



j CSAKCHI 
i Max. task 
i indicator 



— >0- 



— *g 



Adjust the CICS time of 
day, if necessary 



/« — J\ 



5.8.1 
foil Find all expired requests 



0zz{> 



[iCECHNAD n 
Address of] 
[next ICE ~J 



Time Expiration Analysis 



Diagram - 1.Q.9-01 



Notes 



1 1 j If tae operating system clock 

has been reset (at midnight, for 
example), a lasK Control ATTACH 
is issued for tne Time 
Adjustment program. One of the 
indicators which were tested to 
checK for the reset condition is 
tnen turned off to indicate that 
the condition is Deing handled. 

(02] Eacn successive ICE of the ICE 
chain is tested to see if its 
expiration time nas passed. 



1.1.1 

5.8.1 



Routine lafcel 



Time Expiration Analysis 



Diagram - i.'u.g-cv 
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0— > 
0— > 



[03] Clear out all expired 
requests 

A. 




B. 

/L_J\ 

\ r — n / 

C. Bi 
Pi 


ICTYPANL 


77 
77 


Determine the tvpe 
of each expired 
request 


Iconchn" 

Unchain the ici~of 
each expired 
request 

irf orm 

jquest-dependent 

rocessing 



>0 



>0 



Time Expiration analysis 



Notes 


Routine 


Label 


Kef 


Notes 


Routine 


label 


Pet 


ej 










the next time through the 
















Task Dispatcher. 








A. 


Ihis subroutine also directs 
tne processing to the 
appropriate expiration 
function. 








For POT requests, the ICE 
address is used as the 
facility control address. The 
task can then retrieve the 








C 


for expired *AIT requests, 
the waiting- tasK is resumed 
via a Task Control RESUME. 

lor expired £Oi>T requests, 
the event completion bits 
compatible with both os/VS 
ECBs and DOS/VS CCBs ace 
turned on in the event 
control area assigned to the 
tasjt. 

For expired INITIATE or POT 
requests that are not 
terininal-aepenaent, the task 
is immediately initiated via 
a TasK Control ATTACH, 
provided that the system is 
not under stress. If the 
system is under stress, the 
expired ICE remains on the 
ICE chain and an attempt will 
fie made to initiate the tasK 




ICW1XPDN 
ICPSXPDN 

ICINXPDN 


1.1.8 
1.1.1 


data via an Interval Control 
GET request. 

For expired- 

terminal-dependent INITIATE 
or POT requests, the task is 
scheduled for initiation via 
a Task Control SCHEDOLE, to 
synchronize the initiation 
with the availability of the 
terminal. 

The ICE address is passed to 
the Task Control SCHEDOLE 
facilities as an Ain address. 

For each expired request, the 
user-specified exit is taken 
if one was given. 




ICSCAIN 


! 

1 

\ 

1 .' 1 . g 

i 



Time Expiration Analysis 
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Time expiration Analysis 



PAG* 3 0* 



S 



Return to Task Control 
Task Dispatcher 



?7????77777?7( > 



CD 



iTCAICRT ] 
Time I 

remaining 



HTPO"AT 1.1 Diagram - i. a. 9-03 



Notes 



Cm Wnen tne tirst unexpired ICE is 
encountered during the scan for 
expiree requests, the time 
remaining until tnis ICE expires 
is returned to the requesting 
routine (the la sk Dispatcher) . 



Poutine Label *ef 



lime Expiration Analysis 



Diagram - 1.4.9-C'j 
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lap** 



Processing 




01 j obtain ICE storage 



02 1 Hove ICE data 



Pora ICE chain 



*l 



V 

To caller 



ICE 




ICBCHHAD 
Address of 
next ICE 











ICSHEOH - ICE Schedule 



Diagraa - 1. 4. 10-01 



lotes 


Routine 


Label 


Ref 


Hotes 


Routine 


Label 


Ref- 


(02{ Bove ICE data to nev area. 

(dij Berge ICE on chain by expiration 
time. 




ICSCHBDN 













ICI Schedule 



Dlagrae - 1,4.10-01 
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CBA8T: BIPO0001 
PAGB 1 OF 1 



| Terminal 

(Management 

I 1.5 



|Common Control | 
| Line Analysis | 
| 1*5.1| 



|BSC Entry and | 
| Event | 

(Completion | 
lAnalysis | 
I 1.5.2| 



| f. vent | 

| Completion | 
lAnalysis and | 
| Processing | 
| 1.5.31 



|BSC Initialize | (Input Event 
I Terminal scan | | completion 
I 1-5.HI | 1. 



| | Activity 

| j Control 

-5( I 

— • ■ 1- 



I 
.5.6| 



IFASTBE Input 

lAnalysis 

| 1.5.5.1 



(Transaction | |Output Event 

(Initiation | (Initiation 

I 1.5.7| | 1.5.8 



| Task 

| Termination ATI 

| Processing 

I 1.5.9 



(Input Event | (System letvork | 
( Initiation | (Architecture | 
| 1.5.101 | 1.5.111 



Visual Table of Contents 



Diagram — 1.5-01 



112 
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CSATCTEA 
Halt list 
address 



jtype 



CSATCPQfl 
System 
quiesce 
node 



CSAPHLTH 
Pinal 
termina- 
tion 



[£P££PP£F_jJ 



u 



— ./ 



s= 



>B 



DPHTCP: 
foil Initialize line scan 

1 02 j Perfori system termination 
analysis 

] 03 ] Perfori line and timer 
analysis 

(04J Select Device Dependent 
flodule 

1 05 j Analysis for last line 
having been processed 

[Obi Task ccntrol DPHKC 

TTPB=wAIT macro issued 


Ai 1/ 






KCP 

1.1. b 


|07 j On WAIT completion, 
reprocess at step one 





Output 



PAGE 1 OP 1 



k=&. 



BSC 1.5.2 
Other 
1.5. J 



Common Control Line Analysis 



Diagram - 1. 5. 1-01 



Motes 


Routine 


Label 


Ref 


Notes 


Routine 


Label 


Ref 


[bl] The wait list which contains the 




TCCSIR 




For BSC lines 






1.5.2 


addresses of each line entry is 
initialized. 








All others 






1.5.3 


(02} If system is in quiesce mode, 
only writes are performed. 
Quiesce mede occurs when only 




TCCSIH 




} 05^ when the end of wait list is 
reached, then all lines have 
been processed. 




TCCCIBR 




the system termination task 
















remains. 








BD 




TCCCAHAB 
A 




However, all other tasks may be 






STEP b 










gone with a WRITE remaining on 
















the terminal. If final 
















termination is posted a Task 
















Control WAIT is issued. 
















[oTj If tiaer has elapsed, all lines 




TCCCTECB 












will be processed if poseted 
















complete, if interruptible or 
















not initiated. 
















If tiaer has not been posted. 
















then only lines that are posted 
















coaplete are processed. 
















Otherwise advance to next line. 
















1041 Perform Device Dependent flodule 




TCCCLTHA 












selection. 














1 
1 



Common Control Line Analysis 



Diagram -- 1. ». 1-01 
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ra_ 



1CTLESLI 
line . 
initiated 



ICTLEECB 
ECB 

completion 
code 



[TCTLETEA 
( Address 
I active 
f tern 



:!' 



I. 



IXCTLERA 
I Line I/O 

I area 
address 



[Data 1 

Tens 
ficTTEri~~~l 

I lerninal | 



1 1CTLEPLP 
(Poll list 
index 



Q~' 



~->0 



llCTTEEN 

j lerninal j 

I index bytej 



>B 



[oil Determine line type 

A. Switched 

B. Nonswitched 

[02 ] Determine that event has 
completed 

f03J Determine terninal entry 
address 

A. If active terninal is 
specified in the line, 
use it 

B. Conpare first four 
characters of data line 
I/O area to the IDs of 
terminals on this line 
until an equal compare 
is found 

C. Compare the BTAH poll 
list index byte to the 
index entries in the 
TCTTEs on this line for 
an equal compare 




TCA(TCP) 

[Tciiisi ] 
[tcttear ] 



BSC Entry and Event Completion Analysis 



HIPO"AT 1.1 Diagram - 1.5.2-Ci 



Notes 



[oi| BSC lines may have multiple 

device types. Because of this, 
Terminal Control must determine 
which terminal entry is 
associated with an event 
completion fiefore processing the 
completion. 

A. Switched line 

B. Nonswitched line 

[(iuj If eitner the line initiated 

indicator is not set or the ECB 
is not posted complete, exit 
this routine to initialize 
Terminal Scan. 

[ o7] Swi toned 

Non switched 

A. This will ne the means by 
which the correct terminal 
entry will ne determined once 
initial contact is 
estanlisned. On a 
point- to-point nonswitched 
line, the TCTTEAB will be 



Boutine Latel 



TCBSDTAS 
TCBSTES 



loaded pointing to the first 
(and only) entry without 
further testing. 

This applies to switched 
lines only. If the 
transmission code is ASCII, 
the data will be translated 
to EBCDIC before doing the 
comparison. 

If all terminals on a line 
are searched without finding 
an equal compare, the TCP 
search error will be set up 
and TACP attached. If a WRITE 
type operation has completed, 
go to initialize Terminal 
Scan. 



BSC Entry ana Event Completion Analysis 



Diagram ,_ "i7i.~2-c» 
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Input 



Processing 



PAGE 2 Of 2 



TCITETT 

I lerminal | 



> 



[04 1 Determine device type 

foil so to Device Dependent 
module event completion 
entry point 



G™1 




BSC Entry ana Event completion Analysis 



Diagram - 1.5.2-C2 



D. It a Harris type command has 
completed, jo to Initialize 
lerminal bean. 

A failure to rxna an e^ual 
compare aiter reaching the last 
terminal wixi result in setting 
up a lerminal 1'aoie search error 
and attacmng IACP. 

[oT] Switcned 

Nonswitched 



Hef 

TTiTa" 



BSC Entry ana is vent Completion Analysis 



Diagram - >J 5 . 2 - 2 
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Processing 



PAGE 1 0* 



Fo 1 j Determine that line was 

initiated and an event was 
completed f 

[02J Determine that event 

completed successfully 

(03 1 Input event completion 



04 This is an output event 
L — J r 

completion, turn off WRITE 

request 



["05] Free buffer unless READ or_. 
SAVE is on 



\ r — 1/ 



TCTTK 

RcTTEris 1 

JHrite j 

(request ! 



Ttcascsa H 

(Area 

laddress 



isvent Completion Analysis 6 Processing 



Diagram - 1.5.3-0' 



Start/Stop lines will enter from 
1.5.1. tiSC line will enter from 
1.5.2. 







It either the Hue was not 
initiated or tne bCB is not 
posted, go to activity Control. 
Start/stop terminals 2741 and 
7770 are nandled xn terminal 
dependent moduie. 

Determine tnat tne request did 
not complete witn a negative 
response ana tnat the completion 
code was HF*. tinary 
syncnronous terminals, except 
2 770 and 2780 are handled in 
terminal aepenaent modules. 



i 03 j iiXIlO - Ir operation completing 
is a aakU type request. 

[05J It eittier tne tit.hu or saVE hits 
are on, retain tne storage for 
use by tne transaction. 



Routine Label 



MVfcflt Completion Analysis B Processing 
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C CI LB 




ICl'LESIR 1 
Interrupti 
me BEAD j 




12 1LETEA 1 | 
Active 
te ra in al 
entry 








1CTXTPA 1 
Terainal I 
pool | 
aadress | 


1 


1CTLEBEA | 1 
first | | 
terminal ] 
aadress | j 

CCTTE ] 
1C1TET1 ] 



•L 



U" 



[oi] Determine that 

interruptible PEAD 
operation is in progress 

[02] Clear working fields 



7777777777777( > 



[03J Set up terminal entry 
address register 

A. If an active terminal 
entry is indicated in 
line, load its address 
into TCTTEAB 

B. Load first terminal in 
pool into TCTTEAR and 
set full scan indicator 

C. Load first terminal on 
line into TCTTEAR and 
sat full scan indicator 

foul Determine device type 



[05] Go to Activity Control 
entry to DDW 



C> 



777777777777 



7777777777// 



7777777777// 







E™l 



TCSPTA 
(Specific 
I pool 

address 

TCTSPRA 

Return 

address 



TCTTEAR 
Terminal 
entry base 
reg 



use Initialize Terminal Scan 



Diagram - 1.5.«-(1 



j 01) Switched 

Nonswitched 

Lt the operation in progress is 
not an interruptinle READ, go to 
Line Advance. 

02] if the line is out of service, 
perform a R-nSET POLL and go to 
Line Advance. 



A. Switcned and nonswitched 
lines. 



fi. Switched lines only. 
C. Nonswitcned lines only. 



03 



Switched 



Nonswitcned 



Routine Latel 



TCBSDAC 
TCBSNDAC 



Routine Label He± 



BSC Initialize Terminal Scan 



Diagram - i.s7«-C 
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Processing 



PAGE 1 OF 1 



1CILEI0A 
Line I/O 
area 
lad dress 



[iCTLEIOL ], 

l'IO A 

[Data" j 



Input Event Completion 



EU. 



> 



DPHTCP: 

[Oil Hove storage from line 
entry to terminal entry 
chain 



7777> 



tnztzni^ 



[02] Calculate input data J\ 

length and put length in -'--'• — — -\/ 

TIOA 



J03J Execute user input exit 



<s> 



User input exit 
(optional) 



3 



|04J Translate the data from 
line code to EBCDIC 



7777777777// 



E~l 







77 > 

/ 



TCTTEDA 
Terminal 
I/O area 
address 



Ttioatdl n 

Data 
[length J 



Diagram - 1.5.5-C 1 



j 0-1 j This is done in tne 

device-dependent modules. 

1 02J Scan data tor ending character. 
If tne end of the LIOA is 
reached oefore tinding the data, 
set up a message to log error. 

oA k user exit may ne included at 
TCP generation. 

[oaj The translation of input data is 
bypassed for a device on a BSC 
line using EaCOIc transmission 
code. 



Label Fff I 



Input Event Completion 



Diagran - 1.5.5- 
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TCl'lEAR 
fi'ClTE ] 

[iCTTECSS ] J 


[iCTTECAD j 


L ^TCTTEDA ] 



••••I > 

U0-— > 
Q--> 
0-~> 



H-- 



S:^ 



DFbFIP; 
[oTl If no data, return 



[02l Determine if 3270 native r — J \ r — 1 

—J 1 •• 1 > i oa 1 

or 2260 compat mode - if L — 1/ \/ 
neither 



[03] If native, is it 
preselected 

A. Yes - remove (.GT.) and. 
return 

B. No 

[o<*] It's 2260 compat, 

determine screen size of 
2260 



7777777777// \)/ 



|05j Search for user coded SMI | 



A. Not found 

B. Found 

[~06l Calculate relative S PI and 
cursor positions 

A. Cursor before Sfl - 
rearrange input 

B. Cursor follows S1I, no 
problem 



[••I >f08l 



prioA 



FaSIEH Input Analysis 



I Oil Determine if input data exists 
in streaft ( not t*A key, PF key, 
or ENlca *ey witn no data) . If 
no aata, return. 

joTI It terminal is not in eitner 

2260 compat mode or 3270 nativa 
(fields in input) . If neither, 
return. 

[03] If native mode, remove 

preselected character (.GT.) if 
one exists, ana return. 

JOu] Determine ^260 screen sizs oeiug 
simulated ( 240, 48 C, 96 0). 

[05J Search for user coied SMI in 
input stream, if none found, 
return. 

To6] Uhen SHI is found, calculate its 
relative scree address and 
determine if it is nefore or 
after tae cursor. 

a. If cursor is oefore SHI, 



rearrange input data 
DATA, C0PS0R) . 



Routine label 



FASTER Input Analysis 



Diagram - 1.5.5. 1-01 
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PAST£B Input Analysis 



Output 



PAGF 2 0* 2 



[o?] Look for user coded new 

line symbols and put input- 
and put input in correct 
order 



7777777777/'/1 l |/ > 



[£l] 



E™1 
V 

To caller 



f?I0A 1 



— *" i — 1 



Diagram - 1.5.5. 1-02 



07 j Search tor user coded nev line 
symbols, and rearrange data 
stream to eliminate data 
positions netween new line and 
tne next line of input. 

Ob] fieturn to TCP. 



SETHL 

M0VLIHE1 

HOVELINE 



Lab«l I *ff I 



FASXEfi Input Analysis 



Diagram - 1.5.5. 1-C2 
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Iaput 



Processing 



Output 
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ICTTE 

[iCTTOTI ] 
| la sit to be J 
1 initiated j 



TI-.S 






1C1TEOUR 
User 
request 
field 



| ICTTECA 1 

ladaress j 

riciiisi 1 

Wait 

j request j 



-> Q-- 
[ 



Q— = 



[Oil Determine if there is a 
— J r — j\ r — , 

taslt to be initiated ••! > 01 

L — , / \/ 

[02] Is there a WRITE request ? | 1.5.8 

[••"l x >roTi 

L , / V 



[03] If no task is on the 
terminal, free all 



attached terminal storage, I 
then test for pending ATI 



I 1.5.9 

p^ N >("nT| 



r] 



fo*+ 1 Is a read to a specific 
terminal required 

[05l Determine if task should 
be resumed 

fob] Scan the next terminal on 
the line 

A. If last terminal on 
line 



[•• J i N >FpTl 



, 111 

I V 

|To 1.5. 10 




Activity Control 



Diagram - 1.5.6-0' 



Kef I 







Inis routine scans each terminal 
on a line to determine what 
requests are pending. 

IE, on a previous scan. Terminal 
control was nor auie to initiate 
a tasK because tne system was at 
MAX1AS& or aOS, tae tasK to be 
initiated indicator will have 
oeen left on. 

Detection of a tasK. initiation 
will cause a return to the 
.caller. 



J02j This will cause an entry to 
output event preparation. 

J OJJ Tnis routine will clean up any 
storage chained to terminal 
entry arter a tasK has been 
terminated. 

I On] The detection of a BEAD request 
will cause a return to the 
caller * 8. Ttoe SKip flag logic 
routine will be entered. 



DFHTCCS 
OFHXLCUS 



DFHTCCSS 
DFHICCBS 



DFHTCCSS 
DFHTCUBS 



OFHTCCSS 

DfriTCCBS 



TCSSNAS 
TCbSAS 



Routine Label 



Activity Control 



Diagram - 1 .5. 6-Ci 
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1.5.6 or 1.5.9 



> 



5CSAS0SI 1 
SOS 
indicator 1 



CSAKCMI 
HA XT ASK 

{ indicator 



Transaction Initiation 



DFHTCP: 

1 1 J Determine that transaction ' |\ 

'■— ' ..„.„.. w A ?777?77777777( > 
initiation may be done — \/ 



02 I Set up transaction code 



/« — J\ 



zzzzzzzzzzzzz(/ 



User Task Attach 
Exit (optional) 



t£l] 



Issue ATTACH macro 



Task Control 



fb"u] Upd 



ate statistics 



7777777777777[ > 



E-n-| 



TCT^E 

[tctteoti I 
Task to he| 
initiated | 



TCAKCFA 
(Trans- 
action ID 



TCTTE 



ITCTTFOT 

No. of 
Itransac- 
Jt.ions 



Diagram - 1.5.7-C 



loij If a tasK is already on tae 

terminal, return to the caller 
before setting tne tasx to be 
initiated bit. If either SOS or 
MAXTASK indicators are on, 
return to tne caller, leaving 
the tasx. to ne initiated oit 
set. Ibis will cause activity 
control to tikL to this routine 
the next time cbis line is 
scanned. 

Uu\ The transaction ID may be 

obtained from the input data, 
the TCTTE TC. If paging is 
active, cause CSPG to be invoiced 
or oe generated as a result of 
the depression of a PA or PF key 
on a 3270. 

1 03 j If the transaction ID passed to 
TasK Control does not have a 
corresponding entry in the PCT, 
an abnormal return will oe 
passed to TCP. TCP will set up 
an error code tor ACP. 



Routine label 



Transaction Initiation 
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Input 



Processing 



PAGE 1 OP 2 







EC TLB 


1 


5.t 




TCTLBSLI 

Line 

status 








ECTTE 










"" 


> 






TCTTETS 

Terainai 

read-only 






TCTTBBC 

Buffer 

terainai 

bypass 

counter 




TCTTEDA 

TIOA 

address 


0--o 


TIOA 

(tioasal 
I/O area 
{length 


' 


B— > 

0— > 




TIOATDL 

Data 

length 




~>E 


TIOADBA 
Beginning 
of data 
address 






« 


CCTTI 

TCTTBTA 

Terainai 

address 


" 


->0 



01/ Ensure that the line is 
available 



[02] 



Perform terainai status 
and output area analysis 



77777777, 



/« — »\ r- 
< vK/ > - 

11 



_ser Exit 
(optional) 



77777l S '> 



lojj Set up the output data .... . ... ... . . .. . 

1 — ' * u ^ x ^ 77777777777771 > 
area with the appropriate -|/ 

control characters 



]04| Set up data address, „_ w -,-_ w -_— J V 
' — ' , * A 114 ' < 77777777777771 > 
length and polling list in—; 1/ 

line entry 



OS) Translate data froa EBCDIC 
to transaission code 



@e{> 



TCAlTCP) 
JTCBBBSB 

TIOA 






Data 




TCTLE 






TCTLEIOA 
Line I/O 
area 




TCTLEIOL 
I/O area 
length 


TCTLBTLA 
Terainai 
list 
address 










TCTLETEA 

Active 
terainai 
entry 
address 




TCTLBSLI 

Line 

status 









output Event Initiation 



Diagraa - 1.5.9-01 



Botes 


Routine 


Label 


Hef 


Notes 


Routine 


Label 


Ref 


|01| Perfora a BESET POLL, then test 








|0J| This will be perforaed by the 








that the line is net initiated. 








Device Dependent Module iDOfl) . 








If it is initiated, set the 
















SKIP0 flag on. 








(04J This is aone in the DDH. The 

data length will be adjusted for 








]02J Three error conditions are 




TCOAA 




the line control charaters added 








tested in this routine. 








in step 3. 








A. The applications is 

attempting to write to a 
read-only device. 








fo?| A BSC line with EBCDIC 

transaission code will bypass 
this step. 




TCIOTRAM 




B. The user has failed to place 
















the output area address in 
















TCTT1CA. 
















C. The user has set up a data 
















streaa (HOATDL) longer than 
















the area (TIOASAI) he 
















acquired. 
















D. If error found, sat error 
















indicator and attach TACP. 
















The user exit will be 
















executed after the device 
















status test but before the 
















analysis of the output area. 














— t 



Oatpat Bvaat Initiation 
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TCTTEAR 
Terminal 

address 
reg. 


1 




I 













JQti) Issue BTAtl request 



BTAfl R/N nodule 



Pat TCTTE address in line 
active terminal entry and 
■ark line initiated 

Turn on skip flag and 
advance to next ten 




Output Event Initiation 



Diagram - 1.5.8-02 



Notes 


Routine 


Label 


Ref 


Notes 


Routine 


Label 


Ref 


1 0t>| Opon return frcn the access 

aethod, test the return code in 
register 15 to ensure the 
request vas accepted. If the 
return code is nonzero, set up 
output event rejected and attach 
TACP. 

















Output Event Initiation 



Dlagraa - 1.5.0-02 
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Processing 



PAGE 1 OP V 






TCTTESCP 
JDunay 
| pointer 



TCTTESC 
j Address of 
Terainal 
Storage 
chain 



TCTTEIO 
Internal 
operation 
request 



TCTTETS 
ATI flag 



TCTTETT 

Terainal 

type 



TCTTEAB 
Terainal 
entry 
address 

reg 



Jtddcttid 

I Trans- 
action 10 



Task Terainaticn ATI Processing 



[ 01 j Pree any storage chained 
to terainal entry 



< |««| >)0PHSCP 



j 02 | Determine type of 
operation 



[Qjj Issue auto output message 



04 j Attach task 



Tiae-initiated 
transaction, issue Task 
Control AVAIL aacro 
insturction 



1.1.10 



Transient Data 
initiated transaction, 
locate the OCT address, 
then go to TCP 
transaction initiation 



Task initiation 



ITCTTEIO j 
(Auto ( 
(output asgi 
) indicator j 



TCAKCPA 

Pacility 

control 

address 



Diagraa - 1.5.9-01 



(01| Entry to this routine is froa 
the Activity Scan routine. 

If the contents of TCTTESC point 
to TCTTBSCE, there is no storage, 
on this terainal, bypass the 
PBEEHAIB and go to ATI analysis. 

If they are not equal, perform 
the PBEEHAIM of all attached 
storage. 

|02| The setting of the Internal 

Request field and the ATI flag 
vill allow Terminal Control to 
deteralne if there is a task to 
be initiated and the source of 
the request: tiae initiation or 
Transient Data. 



Routine | Label 



Taofc Terainaticn ATI Processing 
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Output 
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TCTLBSI 
(Line 
(initiate 



> 



> 



TCTTEOS 

Save 

indicator 



Length of 
I/O area 



TCPHIHD 

READ 

indicator 



a--, 



— ->a 



DPHTCP: 
Jot j Turn on BEAD indicator 

[02] Tarn on SKIP flag 



[ 031 Input event preparation 



jot) Perfora storage analysis - 
free and obtain storage as 
required 



1777777777777V > 







wznnnp^ 



< |««| > OPHSCP 
^i 1/ 



/• «\ 

\ 1/ 



[051 Set up polling list and 
DBCB for: 



A RIAD to a specific 
terainal 



B. Polling all active 
terminals on the line 



H> 



E=;) 



TCA 






TCPRIMD 

RBAD 

indicator 




TCSPTA 

READ 

terainal 

entry 

address 


TCTTB 






TCTTBCSF 




SKIP flag 


TCTLB 






TCTLBPLA 
Poll list 
address 




DBCB 










TCTLBSI 

Line 

initiated 




TCTLBATF 
Active 
terainal 
entry 









input Event Initiation 



Diagrau - 1.5.10-01 



Botes 


Roc tine 


Label 


Ref 


Rotes 


Routine 


Label 


Ref 


)0l) This function is performed in 
the DDfl. For a dial-up or point 
to point terainal, go directly 
to step 3. 








storage, that it is as large or 
larger than the nimnua line 
area size, and that the user has 
not specified 'save' on his 
buffer. 








For a terainal on a aultipoint 
line, scanning of all terminals 
on the line continues until 
Terainal Scan Termination 
detects the last terainal on the 
line. 








If any of the above conditions 
exist, a GETHAIH vill be done to 
acquire a nev area to read into, 
in addition if the systea is 
SOS, all line buffers vill be 














freed and processing vill 








At this tine, contzol will be 








advance to next line. 








passed to Input Event 
















Preparation. 








[05] The source of the inforaation 
for the polling list depends on 








[02] Perforaed in individual ODfls. 








the type of list the user 
defined at CICS/VS generation. 








(0i( input. Event Preparation vill 
















ensure that the line is not 
















already activated. 
















If activated, I/O vill be 
















delayed until processing on sane 
















line. 
















[04J Test vill be Bade to deteraine 
















that the user has provided 
















Input Event Initiation 










OH 


igraa - 1. 
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Input 
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Ooj Perforn event initiation '\ n 



03 



Advance to next line 



EE~l 



Input Event Initiation 



Diagram - 1.5.10-02 



| JObj Issue BTAH macro instruction. 
| Ensure that it vas accepted. 



Routine Label 



Routine Label Ref 



Input Event Initiation 



Diagram - 1.5.10-02 
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[system Network 1 
| Architecture | 

l l^illi 



fflainline 
IRoutites 

L_ 



ls.,u] L 



Exit Eoutines ] [support 
1.5.1 1 -21 (Routines 



Visual Table cf Contents 



Diagran - 1.5.1 1-01 
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JHainline 
jfloutines 
| 1.5.11.1 



| Dispatcher | | Attach Init. | |Set Logon Start | | Receive-Any 
| (DFHZDSP) | |Table (DPHZAIT) | | (DFHZSLS) | |Co«pletion 
| 1.5.11.1.11 | 1.5.11.1.2| | 1.5.11.1.3| | (DFHZRAC) 



1.5.11.1.41 



| | Activate Chain | 
| | (DFHZACT) | 
I | 1.5.11.1.51 



ISIHLOGOB | (OP1DST 

| (DFHZSlH) | | (0FHZOP1) 

| 1.5.11.1.61 t 1.5.11.1.7 



Dynamic Open 
of VTAM ACB 
(DFHZOPA) 

1.5.11.1.7A 



Dynamic Close 
of VTAM ACB 
(DFHZSHU) 

1.5.11.1.7B 



ISESSIONC 
| (DFHZSES) 
| 1.5.11.1. 



IStart-up Task 

| (DPHZSUP) 

| 1.5.11.1.9 



|Task Attach 

| (DPUZATT) 

| 1.5.11.1.10 



(Application | 
| Request | 
| (DFHZAKQ1 | 
| 1.5.11.1.111 



I Co a aand Bequest | |Send DPASI | 
| (DFHZCHQ) | | (DFHZSDA) | 
| 1.5.11.1.121 | 1-5.11.1.131 



I 



| Receive 
| Specific 
| (DFHZRVS) 
| 1.5.11. 



| Send Response | 
| (DFHZSDB) | 
| 1.5.11.1.151 



, Command 
Response. 
(DFHZSKR)^ 
1.5.11.1.15A 



| Task Detach | |Send DFSTB | 
| (DPBZDET) || (DPHZSDS) | 
| 1.5.11.1.161 | 1.5.11.1.17| 
i 1 i , . 



I 



IGBTHAIB Request ||FREEHAIB || LOCATE | 

| (DFHZGET) ||| Bequest || (DPHZLOC) | 
I 1.5.11.1.18||| (DFHZFBE) || 1.5.11.1-20| 
| •! 1.5.11.1.19|« — » 



I 



IRESBTSB 

| (DFBZRST) 

| 1.5.11.1.21 



DFHZEMW 

Termination and 
Return Logic 
1.5.11.1.27.1 



ICLSDST Bequest | |Resynchroniz— | |DMB Processing | | Automatic Task | | Chaining 



1.5.11.1.221 | 



| |ation (DFHZRSY)I | (DFBZDME) 



1.5.11.1.231 | 



(Initiation 



1 .5. 1 1 . 1 .24 | | (DFHZATI) 
» | 1.5.11.1.251 



I 

(DFHZQOB) t 

1.5.11.1.261 



Error Message ' 
Writer 
(DPHZEMW) 
1.5.11. 1.27 



DFHZEMW 
BID Logic 
1.5.11.1.27.2 



DFHZEMW 

Scnd-VE Response 

Logic 

1.5.11.1.27.3 



DFHZEMW 
Send Error 
Message Logic 
1.5.11.1.27.4 



DFHZEMW 
Purge Logic 
1.5.11.1.27.5 



DFHZEMW 

Exit TCZEMX01 

1.5.11.1.27.6 



I 1 | 



Visual Table of Contents 



Diagram - 1.5.11.1-01 
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v if \l \l u i 



13270 Print Key | 
I (Task Attached) | 
I- (DFHEII) J 

I • 1.5.11.1.281 



3270 Print Key | 

— Copy Program | 

(DFHCPY) | 

1.5.11.1.291 



13270 Unlock 
| Keyboard 
| Program 
I (DFHEKB) 



I 



1.5.11.1.30 



(3270 Print Key \ 
I (No Task | 
| Attached )-(DFHP| 
IHK) | 

I 1.5.11.1.31 I 



| 3270 Uppercase 

(Translation 

| (DFHZUCT) 

I 1.5.11.1.32 



Logical Record 
Prescutation 
(DFHZLRP) 
1.5.11.1.33 



Node Error 
Program Inter- 
face (DFHZNEP) 
1.5.11.1.34 



Read Ahead 
Queueing 
(DFHZRAQ) 
1.5.11.1.35 



Read Ahead 
Retrieval 
(DFHZRAR) 
1.5.11.1.36 



RPL Service 
(DFHZHPSR) 

1.5.11.1.37 



Visual Table of Contents 



Diagraa - 1.5.11.1-02 
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INPUT 



CSA 


| CSATCTBA | 


TCTFX 


| TCTVOAF | 




TCTFX 




TCTVBFQF | 




TCTFX 




TCTVOAF | 




TCTFX 




TCTVVFQF 


TCTVVTHL 







PROCESS 



OUTPUT 



From DFHSIP 



:> 






:> 



[Tjl Establish addressability 



If the VTAM ACB is open call the SETLOGON 
start module. 



If BTAM final quiesce flag is not on, call BTAM 
module. 



If VTAM ACB is open call the "Receive Any 
completion" module. 



If VTAM is being quiesced then call "Shutdown" 
module. 



^> 



Dispatcher (DFHZDSP) 



Diagram 1.5.11.1.1-01 



CICS may be generated with or 
without VTAM. SETLOGON start 
module. 

If BTAM is included, it turns on 
BTAM final quiesce flag after 
executing its quiesce logic; which is 
invoked by CICS terminating, without 
abending transactions. 

Receive Any Completion module. 

VTAM may be being quiesced 
because 

a) CICS is being terminated. 

b) VTAM network is being closed. 

c) CICS Master Terminal operator 
wants to uncouple CICS and VTAM. 



DFHZRAC 
DFHZSHU 



Dispatcher (DFHZDSP) 

Section 2: Method of Operation 



Diagram 1.5.11.1.1-01 
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INPUT 



1 
! 


TCTFX 
TCTVVFQF | 

TCTFX 
TCTVBFQF | 

TCA 




TWATEPF | 
CSA 




CSAOPFA 


CSAATP 







PROCESS 



:> 



=> 



=> 



I Qg I If VTAM has not been quiesced then call Activate 
I 1 Scan module. 



If both VTAM and BTAM have been quiesced set 
system termination flag. 



rZ7| If timer event is posted, clear TCP's next dispatch 
I I time of day field and turn off timer posted flag. 



I Qg I If ATP is waiting, post ATP ECB. 



H 



Wait for a terminal event to complete, or timer event. 







771 If timer event is posted, turn on flag. Then repeat from 
111 Step3. 



OUTPUT 



=> 



CD^ 



| TWATEPF | 

CSA 

| CSATCNDT~~~1 



CSA 

1 CSAATP | 



Dispatcher (DFHZDSP) 



Diagram 1.5.11.1.1-02 



Activate scan module deals with 
outstanding VTAM communication 
requests for a node. 



BTAM will only be quiesced when 
CICS is terminating via DFHSTP 
module, which issues a KC WAIT on 
ECB CSASSI2. When this is posted 
all terminal activity is finished and 
CICS can terminate. 



pjo] DFHKC TYPE=WAIT. 
DCI=TCP 



DFHZACT 



LABEL REFERENCE 



Dispatcher (DFHZDSP) 
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Input 



••••i > 



[cSASITBA ]-~ n /JA] 

fsiTPGCHN 1- — t/ fall— J ~ n 
[ilTPGCPlfJ- "J ^ 



j'SIxPLDST 1 t/Q 

J^illPLDS? - 



0- 



[oTI Establish addressability 
with DFHTCPSV. 



(02J Generate page command 
tat)le. 

[oj] Modify page command code 
in Attach module. 

fou] Search System 

Initialization Table for 
field separator characters 
and place them in Local 
Transaction Code Delimiter 
Table. 



IDFHTIR 1 
jvia V1 

[••••I : 



;'r TT 

via vcor 

j \ 



GD 



Return to caller with 
DFHTCPRT. 



DFH^ATT 
via VCON 



Output 

r 



VAC,V 1 Qf 



Attacn Initialization Taoles (DPHZAIX) 



Diagram - 1.5. 11. 1.2-0' 



Routine Label 



Label I w«=t 



Attach Initialization Taoles (Dx'riZAII') 



niagran - 1.5. 1 1. 1.2-C1 
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|"TCTVRSAP 
JTCTTRSA 



DPETCPCL from 

dispatch 

analysis 



n>B 



0= 



TCTLBPP 

TCTVRMAX 

TCTVRAPL 



:>0 



TCTIVTAM 
TCTBIQSL 



->0 



[tcascsa I — , /[i] 



[OJJ Issue DPHTCPSV for 

caller's environment. 



|02j Turn off SETLOSOH. Start 
required indicator. 



03] Issue SETLOGON, using 
first RPL in pool. 



[04 j Issue Receive Any for each- 
RPL in pool. Zero each 
associated ECB and iark 
each RPL active in CICS 
RPL control byte. 

[05] Post low actxvate chain 
ECB. 

[Ob] DPHTCPRT returned to 
caller. 



-1/ 






TCTPX 






TCT7RSAP 
TCT7RSA 












TCTTSLSP 




JTCT7RAB 
TCTTB 






TCTTRAEB 
TCTBICSL 
TCT7RAAP 












TCT7APCE 






TCTVLPCB 





Set Logon Start (DFHZSLS) 



Diagraa - 1.5.11. 1.3-01 



101] Pirst tiae, control is given to 
this routine by Dispatch Entry 
Analysis when the TCT7SLSP flag 
is set on. Thereafter, Receive 
Any is issued as a completion is 
processed. 

\0l \ Allocate an input area of size 
given in TCT7RHAZ for each 
Receive Any issued. 

|05] The ECB is posted to cause an 
initial scan for work it Any as 
been placed on the process chain 
by emergency restart recovery 
routines. 



Routine Label 



Routine Label Ref 



S«t Logon Start (DPHZSLS) 



Dlagraa - 1.5.11. l.j-01 
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INPUT 



- | tctvrvraI 



RPL 

" | rplusfld" 



PROCESS 



OUTPUT 



c=>a 






Get address of Receive- Any control element pool. 


s 


Point to Receive-Any control element and its associated 
TCTE 


@ 


Check 'active' status of this Receive-Any control element 




A. If not active, go to element status analysis 




B. If active, but ECB not posted complete, get next 
Receive-Any control element in the pool 




C. If active and ECB posted complete, but VTAM 
is in final quiesce, set off ECB and get next 
Receive-Any control element in the pool . 





Get an RPL to be used with this terminal 






Receive-Any (DFHRAC) 



Diagram -1.5.1 1.1.4-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


I I Registers are saved and RPLBAR and 
L°-U NIOABARaresetup 

1 1 Getmain is conditional - if it fails, get 

I 03 1 tne nex t Receive-Any control element 




DFHZRAC 
TCZRACA2 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Receive-Any (DFHRAC) 



Diagram- 1.5.11.1.4-01 



Section 2: Method of Operation 



135 



LICENSED MATERIAL 



PROPERTY OF IBM 



Page2of4 



INPUT 








RPL 

1 




> 


Y 




RPLSEQNO | 


> 




RPLCNTDF | 


y 




RPLBB 1 
RPLEB J 




> 


J 




TCTE 


TCTEIBPC | 






TCTTE 




TCTEDST | 




RPL 


RPLBUFL 
RPLBLEN 


> 







PROCESS 



en 



CI CS Storage 
Control 



DFHSCTYPE=GETMAIN 
CLASS=RPL 



Indicate this RACE not active 



Check Receive-Any RPL and copy it to terminal RPL 



<n3 



CHECK RPL=(RPLBAN) 



nrri Move sequence numBer to TCTE 

Determine if this is a data request ( RU). If so, set ON 
DIP flag 

■^ I 07 I ' f bracket protocol enforced, set up bracket state 



If 3270 data stream, extract Al D and cursor address 










| TCTVRAAF 
RPL 



TCTESQIP 
TCTEMOST 



TCTTEAID 
TCTTECAD 



Receive-Any (DFHRAC) 



Diagram- 1.5.11.1.4-02 







The check is contained in the DFHZHPCH 
macro, which expands into a VTAM check 
unless authorized path SRB support is 
being used; in which case the expansion 
also checks for an 'SRB Mode Run' RPL 
and calls LERAD/SYNAD routine if 
necessary. 

If an error is detected on the check, a 
test is made to determine if the user 
field of the RPL points to a valid TCTE. 
If not, TCTTEAR is loaded with the 
address of a dummy TCTE. The terminal 
is then chained to NACP for error 
processing 



If a data flow synchronous command is 
received, see Receive-Any command 
processing 



If bracket protocol is enforced and the 
RPL indicates no begin bracket and no 
end bracket, a bracket RACE error is 
returned to the LU. If an end bracket 
but no begin bracket is indicated, the 
error is passed to NACP 



If a new TIOA must be acquired, a 
Storage control GETMAIN is performed. 
If it fails, TCTVRAM flag will be left on. 
If successful, TCTVRAM is turned off 
and the data moved to the new TIOA 



REFERENCE 



Receive-Any (DFHRAC) 



Diagram- 1.5.11.1.4-02 
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INPUT 



PROCESS 



TCTE 
| TCTTESC | 


TCTFX 




TCTVRMAX 
TCTVRMIN 
TCTVIAL 




RPL 




RPLEX 

RPLRRN 

RPLFME 




TCTTE 




TCTTETT 
TCTTEFIB 




TCTTE 




TCTTE AID | 







Receive-Any (DFHRAC) 



A. RAI A may be changed to a TIOA. 



B. How Tl OA must be obtained. 
r~l Initialize non-data portion of TIOA to I'O'. 

I I Determine level of response requested, 
nri Set OFF data-in-progress. 








Perform uppercase translation for a 3270, if required. 



<x^ 



ENTRY=DFHZATT 

1.5.11.1.32 



If CLEAR is received from a 3270, clear the cursor 
address in the TCTTE. 



=^ 









=> 
=> 






W////// ) 



W//////A ) 





TCTTE 






TCTTESC 
TCTTEDA 






TIOA 






TIOASCA 






TCPRA 






TCTVRAGF 












TCTVRAM 






TIOA 






TIOADBA 






TCTE 






TCTEIFME 
TCTEIRRN 
TCTEIERN 












TCTEIDIP 
TIOA 






TIOADBA 
TCTTE 






TCTTECAD 











Diagram- 1.5.11.1.4-03 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


rrn If no response is requested, an error is set up 
I I and the terminal entry is chained for 

processing by NACP, unless the terminal is 

a 3270. 




TCZBACB2 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Receive- Any (DFHRAC) 
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Page 4 of 4 



INPUT 



TIOA 


Input data 
TCTFX 




TCTVBMAX | 




TIOA 




TIOADBA 1 




TCP LA 




TCTVRFCF 
TCTVRAGF 
TCTVRGMF 
TCTVRAMF 
TCTVRQEF 




TCTF 




TCTEIOLD 







^> 






^> 







Indicate that more data is required or call Attach 



dO 


DFHTZATT 




1.15.11.1.10 


Get new Receive-Any input area (RAIA). 


ox> 


CICS Storage 
Control 




DFHSCTYPE=GETMAirs 
CLASS=RAIA 



Initialize the Receive-Any RPL with new RAIA data. 



Indicate that this 'Receive-Any' not active. 



Check for end of RACE pool. 

A. If not end, go process next one. 

B. If end, return to caller. 



Perform deferred processing analysis and give control 
to mainline at appropriate point. 



^> 



ny$ 



•> 



To caller 
1.5.11.1.1 





TCTFX 






TCTVRAGF 






RPL 






RPLAREA 
RPLBUFL 
RPLUSFLD 






TCTFX 






TCTVRAA 





Receive-Any (DFHRAC) 



Diagram- 1.5.11.1.4-04 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


rm 


If a stand-alone FMR is received, 








r\ 


indicator TCTRIDHC is set and no task 










is attached. 








r^ 


If the system is at SOS, a new RAIA 




TCZBACBG 




l ,0 i 


will not be obtained. The TCTVEAG 










will remain on. 








im 


If the system is at MAXTSK, the 




TCZBRCAP 




rl 


Receive-Any will be left inactive. 










If authorized path SRB support is being 


DFHZHPSR 


1.5.11.1.37 






used, the RPL service routine is 










invoked to reissue the request to VTAM. 








Fl 


This routine provides a redrive mechanism. 




TCZBACJ1 




If, on a previous pass, a function could 










not be performed because of resource 










contraints, an indicator in the RACE 










shows where control should be returned 










in the mainline. 









Receive-Any (DFHRAC) 



Diagram -1.5.1 1.1.4 -04 
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Processing 



Fron 
Dispatcher 



r=i — -^ 



a 



=r 






1>S 



TCTBASBA 



;>s 0: 



I 1 J Update Activate Process 
Chain froa Activate 
Queuing Chain. 



[oil Locate next TCTTE on 
process chain. 

[ nTj analyze TCTTE to determine 
desired function. 

K. If WACP, add TCTTE to - 
R&CP queue. 



B. If PREEHME, link to 
FREERMR routine. 



]_,> 



/ 

FREEBAIE 



If GETRMN, link to ■ -»\ 

••••I > 

GBTRAIE routine. ' ,/ 

JTO GETRAIE 

If asynchronous return 

of control, load 

asynchronous return 

entry point. 



If Send Response, link 
to response routine. 



"> 



• ••• | > 

To Send 
Response 



TCTFX 






TCTTKSBP 




TCTTPOAC 


TCTTAPCC 


TCTYRA2 


TCTYIU1 


TCTTE 






TCTEHACP 












TCTEICXA 




TCTEICEA 


TCTTE 






TCTEASRA 




TCTEICRC 









Activate Chain [DPfmcT) 



Diagraa - 1.5.11. 1.5-01 



|03| TCTTE is analyzed in the 
following order: 

IfACP QOE 

PREEHAIH LIRK 

GBTHAIR LIRK 

ASTHC RETORR Ill LIHE 

SEED BBSP. LIRK 

S BSSIOHC LIRK 

SEED ASTIC LIBK 

SERD STNC LIBK 

RECBITB SPEC LIBK 

BESUHB. . . . . RACRO 

ERR URIC 

DETACH.., LIRE 

ATTACH LIRR 

LOG RESPORSE QOE 



DPHZERB 
DPRZDET 
DFRSATT 



Rotes 

RESETSR LIRR 

CLSDST ..LINK 

SIHLOGOR LIRR 

OPRDST LI RK 

RESTRC . . .LIRE 

ATI LIRE 



Routine 



DFHZRST 
DFHZCLS 
DPHZSIH 
DPHZOPR 



ftctlvat* Chain (DPHSACT) 



Diagran - 1.5.11.9.9-01 
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PROPERTY OF IBM 



Processing 



Output 



^0 



[tchsta* } - 



JTCTBBHR ]- 



Z> 



P. If SESSiowc, link to 
SESSIOMC routine. 

G. If RSTWC connand, link 
to send 1ST MC cob land 
routine. 

H. If Send Sync data flow, 
link to Send Sync data 
flow routine. 

I. If Receive Specific, 
link to Receive 
Specific routine. 

J. If Resuae, issue KCP 
resale. If no task to 
resume, schedule UUCP. 



K. If EHW request, link to 
Brror nessage writer. 

Do not queue TCTTE on 
NACP chain. 



•> 



To Send 
"sync Cnd 



•» > 

JTo Send 
ISync DP 



I Spec 



L 





1 
1 


re* 


1 


/ 

\ 
/ 


TCAHSTSK 

rCTTE 






TCTBICRH 






TCTEICM 




TCTETPCS 











activate Chain (DPHZACT) 



Diagran - 1.5.11.1.5-02 



Routine Label 



Routine Label 



Act! vat* Chain (DPHMCT) 



Diagra» - 1.5.11.1.9-02 
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Impat 



Processing 



Output 



JTCTEICDT )- 



I 




[TCTEICOB [—./[i] ^—.y 



vRR 



L. Tf Detach, link to 
Detach routine. 



H. If Attach, link to 
Attach routine. 

H. If Log Response, add 
TCTTF to Response 
Logger queue. 

0. If RESETS?, link to 
BESETSR routine. 

P. Tf CLSDST, link to 
CLSDST routine. 

Q. If SIHL0G0H, link to 
STHLOGON routine. 

H. If OPWDST, link to 
OPHDST routine. 

S. If RESYHC, link to 
RESTHC routine. 



••••1 > 
I To Attach 



>B0 : 



• ••I > 

IESETSR 



• ••1 > 

:lsdst 



••••iN 

ITo %/ 
JSIBLOGOK 

-To~0PWDST 

"V 

!\tach 
ESTHC 




Activate Chain (DPHZACT) 



Diagran - 1.5.11.1.5-03 



Routine Label Ref Notes 



Routine Label Ref 



Activate Chain (DPHZACT) 



Diagraa - 1.5.11.1.5-03 
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I»Mt 









Activate Chain (DFH2ACT) 



T. If Automatic Task 

Initialization, link to 

Atftoaatic Task }••••< > 

Initialization routine. To ATI 



(0»| Analyze disposition of r~ -"N 
TCTTE. If RESCAR desire*, *^!/ 
repeat TCTTE analysis. 



|05j Otherwise, reaove TCTTEs 
froa Activate chain. 



>|03 
V 



TCTTE 
JTCTBBACT I 

TCTPX 
JTCTTAA2 | 



Dlagraa - 1.5* 11. 1.5-09 



Bontine Label Ref i Motes 



Activate Chain (DPHZACT) 



Routine Label Ref 



Diaeraa - 1.5.11.1.5-09 
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Processing 



Output 



- /Q0 r^> 






=^Q 



[ 06 j If UUCP needs to be 

attached, issue a KCP 



| 07 \ If Response Logger needs 
to be attached, issue a 
KCP attach. 

f OB 1 Return to TCP dispatch 
routine. 



:>HH=f> 


TCA 


JTC1KCP1 J 




Jtcukcti 1 


0=^> 


TCTPX 
JTCTfHACP | 


s— s 


( TCTTRLGF J 



Activate Chain (DFHZACT) 



Diagran - 1.5.11.1.5-05 



Votes 


Routine 


Label 


Ref 


Rotes 


Routine 


Label 


Ref 



















Act irate Chain fDFRZiCT) 



Diagraa -1.9. 11. U5-M 
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Oatput 



PAGE 1 OF 



1 "f. 



[tcteiopd j 



Ttcterpla ]- 

JTCTENIBA I 



[tcascsa j 

TCTFZ 

[tctyacba ) - 



I r 



XD 



Ifl 



[01 j Save caller's registers 
and validate SIHLOGON 
request. 



If an PPL is available, 
initialize it. If not, get 
one and initialize it and 
remove TCTTE from Activate 
Processing chain. 



|0J} Issue SIHLOGON aacro 
instruction and take 
appropriate action if 
non-zero return code. 



h 



l_v 



jil 



TCTPX 






TCTVRSR3 




TCTTE 






TCTEVRC5 






TCTEICIP 
TCTBRPLA 
TCTEICGR 
TCTBICRP 




RPL 






RPLACB 
RPLARG 
RPLLBN2 
RPLEXTD1 




TCTTE 






TCTEVRC5 
TCTEICIP 
TCTEICSL 











SIHLOGON (OPHZSIH) 



Diagram - 1.5.11. 1.6-01 



Notes 



[ 1 1 Check. Activate Scan request bits 
to insure this is a valid 
SIHLOGON reguest. 

[oTj A storage control GETHAIN is 

used to acguire RPL storage. If 
it should fail, an RPL GETHAIN 
is queued for that TCTTE. 

The DFHZXRPL nacro instruction 
is issued to insure integrity of 
an existing RPL. 

[oj] If register 15 is negative, 
LERAO or SYNAD have done the 
error processing. Return. 

If register 15 is X«P0« the 
TCTTE is placed back on the 
Activate queue for another 
atteapt at SIHLOGON. X'FO* aeans 
7TAH has experienced a teaporary 
storage problea. 

If register 15 is none of the 
above, the TCTTB is queued to 
MACP for error processing. 



Routine Label 



Routine Label 



SIHLOGON (OFHZSIH) 



Diagraa - 1.5. 11. 1.*-01 
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PAGE 1 OP 1 






Ttctvesa p { - 



[tcascsa j r 



Register 15 



[tctvrsap 

|TCT¥RSRG 



Oil Save caller's registers 
and validate OPHDST 
reguest. 



'02j If an RPL is available, 

initialize it. if not, get 
one and initialize it and 
remove TCTTE from the 
Activate queue. 



V 



|03 | Issue OPNDST macro 
instruction and take 
appropriate action if 
non-zero return code. 



L^> 






TCTPX 




JTCTVRSRS 
TCTTE 






TCTEVRC5 






TCTBICIP 
TCTERPLA 
TCTEICGR 
TCTBICRP 




RPL 






RPLLBM2 
RPLOSPLD 




TCTTE 






TCTBICIP 
TCTEVRC5 











OPHDST (DPHZOPH) 



Diagram - 1.5.11. 1.7-01 



lOIJ Check Activate Reguest bit to 
insure OPNDST should be done. 

[02? A storage control GETHAIN is 

used to acquire BPL storage. If 
it should fail, an RPL GETHAIN 
is queued for that TCTTE. 

The DFNZXRPL macro instruction 
is issued to insure the 
integrity of an existing BPL. 

1 03 j If register 15 is negative, 
LERAD or SYNAD have done the 
error processing. Return. 

If register 15 is X«F0», the 
TCTTE is placed back on the 
Activate Processing queue for 
another attempt at OPHDST. X^O* 
means VTAfl has experienced a 
temporary storage problem. 

If register 15 is none of the 
above, queue the TCTTE to NACP . 



Routine Label- ( Ref 



OP ID ST (DFHtCfH) 



Diagram - 1.5.11. 1.7-01 
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INPUT 



| tctvacba"" 



DFHMTPD PROCESS 



OUTPUT 



fe> 



5 



^ 



) oe ) « « ^> 



0TT> 



DFHZOPA: 

| 01 | Establish addressability. 

I 02 I If VTAM ACB already open then exit 

njgl Open ACB. If unsuccessful set a return code and 
I 1 return to caller. 







^7] Call SETLOGON start module and set flag to 
1 denote call from DFHZOPA. 



Add one to statistic. 



I 06 I Set °P en fla 9 and reset Dynamic Close flag. 
• ' Set zero return code. 



Return to DFHMTPD. 



(Xxn 



cz>® 



=> 



=> 














Register 15 

TCTFX 
TCTVDOF 






TCTFX 
TCTVDOC 

TCTFX 






TCTVOAF 




TCTVSCSW 




Register 15 









Dynamic Open of VTAM ACB (DFHZOPA) 



Diagram 1.5.1 1.1. 7A-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


1 04 1 SETLOGON start module. 


DFHZSLS 







NOTES 


ROUTINE 


LABEL 


REFERENCE 











Dynamic Open of VTAM ACB (DFHZOPA) 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL PROPERTY OF IBM 



INPUT 



from 
DFHZDSP 



Page 1 of 2 





TCTFX 




TCTVSHUF | 
TCTFX 




TCTVDCF 


TCTVVTHL 




TCTFX 




TCTVDMTE | 




CSA 




CSATCTBA | 
TCTFX 




TCTVVFT | 




TCTTE 




TCTEVTSS | 




TCTFX 




| TCTVVTHL | 







PROCESS 



Z3 



$ 



^ 



^ 



If not the first call from the Dispatcher module 
then check session status. 



I m I If VTAM is being halted then check session status. 
LizJ If VTAM was cancelled close ACB. 



Put a dummy TCTTE on DFHZNAC error queue to 
generate a message. 







Scan all VTAM TCTTEs and put each active TCTTE 
on either the Activate Scan queue or Node Abnormal 
Condition Queue so that closing of the session can 
start. 



OUTPUT 



CD(J 



g^5 





TCTTE 






TCTEVRC5 




TCTEDMRB 




TCTTE 
TCTEVRC8 
TCTTE 
TCTEICCT 





Dynamic Close of VTAM ACB (DFHZSHU) 



Diagram 1.5.1 1.1.7B-01 



ROUTINE LABEL REFERENCE 



Dynamic Close of VTAM ACB (DFHZSHU) 



ROUTINE LABEL REFERENCE 



Diagram 1.5.1 1.1.7B-01 
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Page 2 of 2 



INPUT 



TCTTE 
| TCTEVTSS 



TCTVOAF 



| TCTVRVRA | 



PROCESS 



:> 



E^> 



I 05 I Indicate ithat all TCTTEs are being quiesced. 



0Scan all VTAM TCTTEs. If not inactive, delay 
closing ACB. 



If all TCTTEs are inactive and ACB is open, then 



Reset all VTAM ECBs. 



Reset shutdown flag. 

Set flag for VTAM quiesced. 



Return to Dispatcher. 



OUTPUT 



de 



m 





TCTFX 
TCTVSHUF 

TCTFX 
TCTVOAF 

TCPRA 
TCTVRAEB 

TCTFX 






TCTVSHUF 




TCTVVFQF 









Dynamic Close of VTAM ACB (DFHZSHU) 



Diagram 1. 5.1 1.1.7B-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 






* 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Dynamic Close of VTAM ACB (DFHZSHU) 



Diagram 1.5.1 1.1. 7B-02 
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Input 



[tcterpla 



TCTEISDT 
TCTEISTS 
TCTEICLR 



[JPLAC TIV ) " 



Processing 



Output 



PAGE 1 OF J 



1 



:i_^ 



E— >' 



>S 



01 J Save caller's environment • 
via DPflTCPSV and set" on 
SESSIONC request bit. 

[02 j Determine RPL status. 
A. If no RPL present 



I 

B. If FPL present but — 
active, set error code, | 
put to NACP queue and 

exit. 



t;> 






>B 



[EJ 



Determine SESSIONC command 
request. 



A. Start data traffic. 

B. Clear. 



Set and test sequence 
numbers. 



1 



If none of the above, 
set error code, put to 
NACP queue and exit. 



^)0 



TCTPX 






TCTVRSAP 
TCTVRS14 
thru 
TCTVRS10 




TCTTE 




JTCTEICSC 

TCTTE 






TCTENSD 




TCTEINQS 


TCTEIHQS 


TCTEVBPS 


TCTEACR1 


TCTEACR2 


TCTEVIPS 










TCTEVRC5 






TCTEICIP 
RPL 






RPLCNTSC 






RPLIBSQ 
RPLOBSQ 
RPLIBSQV 
RPLOBSQV 











SESSIONC (DPH2SES) 



Diagram 



.5.1 1. 1.8-01 



Routine Label 



Routine Label 



SESSIOHC iDFHZSESJ 



Diagram - 1.5.11. 1.8-01 
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Processing 



Output 



PAGE 2 OP 4 



TCTVRSAP 
TCTVRS14 
thru 
TCTVBS10 



JT CASCSA | - 



I [ o*a] Note that coaaand in — 

I progress and reaove froa 

I activate gueue. 

1 )05) Issue VTAfl SESSIONC aacro — 

) instruction. 



> 0-: 






If coapleted 
unsuccessfully 

Return to caller via 
DPHTCPRT. 

I i 07 i Issue storage control 
GETHAIN for an RPL. 

A. If unsuccessful, 

request RPL GETflAIN via 
Activate Scan and Exit. 



p! n 

V -1 ' 0= 



B. If successful, 

initialize RPL and 
TCTTE fields and 
continue processing. 



> S : 

El >Fon 

— ■'B L - J 



i v [I]: 

1 — i/ V 



/ 






RPLECB { 
RPLVTPL2 
RPL0PT1 
RPLBXTD1 
RPLSRTTP 1 


\ 
/ 


*PL 




RPLOSPLD | 
RPLACB ( 
RPLARG j 


\ 
/ 

\ 
/ 

\ 
/ 


1 




TCTEVRC5 ) 

PCTTE 
TCTBHDID | 


TCTBRPLA j 






/ 




TCTBICGR 1 
TCTEICRP j 


\ 
/ 








TCTEICSC j 
TCTEISDT 
TCTBISTS ( 
TCTEICLR J 


/ 






TCTBICIP J 



SESSIONC (DPHZSES) 



Diagraa - 1.5.11. 1.8-02 



Routine Label 



Routine Label 



SESSIOIC iDPBZSES) 



Diagraa - 1.5.11. 1.8-02 
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SESSIOHC (OPHZSBS) 



Processing 



Error analysis of 
unsuccessful VTAH 
SESSIOHC. 

A. LEBAD/SIHAD handled 
error, clean up and 
exit. 



00 

n>0 



B. Handle own error, queue f*«| >fb~bl 
to Activate chain and I 



E| 



| N >|ob] 
/ v 



C. Assuae ?TAH is dead, -— — A n 



put to RACP queue and 
exit. 



Ei>^ 



output 



PAGE J OP 3 



Diagram - 1.5.11. 1.0-03 



]08J YfAfl return code (in register 
15) will be «PP«, «P0«, or »20» 
■•aning, respectively: 

- error condition has already 
been handled by LEBAD/STHAD 

- handle your own error 

- TTAH is dead 



IgfftXOIC tBPB2SBS» 



Diaaraa - 1.5.11.1,9-04 
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Processing 



PUGF 1 OF 3 



[fCTEILPW |- 

TCTTE 

(tcttftt J - 






fni J Save registers in caller" s- 
TCA. 

frf>7} Reset the E-STGHAL 
indicator. 

J03J If an FHH is not present 
|0i»l If EOD not supported 
(•051 If INBFHH=ALt, in PCT 



77777777777771 >l 



sfc 



E«>fo«? 



I^v^ 



E->^ 



06) If IVBF1H=E0D C ; in PCT and , K , . 

L— i UT| >|ob1 

EOOS indicated in Ft!H *• — , / V 



|07j Remove FHH from initial 

TIOA. 



To«l Tf logical record 

L J 

presentation, issue 
Terminal WRIT. 

[ oi| If a YTAH 3T70 printer, 

enforce message integrity 
option. 



JTCUCCC* j 



TCTTP 

[tct* fhhi ] 



Start-up Task (DFHZSOP) 



Diagraa - 1.5.11. 1.9-01 



Notes 



fo~T ] Control is received directly by 
a BALR 1a, 1«i the first time the 
task is dispatched, following 
its creation by ATTACH. This 
subroutine operates under the 
user's TCA. 

OBJ KC Bait is non-dispatchable. The 
task is resumed when deblocking 
has completed. 



09 1 YTAH 3270 printers reguire to be 
run in definite response mode. 



Routine Label Ref 



J 



start-mp Task (DFHZSUP) 



Diagram - 1.5. 11. I.9-01 
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PACT. ? 0* 



^> QQ - J > 






JTCTESQIL 








JTCTEJTD 








Q=^ 


ItCTTEDA 



\ JCATCSPL [ ,/[E][il ,/ 



^>0 



\Vn If message protection is 
requested or message 
journaling, obtain a JCA. 



D3 



Por message protection 
output, obtain a D»E. 
Enqueue a TCA DRE chain 
and nark as cancelled. 
Store D»t address in 
TCTTK. 



1 12] For message journaling on 
input nessages, issue a 
journal request for TTOA 
data and aessage sequence 
number. 



("131 For input aessage 

protection, issue journal 
request to system log for 
TIOA data and sequence 
nusiber. 



L_J 




1/ 




TCA 






TCADWtBA 












r [tcajcaad 
.jca 






1 

1 


JCAJPi'ID 
JCALDATA 
JCAADVTA 






PCTTE 




TCTEDWFA 






3WE 








DWESYHNA 






DWFSVflTD 






nWETCIPS 






DWEHDL 






DVJEHODFN 






I JCA 






acnTrvso 






JCAJPTID 






JCASPL 






JCAADATA 






JCALDATA 






JCAJFID 















Start-up Task (DPHZSOP) 



Diagran - 1.5.11.1.9-02 



1 10 1 Any class of aessage protection 
or journaling vill reguire a JCA 
potentially so it is always 
allocated. 

j 1l) Output aessage protection 

potentially requires a OWE so it 
is always allocated. 

I 12| Automatic journaling of input 
■essages is performed here for 
the first task oriqinatinq 
■essage. 

1 1 3 1 Thput aessage protection 

requires that the first aessage 
and its sequence nuaber be put 
to the systea log for 
availability to emergency 
restart-process routines in case 
of catastrophic systea failure. 



Routine Label 



Start-«p Task (DFITCSnp) 
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LICENSED MATERIAL 



PROPERTY OF IBM 



Processing 



PAGE 1 OP .1 



{"tioatHl I- 

TCTTE 

[tctuisab ]- 

TCA 

("tcapcpi I- 







g=-> 



30 



[3 



If a VTAN 3270 requires a 
standalone Begin Bracket, 
get TTOA and write a null 
write control character. 



MSI Transfer control to user's 
program. 




start-up Task (DFRZsnp) 



Magram - t- S. 1 1. 1.9-1* 







Por a VTA* 3270 terminal, if no 
data has flowefl since the 
session started, a standalone 
Begin Bracket is sent with 
definite response via a DFHTC 
TYPE=(WRITE,WAIT) macro. 



J15| DPHZSnp invokes program control 
to transfer control to the 
user's program, whose name was 
in the TCA when DFH"*SUP got 
control. 



Start-up Task (DPH7.S0P) 



Diagram - 1.5.11. 1.9-03 
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CICS/OS/VS Program Logic: Description 
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Input 



From Activate 
Scan or 
Receive Any 



[1 



(tctectd I " 



TCTPX 

[tctyacba j- 



">0 

0=s 



->0, 



s : 



30 

-,/0 



>00= 



[31= 
-,/0 



[oTJ Establish addressability 
with DPHTCPSV. 

[oT\ Issue TPACB macro 
instruction. 

[ol| If HAXTASK or sos flags 
are on, add TCTTE to 
Activate Chain and redrive 
Attach. 

foT] If there is no BPL 

available, acquire one 
conditionally. 

A. If not successful, add 
TCTTB to Activate Chain 
and redrive Attach. 

B. If successful, store 
RPL address in TCTTE 
and set up PPL. 

["0?| If RESYRC/RFSTABT in 
progress, set CSRS 
transaction ID in TCA. 

fofil Establish addressability 
~~ to TIOA and TCTTE-Ext. 



0— > 



i>0 
00 



0=^ 






=;>00 
=;>0 






0— 



Task Attach (DPHZATT) 



30 



TCA 






TCATCTRO 




TCATPF1 


TCATRF2 


TCTTE 






TCTEEIDO 






TCTEICPP 




TCTEICAT 










TCTEPPLA 






RPL 






RPLAPq 




RPLACB 


RPLLEW2 


TCA 






TCAKCTI 











Diagram - 1.5.11.1.10-01 



[Ot j DPHSC TYPE=GETHAIH CLASS=RPL 

Register 15 is set to 8 for 
Activate Scan if TCTTE is added 
to chain. 



Task Attach (DFHZATT) 



Diagram- 1.5.11.1.10-01 
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iBf Ut 



Processing 



Cutput 



Cfllfl: BICCCCC1 
EAOf 2 CI 5 



I 



Si\i 3 

[rata 
[length 



B£G 1 



lata 1- 

fointer | 



IlCAtl* 1- 



C1E1DST | 
IC11E11 J 

C1T1AJD j 

Jl3' 



CT1E 

"iciiii 



[C7] If the 11CX certains an 
FHH # update data tcicter 
tc joint pest FEB and 
reduce data lcngtt by 
length of 1KB. 



[oi] If a 32"/C data stieai, 
test tci sfacxt icad cf 
AID. 



ZZZ7777777777I 




K> 



fcil If a 327C teninal, set-up J\ 

L — * u . »I ~>777777777777( > 
tc attach ttansactior CSEK 1/ 



if All is toi EBlbT key. 

[To] If the TCllE contains a 
next transaction It, skip 
further hit tests. 



[;7p>n7| 

i V 



[711 It a 22TC teninal. 

A. Send a vzite ccnaand tc. 
reset the keyboard if 
AID is for CIEIB key. 



1 
| 

7777777777// 



?<> 



lasK Attach (CFfcSAll) 



BEG 3 

fcata 
[length 

BEG « 




Data 
| pointer 




TCA 




Jtcabcti 
tctte 






TCTTEBHI 

TCTISD»I 

TCTEICSS 

TCTEBIF 

TCTIICDT 

TCTEICIT 








. ... . .. 
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Boutite Latel fief Ictes 



Routine tatel Bef 



Task Attach iLFtiAll) 
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LICENSED MATERIAL — PROPERTY OF IBM 



ID£ Ut 




Processing 



[icuiic~ ]— -,/p 



0~- 



01] 



777777777777 IJ\ 

" *V 

777777777777 | 







E. Clear lap cai(. 

If lie is a transaction 
IE, set-up tc attach task 

Cetenine if task to 
attach is trci BEE. 

A. If teriinal is in 

display status and not 
fees CSIG, set CSIG ir 
1CI. 



E. If tenital is not in — -»\ ri 

-./Ill 

display status, net *— ' 

fees CSIG, but paging 

conand is in 1IC1, set 

CSiG ir 1C*. 

Deternine it task to 
attach is ficu data. 



H- 



A. If there is a next 
transactict IE in the 
icite, icie it to ic* 
and set indicator in 
ICIII. 






las* attach {Liblhll) 



TCI 
[iCAKCTI 1 



flCUKCTI ~~~j 
TCTTE 
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fioutirc Laid 



lask Attacn (LitiAllj 



Routine Label Bet 
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ICSASST2 



>0 



^>0 



JTCAKCBC \- 



c 



-00= 

->0 



( "tcaiccti j - 

TCTTE 

(t ctbbpla ( - 

Itcttetea I- 



SB 

->0 



->0 



0-> 



Processing 
I 



B. Otherwise, qet 

transaction ID fropi 
data. Tf length is 
positive and the data 
length is not saaller 
or oriqinal length 
positive. Bore 
transaction II) to TCA. 

{ 15] Tf shutdown situation and • 
there is a transaction 
list, bat transaction ID 
is not in table, set CSAC 
in TCA. 

[TfTj Prepare TCA and attach 
task. 

1 17 j If attach was not 

successful, free PPL, add 
TCTTE to Activate Chain 
and Redrive attach. 



0— ,> 



03 



Establish addressability 
to new TCA and danay 
register 11 to point to 
Start Dp task. 



Task Attach (DFHZATT) 



>0g=^> 




PC A 




TCAKCFA 




0=^> 






TCASCSA 




0=^> 






TCATCRS 




v^S = ^ > 


TCAPCABR 




->0. 

0^> 


PCTTB 






TCTERPLA 






TCTEICRP 




TCTEICAT 


»V, > 


TCTEICGP 


,g 


TCTTEKT 


">0 
">0 






1 



Diagraa - l.S. 11. 1 . 10-Oft 



[TT] The SEHD SYNCH DATA FLOW in 
DFHZCP is called. 

j 16 j Link to user exit before Attach, 
if reguested. 



El 



DFHSC PREE1AIN 



Register 15 is set to 3 for 
Activate Scan. 



Routine Label Ref 



Task Attach (DFHZATT) 
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Input 



f cSATCHAC | — ,)fo[ [p]- W 



| CS AS SI 2 j ,/jTJ 



: 



19 j If shutdown situation, and- 
transaction ID is CSAC, 
set error code in TCA. 



| 20) Establish addressability 
to tctte extension and 
clear CSPf? requests in 
TCTTE. 



0=0 



[2TJ If task ID caae froa TCTTE- 
and transaction is not 
permanent, clear oat 
transaction ID. 

(22] Update statistics, turn 
off Attach flaq, take 
TCTTE off Actirate Chain 
and return to caller. 



>0 



^ J >1 



r 



r~" 



03 



Tf task requires logical • 
record presentation, set 
up request flags to cause 
DPTOSSOP to issue Terainal 
WAIT. 



^ 



V 

To caller 











TCTTECA 












TCTTEPGB 




TCTTEKI 


TCTTE 






TCTTETC 












TCTTEOT 




TCTEICAT 


1 


• 

■ 
TCTTE 






TCTEILRW 




TCTTEBF 




TCTBTWCS 




TCTEIT.BP 











Task Attach (DFHZATT) 



Diagraa - 1.5.11.1.10-05 



221 DFHTCQtlE QUE=ACTTVATE CHAIN=OPF 



Task Attach (DPHZATT) 



-Jl 
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INPUT 



| TCTEVTAM | 
TCA 



TCTTE TCA 


TCTEVTAM 


1 TCATPCPT 1 


TCTTETT 




TCTTE FPA 







FROMDFHTC „■„,.-- 
MACRO PROCESS 










Save caller's registers in TCA. 



Issue DFHICTYPE=ENTER. 



Establish addressability to TCT prefix, TCTTE, and 



If system is in Quiesce mode, issue ABEND. 



For VTAM Readbuf requests, convert to a WRITE, 
READ request with Readbuf modifier. 



If required, convert VTAM PRINT requests to Readbuf 



requests with Print in Progress flag on. 



rrri If there is a Write request in the TCA and a Write or 
< ' Read request in the TCTTE, or if there is a Read 

request in the TCA and a Read request in the TCTTE, 

issue an ABEND. 



OUTPUT 



:> 



TCA TCTTE 


TCATPCPT 


|tcteprp J 


TCATPOWR 




TCATPORR 


TCATPONT 


TCATPOSR 







Application Request 



Diagram -1.5.11.1.11-01 







Prevent TCP from being abnormally 
ended as a runaway task. 



DFHPC TYPE=ABEND, ABCODE= 
ATCA 



For VTAM 3270, a Readbuf command 
must be sent to the lodgical unit. 



VTAM PRINT requests require a.READ 
BUF to be done unless the terminal is 

A. A3650 Host conversational 
3275 

B. A 3275 without the PRINT 
feature 

C. A 3270 Compatibility Mode 
logical unit'. 



DFHPC TYPE=ABEND,ABCODE=ATCA 



REFERENCE 



ROUTINE LABEL REFERENCE 



Application Request 



Diagram -1.5.11.1.11-01 
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INPUT 








TCA 




TCATPOS2 


> 




TCATPCS2 






TCATPOC3 


TCA 


TCATPOS2 1 




> 


J 


V 


TCTTE 


TCTTECL | 






1 TCTEVTAM 1 








> 






V 


TCA 


r. 


> 






TCATPRS | 




> 







PROCESS 



OUTPUT 



Move request flags from TCA to TCTTE. 







A. Turn off Sync and Async Override flags. 



If ATP device and there is a wait request in the TCA, 
a wait is issued. 



A. If BTAM device, BTAM logic is activated. 

B. If VTAM device, VTAM logic is activated. 

Clear wait request in TCTTE, restore registers and 
return to caller via DFHIC TYPE=EXIT 



=> 



GO© 



p 



To macro 

instruc. 

caller 



Application Request 



Diagram -1.5.1 1.1.11 -02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


r~~~| A. The Sync or Async override 

I °8| flags may have been set by the 

previous TC macro instruction. 

r— I DFHKCTYPE=WAIT, DCI=TERMINAL 





TCZARQ92 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Application Request 
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Page 3 of 9 



INPUT 



TCA 




TCTTE 


TCATP0S2. 




TCTEOMJF 




TCTTEDA 








TIOA 


TCTEIMJF 


|tioatdl 


TCTE1NEC 




TCTEOCCF 









^> 



I ... I If there is a Write request in the TCA and journaling 
L_i toe 



to do, the I/O area is journaled. 



I 1 If there is a Read request in the TCA and journaling 

Li£J to do, the Resume. Operating request is set, a Waite 
is issued, and the I/O area is journaled. 











If there is a Wait request in the TCA, a Wait is issued. 



If there is a Write request in the TCA and 
CCOMPL = NO was specified and the 
transaction was not authorized to control 
outbound chaining indicators, an ABEND 
is issued. 



OUTPUT 



•> 



To macro 

instruc. 

caller 



JCA 




JCAADATA 




JCALDATA 


TCTT2 




|tcttesr 









Application Request 



Diagram -1.5.11.1.11 -03 



















DFHKCTYPE=WAIT. DCI=TERMINAL 
Return to macro instruction caller. 



DFHPC TYPE <= ABEND, ABCUDE - 



Appliotton RaquMt 



Diagram — 1.5.1 1.1.11 -03 
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INPUT 





TCA 




TCATPLDM 






TCTTE 




TCTELLDC | 




TCTPX 




TCTVSLDC | 







PROCESS 



s 







If there is a Write request in the TCA, Send flags are 



A. If an LDC request in the TCA and terminal 
local LDC list is 0, set LDC in TCTTE to 0. 



Otherwise, establish addressability to the? 
terminal local LDC list. Search list looking 
for match of LDC's. 

A. If no match, set LDC in TCTTE to 0. 

B. If match and LDC is not 0, move code 
to TCTTE to 0. 

C. Otherwise, establish addressability to 
system LDC list. If no match there, set 
LDC in TCTTE to 0. 



If there is journaling to do, the I/O area is journaled. 



OUTPUT 



Z 

Z 








TCTTE 






TCTEWDAI 




TCTE1CSS 










TCTEVLDC 






JCA 






JCAADATA 




JCALDATA 









Application Request 



Diagram -1.5.1 1.1.11 -04 



s 



A. Process as normal Write. 



Application Request 



Diagram -1.5.11.1.11 -04 
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I TCATPFRC I 





TCTTE 




TCTEAIOF 


TCTEORAF 




TCA 




TCATPOS2 | 







iHZ> 



H 



Is FORCE=YES specified? 



Yes: Set request flags. 



A. If data or command in progress, queue TCTTE 
on active chain. 



B. Otherwise, send E— Signal. 



<n3 



OUTPUT 



r~7] If task is Sync or macro override is Sync 
I 19 l and there is no Wait in the TCA, and if 

there is no Read in the TCA, Send is 

chained. 



A. Otherwise, if there is a Read in the TCA, Receive 
and Read/No Wait Chained flags are set before 
Send is chained. 



HTM 





TCTTE 






TCTECSA 




TCTEIESG 


TCTESIDO 




TCTTE 






TCTEIRCS 




TCTEIRNW 









Application Request 



Diagram -1.5.1 1.1.11 -05 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


j 71 The TCTTE is added to the Activate 
I I chain before exciting this module. 




TCZARQ90 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Application Request 
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INPUT 






PROCESS 


< 




TCA 
TCATPOS2 | 






1 1 If it is a deferred Write or if the Write is Async or if 
L — I there is a Wait request in the TCA, check for command 
or data in progress. 

A. If not on and terminal is not out of service, 
call send routine. 

B. Otherwise, set Send flag and add TCTTE to 
chain. 

I 1 If there is a Read in the TCA and a previous Write 

I ^ I request did not terminate a chain, an ABEND is 
issued. 

I 22 I Set the Receive flag and reset the indicators FMH 
' 1 Present, Chain Terminated, and EODS Detected. 

[Tri If read-ahead data is available call DFHZRAR and if 

II data is retrieved go to Read Logging Routine. 




^> 








> 












TCTTE 




TCTE1CIP 
















TCTEIDIP 






TCTEAIOF 




TCTEORSF 








TCTEVTP 




> 








TCTTETS 


K 


> 


TCTTE 


■ " V 


TCTEIECN I 




> 








TCTTE 




TCTERADF | 


v > 








^ 





TCTTE 
TCTEICS 






TCTTE 






TCTETRCS 




TCTEFMHI 


TCTEEOCI 


TCTTEEOD 









Application Request 



Diagram -1.5.11.1.11 -06 







Send Sync data flow. 



DFHPC TYPE=ABEND, ABCODE = 
ATCH 



Application Request 



Diagram -1.5.1 1.1.11 -06 
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Pl»7off 



PROCESS 



gUD 



5JH> 



If there is a Read in the TCA and if task is Sync or 
macro override is Sync and there is no Wait in the 
TCA, Receive is chained and Read/No Wait Chained 
flag is set. 



If command or data in progress, or if the terminal is 
out of service, Receive is chained. 



A. Otherwise, Receive is called. 



If logging is supported and the Sync flag is on, or if 
there is a Wait in the TCA, the Resume flag is set, a 
Wait is issued, and journaling is done if required. 



OUTPUT 



^> 



=> 
=> 





TCTTE 






TCTEIRCS 




TCTEIRNW 




TCTTE 






TCTEICRP 




TCTTESR 




JCA 






JCAADATA 




JCALDATA 









Application Request 



Diagram - 1;M 1.1.1 1-07 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


IT"! TCTTE is added to Activate chain. 
| _ | A. Receive Module. 


DFHZRVS 


TCZARQ90 
1.5.11.1.14 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Application Request 



-1.8.11.1.11-07 
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INPUT 



|TCATP0S2 I 



PROCESS 



OUTPUT 



B=z> 



After journaling, check again for logging supported. 
If Sync flag is also on, the TCTTE is added to the Log 
chain. 



If there is a Wait in the TCTTE and the Read/No Wait 
Chained flag is on, the flag is turned off and the Read 
journal logic is entered. 



Slf there is I/O in progress or if there is a Wait in the 
TCA, the Resume flag is set and a Wait is issued. 







If read - ahead queuing is required call DFHZRAQ 
and retry the Send. 



If Wait on Signal not required. 



If inbound Signal not supported ABEND. 



EZX3 








TCTTE 
TCTEIRNW 






TCTTE 






TCTEICRR 




TCTTESR 









Application Request 



Diagram — 1.5.1 1.1.11 -0 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


El 


DFHTCQUE QUE=LOG 








a 






TCZARQ60 




a 


DFHKC TYPE=WAIT, DCI=*TERMINAL 




TCZARQ78 




s 


Read - ahead queueing will be required 




TCZARQ8A 




if the Send failed because the receiver 










is in transmit status. DFHZSDS will 










set bit TCTERAQ to indicate this. 








.tu 


DFHPC TYPE=ABEND, ABCODE= 
ATCO 




TCZARQ8C 





Application Request 



Diagram — 1.5.1 1.1.11 -08 
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INPUT 



PROCESS 



OUTPUT 




A. If signal was received already, ABEND 



B. The following-indicators are set: 

Waiting on Signal, Task waiting at a terminal, 

and Activate Scan for Resume 

and a non-dispatchable Wait is issued. 



Signal Received indicator and Wait on Signal request 



Flag TCTEIWGS shows that task is actually waiting 
I 34 1 n E-Signal. 



If the Freemain Activate bit is on, Freemain is called 
1 35 J an d a wait is issued. 



cz^ 





TCTTE 






TCTEIWGS 




TCTESR 


TCTEICRR 




TCTTE • 






TCTESIGI 




TCTEIWSR 









Application Request 



Diagram- 1.5.11.1.11 - 



A. DFHPCTYPE=ABEND,ABCODE= 
ATCO 

B. DFHKCTYPE=WAITDCI = 
TERMINAL 



DFHKC TYPE = WAIT, 
DCI = TERMINAL 



LABEL REFERENCE 



Application Request 
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Processing 



Prom CTYPF 

Macro 

Instruction 






]=iJ g=;> 



TCTPX | 

[tctivtam I^^i /[Tj 

TCTTE I 

| TCTEEID |- 

I TCTEEID 1 | 




H=» 



i 11 Save caller^s registers in- 
TCA. 

[02] Establish addressability. 



03 i If terminal is not a VTAM 
terminal, task is abended. 



G3 



Issue DFHIC TYPE=ENTER. 



1 5 f Issue TRACE macro 
instruction. 



(Obi If RESETSR Activate flag 
is on and acceptable, 
RESETSH is called. 

A. Otherwise TCTTE is 
chained. 

[o7] If a CCMHAMD or RESPONSE 
request for a 3270, ABEND 
task. 



1 

1 

1 

1 

1 

1 


1 ' 
1 

1 
1 
1 
1 



TYPE=ABEND 



1 081 If a command or data are 
in progress, the TCTTE is 



CTYPE Command Beguest iDFHZCRQ) 



Diagram - 1.5.11.1.12-01 



j 03 | DFHPC TYPE=ABEND AECODE=ATCF 

VOOJ Prevent TCP from being 

abnormally ended as a runaway 
task. 

[Obj RESETSR 

foT) ABCODE=ATCP 



otitine Label i Ref 



CTYPE Command Bequest (DEHZCRQ) 



L._ 



Diagram - 1.5. 11.1. 12-01 
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-<>0] 






— J\ 
— •>/ 



i±=i: 






j 09 J If Send Sync Data Flow, 

and logged on, OPNDST, and 
Start Data Traffic bits 
are on, and the terminal 
xs in service, the Send 
DFSYN nodule is called. 

A. Otherwise TCTTE is 
chained. 

[To] If Send Async, and Logged 
On, OPNDST, and Start Data 
Traffic bits are on, and 
terminal is in service, 
the Send DFAST module is 
called. 

A. Otherwise TCTTE is 
chained. 

[TT] If SESSIONC, and Logged 
On, and OPNDST bits are 
on, and terminal is in 
service, the SESSIONC 
module is called. 

A. Other TCTTE is chained. 

fTJj If Send Response, and 
Logged On, OPNDST, and 




CTYPE Command Request {DFHZCRQ) 



Diagram - 1.5. 11.1. 12-02 



[0?) Send Sync DFSYN 

A. TCTTE chained. 

[To] send Async 

A. TCTTE chained. 

[TT] SESSIONC 

A. TCTTE chained. 



CTYPE Command Reguest (DFHZCRQ) 
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i— t 



Pr oc easing 

\ 



Plot 3 at i 



=»0 



0=^> 



M 



G3- 



Start Data Traffic bits 
are on r the Send Response 
aodule is called. 

a. Otherwise TCTTB is 
chained. 

If not running under TCP's- 
TCA and a task is attached 
to TCTTB, the Besune flag 
is tamed on. If I/O is in 
progress, a BUT is 
issued. 

A. Otherwise TCTTB is 
chained. 



|1*| Bestore registers and 
return via DBHIC 
TTPB»BXIT. 




CTTPB Coaaand Beguest (DBRZCBQ) 



Jiagraa - 1.5.11.1.12-03 



J12| Send Besponse 

I. TCTTB chained. 



|13| DPBRC TTPB«WHT is only issued 
after a nodule has been called. 



Routine Label Bef 



•and Bequest (DFHSCBQ) 



Diagraa - 1.5. 11. 1. 12-tJ 
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LICENSED MATERIAL 



PROPERTY OF IBM 



TCP SAVE 



Processing 



fTCTBRPLA ) 



'H> 



|01| Save caller* s enTironaent • 
•ith TCPSAVE. 

|02] Test for outstanding 
response. 



Ej/ 



1 03 1 If valid coaaand, priae 
RPL accordingly- 
Other vise, queue TCTTE on 
UUCP chain. 

Joaj Set coaaand in progress 
flag and issue TTAR A sync 
Send for coaaand. 



[05! Restore caller's 

environaeht with TCPRBT. 



Output 



?SSPi1PT' 



^> 



-A 

-1/ 



t='> 



TCTPX 






TCTTRSAP 




TCTTRSA 




RPL 
















! 


TCTTE 






TCTECIP 





Send Asynchronous Coaaand (DPHZSDA) 



Dlagraa - t. 5. 11. 1.13-01 



■ otes 


Routine 


Label 


Ref 1 


Rotes 


Routine 


Label 


Ref 


|03| Event coapletion vill be checked 
vhen the list is scheduled. The 
requestor of this routine is 
responsible for issuing any task 
control ■alt or Asynchronous 
Be suae reguest that aay be 
required. 






~ 








. * 


Send Asynchronous coaaand (DPHZSDn) 










Dlagraa 


- 1.$.tt 


;iM4n 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL — PROPERTY OF IBM 



INPUT 



PROCESS 



rE 



H 



Save caller's environment and turn on Receive 
Specific activate bit. 



Check for possible entry error conditions. 
If overlength data error condition 



All other error conditions set appropriate error code 
and put on NACP queue. 



njT] Check for outstanding response. 



COI 



Send Response 

1.5.11.1.15 



If data is required to attach a task and Chain 
Assembly is not in progress, check for TIOA space 
and eventually acquire new TIOA 



?=> 



E33 





TCTFX 






TCTVRSAP 




TCTVRS 14 
THRU 
TCTVRS 10 




TCTTE 
TCTECRS 






TCTTE 
| TCTEVRC5 











Receive Specific (DFHZRVS) 



Diagram -1.5.1 1.1.14-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


1 — H Error conditions checked for are: 

LEI 

NIB disabled 

CLSDST scheduled 

RPL missing 

RPL busy 

Overlength data 

Read to TCTTE in Receive status 

Task bracket protocol violation 




TCZRVSQS 
TCZRVSQS 
TCZRVSQA 
TCZRVSQC 
TCZRVSD2 
TCZRVSQE 
TCZRVSQG 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Rflceive Specific (DFHZRVS) 



Diagram -1.5.1 1.1.14-01 
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LICENSED MATERIAL — PROPERTY OF IBM 



Page 2 of 4 



INPUT 



PROCESS 



If Batch protocol and not in Receive mode, then 
perform turnaround. 



Remove TCTTE from activate chain, set activiate scan 
flag for Receive Specific and Data in Progress flag. 



Issue VTAM SEND macro to send a stand-alone RU 
carrying CD and requesting definite response. 



Hjjjn If SEND operation not yet completed, return to caller. 



|qq I Otherwise, VTAM schedules the corresponding exit. 



OUTPUT 



1 



% 





TCTTE 






TCTERCS 




TCTEIDIP 









Receive Specific (DFHZRVS) 



Diagram -1.5.1 1.1. 14-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


| 05 I Turnaround is performed by sending 

I 1 a stand-alone RU in definite response 

mode carrying CD. 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











Receive Specific (DFHZRVS) 



Diagram -1.5.1 1.1. 14-02 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL — PROPERTY OF IBM 



Page 3 of 4 




PROCESS 



OUTPUT 



SGet address and length of TIOA to be used for VTAM 
Receive. 



Issue VTAM Receive and check for errors. 



e^ 



RECEIVE 
RPL=(RPLBAR) 



Analyze VTAM error. 



If LERAD/SYNAD handled error 



If must handle own error, put TCTTE on Activate 
chain. 



Else set VTAM is dead error code and put on NACP 
queue. 



'/////////> > 



'/////////A ) 



^ 



y////////A ) 








TCTTE 
TCTTEDA 

RPL 






RPLAREA 




RPLBUFL 




TCTTE 






TCTEVRC5 


I 









Receive Specific (DFHZRVS) 



Diagram- 1.5.11.1. 14-03, 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





If authorized path SRB support is 


DFHZHPSR 




1.5.11.1.37 


being used, this invokes the RPL 










service routine to interface to VTAM. 








[«] 


Return code in register 15 after Receive 


TCZRVSQ2 






macro instruction has following meanings: 










R 1 5 = — No abnormal condition 


TCZRVSP2 








R15 = -1 - Error handled by 


TCZRVSQ8 








LERAD/SYNAD routines 










R15 = X'FO' - An error occurred that 


TCZRVSQ2 








the module must handle 










R15 ='X'20' - VTAM has terminated 


TCZRVSQ4 








abnormally 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











Receive Specific (DFHZRVS) 
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LICENSED MATERIAL — PROPERTY OF IBM 



PROCESS 



OUTPUT 



c 



TCTVRS 14 
THRU 
TCTVRS 10 







Get TIOA large enough for complete message. 



<H> 



CICS STORAGE 
CONTROL 



DFHSC.TYPE=GETMAIN 



Move received data from old TIOA to new TIOA. 
Freemain old TIOA. 



77"] Issue VTAM Receive to get reset of data and check 
for errors. 







CO 



RECEIVE 
RPL=(RPLBAR) 



0Set appropriate return code, restore user's 
environment and return to caller. 



•//////////> > 



^ 



'/////////$ 



% 





TCTTE 
TCTTEDA 






TIOA 
TjOATDL 






TIOADBA 
RPL 






RPLAREA 




RLPBUFL 










REGISTER 15 


I 









.Receive Specific (DFHZRVS) 



Diagram -1.5.1 1.1.14- 04 



NOTES 


ROUTINE 


LABEL 


REFERENCE 











NOTES 


ROUTINE 


LABEL 


REFERENCE 











Receive Specific (DFHZRVS) 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL — PROPERTY OF IBM 



Processing 



r [tcterpla 1 ,/f"p1 



ft-,. 
I— ■/ 



TCTBIRRN , /Icl 

TCTEITUP I 1 •— ' 

TCTRIRSf j j 

TCTEIEXN ( 



[*\=0 



0=; 



|01 I Save caller's environment 
via HPHTCPSV and set on 
Send Response Bequest bit. 

[02~\ Determine FPL status. 

A. If no RPI present 



">0EJ— ' 



IS 1 



f^NfOTl 



R. If RPL Present But 

Active, set error code. 
Put to NACP queue and 
exit. 

[oil Determine requested 
response tyoe. 



If negative response, set 
SEND node. 

fn«n Issue vi-ah 'SEND' macro 
instruction. 

A. If completed 
unsuccessfully 



00 



->s 



L : 



: AS<® 



Send Response (DPHTBSDR) 





TCTFX 






TCTVRSAP 
TCTVS1Q 
thru 
TCTTPS10 






PPL 






RPLVTPL2 
RPLPDRK2 




^ 








TC*BIS>ID 




1> 








RPLVTPL2 

PPLOP^I 

RPT.SRTTP 













Diagram - 1.5.11.1. 15-01 



Routine Label Ref 



Routine Label Ref 



Send Response (DPRZSDR) 



Diagram - 1.5.11.1.15-01 
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LICENSED MATERIAL — PROPERTY OF IBM 



Processing 



TCTTRSAP 
TCTTRSH 
thro 
TCTTRS10 



^> 



Send Response (DPBZSDR) 



(05J Set off Request bits. iv -_-___ — 1\ 

0=^> 
0^> 



J 06] Return to caller via 

DPHTCPRT with return code. 

\. = Good 

B. • = Rrror 

C. 8 x Brror 

1 07] Issue Storage control 
GBTHilR for an RPL. 

1. .If unsuccessful, 

request RPL Getaain via 
activate scan and exit. 

B. If successful, 

initialise RPL and 
TCTT1 fields and 
continue processing. 






ZZ1 

UT|>I06| 
4-1/ \/ 



0=^> 
0=J> 



JTCTBTBC5 | 
(TCTBICSR | 
]TCTBTSP,ii [ 



TCTBIRRI 
TCTEIPHB 
TCTBIRSP 
TCTBICSR 



JTCTBBDIP 



RPLOSPLD 

RPLICB 

RPLftRG 



TCTBIRRR 
TCTBIPHB 
TCTBIBSP 
TCTBICSR 



Diagraa - 1.5.11.1.15-02 



Routine Label 



Routine Label 



Send ■•■posse (DPRZSDR) 



Diagraa - i.5. 11.1. I5-R2 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL — PROPERTY OF IBM 



Processing 



08 J Error analysis of 

unsuccessful TTEH •SEHD 1 



R. LER AD/ST HUD handled 
error, clean up and 
exit. 






B. Handle own error, queue 
to activate chain and 
exit. 

C. issaie TTAH is dead, 
put to RACP queue' and 
exit. 






ejni^i 




Send Response (DFHZSDR) 



Diagrau - 1.5.11.1,15-03 



| OB | ¥T&H return code (in register 
15) will be «FR«, «R0» r or • 20» 
leaning respectively: 

K. Brror condition has already 
been handled by LERRD/SYllftD. 

B. Handle your own error. 

C. TTAH is dead. 



Bo at in e Label 



Send Be spouse (DP HZ SDR) 



Diagrau - 1.5.11.1.13-09 
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LICENSED MATERIAL — PROPERTY OF IBM 



INPUT 



PROCESS 



OUTPUT 



^ 



TCTEIRRN 

TCTEIFME 

TCTEKCA 

TCTEKNEG 

TCTEIEXM 



=>S 



RPL 



Command Response (DFHZSKR) 



=> 



5cr> 



|T7"| Save caller's enviroment via DFHTCPSV and set on 
I I Send Response Request bit. 



I 02 I Determine RPL status. 
A. If no RPL present 



B. If RPL Present But Active, set error code. 
Put to NACP queue and exit. 



=>E®=> 



m=^ 



EDI 



03 Determine requested response type. ^LfJ 



If negative response, set SEND mode. 

I 04 I Issue VTAM 'SEND' macro instruction. 
A. If completed unsuccessfully. 



:> 



:> 



LTD 



TCTFX 



TCTVRSAP 
TCTVRS14 
thru 
TCTVRS10 



RPL 



RPLVTFL2 
RPLFDBK2 



RPLVTFL2 

RPLOPT1 

RPLSRTYP 



Diagram - 1. 5. 11.1.15A-01 













NOTES \ 


ROUTINE 


LABEL 


REFERENCE 


\ 


\ 







NOTES 


ROUTINE 


LABEL 


REFERENCE 











Command Response (DFHZSKR) 



.Diagram- 1. 5. 11.1.1SA-01 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL — PROPERTY OF IBM 



IWPUT 



PROCESS 



TCTPX 



TCTVRSAP 
TCTVRS14 
thru 
TCTVRS10 



Command Response (DFHZSKR) 






o 



05 Set off Request bits. 







Return to caller via DFHTCPRT with 
return code. 

A. = Good 

B. 4 = Error 

C. 8 = Error 



I 07 | Issue Storage Control GETMAIN for an RPL. 

A. If unsuccessful, request RPL Getmain via 
activate scan and exit. 



B. If successful, initialize RPL and TCTTE 
fields and continue processing. 



OUTPUT 



^ 



TCTEIRRN 
TCTEIFME 
TCTEIRSP 
TCTEICSR 



RPLUSFLD 

RPLACB 

RPLARG 



TCTEICER 
TCTEICRP 



TCTEIRRN 
TCTEIFME 
TCTEIRSP 
TCTEICSR 



Diagram - 1.5. 11. 1.1 5 A-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 











NOTES 


ROUTINE 


LABEL 


REFERENCE 











Command Response (DFHZSKR) 



Section 2: Method of Operation 



Diagram- 1. 5. 11.1.15A-02 
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LICENSED MATERIAL — PROPERTY OP IBM 



INPUT 



PROCESS 



OUTPUT 



["jjjn Error analysis of unsuccessful VTAM 'SEND'. 



A. LERAD/SYNAD handled error,clean up and exit 



^>B 



B. Handle own error, queue to activate chain and exit. | 



[p5 



C. Assume VTAM is dead put to NACP queue and exit. 






Command Response (DFHZSKR) 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


1 o« 1 VTAM return code (in register 

1 1 15)willbe*FF', *F0\ 20 

meaning respectively: 

A. Error condition has already 

been handled by LERAD/SYNAD. 

B. Handle your own error. 

C. VTAM is dead. 









Command Response (DFHZSKR) 
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Diagram -1. 5. 11.1.15A-03 



NOTES 


ROUTINE 


LABEL 


REFERENCE 
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CICS/OS/VS Program Logic: Description 
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|C3RTCTBI "| ZI^/[H [T| *> 



(tcifchiu I — ,/[T| 



^>Q 



^>Q][11=^> 



[ tctteki """] ,/[d] 



1 1 1 Save caller's reg inters in- 
TCJl. 



EU 



lasae OFHIC TTPE=BRTER. 



^> 



[031 Establish addressability 
to TCT Prefix, TCTTE and 
HPL. 



lonj Issue TRUCE aacro 
instruction. 



[05] Set OFF log first after Kr-, 

sync. If WB was disabled ' LJ 

by EACP, turn off Detach 
flag and return to caller. 



: 

0— > 



1 061 If data or coanand are in 
progress and there is a 
Receive reguest in RPL, 
Continue Specific is set 
and RESETSR is called. 



: 



:>b 



TCA 




JTC1TPHS 

TCTTE 






TCTRSRB 






TCTEICDT 






TCTTEKI 




TCTEIC1T 




TCI 






TCHTCTBQ 




TCATRP1 


TCRTRF2 


TCTTE 
JTCTBEIDO 






TCTBISBC 




TCTEICDT 









Task Detach (DPHtDBT) 



Diagraa - 1.5.11.1.16-01 



[02) prevent TCP froa being 

abnoraally ended as a runaway 
task. 



ED 



RESETSR nodule. 



The TCTTE will be chained to 
re drive detach. 



Task Detach (DFOTDBT) 



Diagraa - 1.5.11.1. W-01 
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LICENSED MATERIAL 



PROPERTY OF IBM 



Input 



Processing 



0— > 



|07 ) IfTCTTE is in use with 
DFHZEHJf, chain Detach 
request and return. 



08] If unprocessed data in 
pipe, link to Error 
message Writer. 



153 



^ 



V 

To caller 



V 

1 DFHZEHW 



"> 



Otheraise, if TCTTE is not- 
scheduled for UUCP, the 
flags Detach, Read 
activate, Read-In Request 
Field, Task Read Request, 
Resune Activate, Resuae 
Operation, Text Option, 
Exceptional Input Received 
Indicator, Exceptional 
Input in Progress, Print 
in Progress, and Readbuf 
Request are all turned 
off, an! the DUE pointer 
is cleared. 



^0 



TCTTE 






TCTEPUB 




TCTESRB 


TCTESEH 









Task Detach (DFHZDET) 



Diagraa - 1.5.11.1.16-02 



Routine Label 



Routine Label 



Task Detach (DFHKDET) 



Diagraa - 1.5.11.1.16-02 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL — PROPERTY OF IBM 



Processing 



0=^> 



^> 



:=F>0 



( BPLBEQ ~] ,)[b] 



fio] If there is a task to 

Attach, tarn off task to 
Initiate , tarn on Attach 
flag and return (to BBS) . 

If chain assembly, reset - 
'Chain asseably in 
progress* flag. 

If logical record 
presentation aas requested 
by task, free I/O-area of 
input nnit (LIOl), reset 
address and offset fields, 
'Deblocking active* flag 
and all deblocking request 
and status flags. 



EEj>l#» 



0- 



=^>0 



TCTTB 






TCTEICkP 




TCTEILBP 


TCTBLBT1 


TCTELBOF 


TCTBLBPF 


TCTTB 






TCTEICDT 




TCTEIBCS 


TCTBBSPI 


TCTTEBB 


TCTBICBB 


TCTTESB 


TCTBDBB1 


TCTTBBTB 


TCTBTBII 


TCTEIIIP 


TCTBIPtP 


TCTTEBBI 









Task Betach f9r«BDBT) 



Diagraa - 1.5.11.1.16-03 



03 



The TCTTE will be chained to 

drive the attach aodale for BBS. 



Bovtine] Label 



I Lab 



TCtOTr»OI1.5.11 
j. 1.10 



Task Betach (DPBBDBY) 



Biagraa - 1.5.11.1.19-03 
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LICENSED MATERIAL — PROPERTY OP IBM 



Input 



Processing 



Z> 



TCTTB 



=F>0 



H=J> 






TCTBIIHB | 1^00 »' 



Task Detach (DFRZftBT) 



,/0 



Output 



[ll| If outbound processing 

chain state is set r queue 
TCTTB on KaCP chain. 

1 12j If task running on a BLU - 
terainates nornally, 
indicate to Send routine 
to assuue SBBD node. 

p3j If there is a Write, the - 
Send routine is called 
unless terainal is out of 
serYice, then TCTTB is 
chained. 

[ill If Send vas not successful- 
or if successful but I/O 
is in progress or send is 
on, turn on Detach and 
return. 



;>0 



i>'0 



0^> 

0— > 



TCTTB 


1 


(TCTBISBa 

TCTTB 

| TCTBICDT 

TCTTB 






TCTBICSS 




'TCTBlDlI 










TCTB1CR2 




j TCTBBPL1 
TCTTB 






TCTBIDM 




TCTBICSS 







Diagraa - 1.5. 11. 1. 16-0e 



03 



■ACP error code X'9C*. 



[l2 ] Boreal terelaatlon of a task 

running oa a BL0 Is indicated by 
TCTBaBD being set OFF. 

pTij send lrnc DFSTB. 

[u\ The TCTTB elli be chained. 



Task Detach (DFBXDBT) 



Diagraa- 1.5. 11.1. W-Oe 
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CICS/OS/VS Program Logic: Description 
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PROPERTY OF IBM 



Processing 



tcttb 

[tctbtcsw J - 



a=» 



: 



Task Detach (DPRZOBT) 



;>q 



a^> 



1 15] If In Bracket State, set 
Rnd Bracket, Send Data, 
and Send Activate flags. 

fli] If no write in TCTTB and 

TCTTB is not scheduled for 
log or RACP, or not 
already on one of the 
system service queues, and 
if a response is not 
awaited, check bracket 
state. 

A. Otherwise, set Detach 
flag. 



=J>0 



eT/^ 



=;>00=^> 



\ 17) If there is an RPL or a '\n 

TlOk, free thea. I UU 



Reset completion and SBRD • 
node indicators. 



ten 




JTCASCSA 

TCTTB 






TCTB1BD 


I 


TCTBISM 









Diagram - 1.5.11.1.16-05 



Routine Label Ref Rotes 



Routine Label Ref 



Task Detach (DFHIDBT) 



Diagram - 1.5.11.1.16-05 
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LICENSED MATERIAL — PROPERTY OF IBM 



Processing 

v 



Output 



E 



1> 






Task Detach (DFHZDET) 



00 



Q=^> 



0^> 



If not in Continue Any — — 1\_— _. jv 

■ode, set Continue Any in ' I— » I — i ' 
TCTTE and call RESETSR. 



A. If not successful , 
return to caller. 

[ 19] If Release request has 
been received and ATI is 
not scheduled, a CL5DST 
request is scheduled. 

J2QJ If any Activate bits are 
on, add TCTTE to Activate 
chain. 

(21J Restore registers and 
return via TCP. 



H=;> 






Diagrai - 1.5.11.1.16-06 



16I RESETS* nodule. 



Register 15 will contain zeros 
if reset was successful. 



03 



DPHICP TTPE=B1CIT 



Task Detach (DPIItDST) 



Routine Label Ref 



Diagraa - 1.5.11.1.16-06 
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CICS/OS/VS Program Logic: Description 
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Pagel of 12 



INPUT 



PROCESS 



| TCTENIBA | 



£ 



3 



HI PO 0001: 


H 


Save caller's environment via DFHTOPSV and Set on 
'Send DFSYN' Request bit. 





Issue DFHZIR (trace) macro instruction. 


@ 


Determine if further 'sends' are to be suppressed. 


A. If so, set errors code,put to NACP queue, and 
exit. 





If an incomplete chain is in progress, branch to 
chain logic to continue chain. 


a 


Determine the RPL status. 


A. If no RPL present, and a data send is requested , 
set error code, put to NACP queue, and exit. 




B. If no RPL present, and a command send is 
requested, queue an RPL getmain request and 
exit. 



^> 



^ 





TCTFX 






TCTVRSAP 
TCTVRS14 
thru 
TCTVRS10 






TCTTE 






TCTEICSS 











Send DFSYN (DFHZSDS) 



Diagram -1.5.1 1.1.17-01 



Elf an incomplete chain is in progress, we 
must finish the sending of that message 
before allowing any other task to gain 
control. 



Send DFSYN (DFHZSDS) 



REFERENCE 



Diagram- 1.5.11.1.17-01 
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LICENSED MATERIAL — PROPERTY OF IBM 



Send DFSYN (DFHZSDS) 



TCTEIRRN 
TCTEIFME 



TCTESCMI 
TCTEWDAI 



TCTTETS 
TCTEIESS 



PROCESS 



^> 



3> 



C. If an RPL is present, but active, set error code, 
put to NACP queue, and exit. 



Check for outstanding responses. 



<3> 



Determine the type of send request. 

A. If command, branch to command logic. 



B. If not data, set error code, put to NACP queue, 
and exit. 



Check terminal characteristics and status. 



A. If 'read only' and not stand alone end bracket, 
set error code, put to NACP queue, and exit. 



Page 2 of 12 



OUTPUT 



d^J 



Diagram- 1.5.11.1.17-02 



NOTES 
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REFERENCE 


fTTI Upon return from DFHZSDR, the 

1 1 completion code is checked to see if the 

'send' was successful. If it was not, 
DFHZSDS will be exited. The failure will 
have been noted in DFHZSDR. 




TCZSDS06 





NOTES 


ROUTINE 


LABEL 


REFERENCE 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OF IBM 



Page 3 of 12 



INPUT 



TCTEIOCT 
TCTEIESS 



TCTEIBPE 
TCTEIINB 
TCTEIBBP 



PROCESS 



^> 



^> 



i=^> 



If CLSDST scheduled and not stand alone end 
bracket, set error code, put to NACP queue, and 
exit. 

If CLSDST scheduled and stand alone end 
bracket to be sent, reset status and request 
bits, and exit. 



Determine bracket protocol requirements. 

A. If brackets are required, we are not 'in bracket', 
nor are we 'between brackets/begin bracket 
pending', set error code, put to NACP queue, 
and exit. 

B. If brackets are required, and we are not 'INB', 
but are 'BETB/BBP', reset bracket flags. 



H Anticipate the beginning sequence numbers of the 
chain. 







Determine requested response level. 



OUTPUT 



!=> 






TCTTE 



TCTEIESS 
TCTEIINB 
TCTEWDAI 
TCTEICSS 



TCTEIBBP 
TCTEIINB 



| TCTEIPRA | 



Send DFSYN (DFHZSDS) 



Diagram- 1.5.11.1.17-03 



I .... I Response level will be one of the following 
I 1 four combinations: 



DBF/FME 
DCF/RRN 
EX/FMC 
EX/RRN 



Send DFSYN (DFHZSDS) 



ROUTINE LABEL REFERENCE 



Diagram- 1.5.11.1.17-03 
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INPUT 



TCTEMIF 
TCTTECA 



I TCTTEPRT | 



PROCESS 







Determine CA/CS mode. 



Determine if sending & stand alone end bracket. 



A. If so, set status to request bits and branch to 
issue the send. 



Determine characteristics if this is a 3270 data stream. 
A. If BAU code: 



B. If 3270 print code: 

and branch to issue the send. 



Determine if FMH present. 









no® 



^> 



[iP7zr> 











RPLSRTYP 
RPLOPT5 




RPLRH3 




TCTTE 






TCTEMOST 












TCTEIBBS 






TCTTE 






TCTEIPRA 






RPL 






RPLVTFL2 


I 










RPLOPT12 











Send DFSYN (DFHZSDS) 
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NOTES 


ROUTINE 


LABEL 


REFERENCE 











NOTES 


ROUTINE 


LABEL 


REFERENCE 
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INPUT 



Send DFSYN (DFHZSDS) 



TCTEILST 
TCTEIOWO 
TCTTECA 



TCTTE 



TCEOAL 
TCTEPFT 
TCTTEDA 
TCTETDST 



RPL 



TIOASAL 
TIOAJDL 



Page 5 of 12 



I 16 | Determine if task is 
I 1 'send'. 



03 



ended or will be ended with this 



A If yes, and bracket protocol enforced, set status 
bits and then branch to 'sendf. 



B. If no, and this is a converse request, set status 



Analyze TIOA and message lengths. 



A. If TIOA size less than message size, set error code, 
put to NACP queue, and exit 



B. If not 'pipeline' and chaining allowed, but message 
too long for device, branch to chaining logic. 



7=> 



vzzZ^S 



| RPLRH3 | 

TCTTE 



Diagram- 1.5.11.1.17-05 







If chaining not allowed by the user (TCT 
parn BUFFER=0), the user accepts the 
responsibility for ensuring that the message 
will fit the device to which it will be sent. 



Send DFSYN (DFHZSDS) 
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LICENSED MATERIAL PROPERTY OF IBM 



INPUT 



| TCTEPTR | 



| TCTEIESS | 



PROCESS 







Determine if message to be sent synch or asynch. 

A. Synchronously. 

B. Asynchronously. 



Initialize common RPL fields 



and if not sending a stand alone end bracket. 



Remove the TCTTE from the activate queue. 



Cny 



User Exit optional 



=> 



^> 



RPLECB 
RPLOPT1 
RPLEXTD1 



RPLCNTSC 

RPLYTFL2 

RPLCNTDF 

RPLCHN 

RPLSRTYP 



RPLAREA 
RPLRLEN 



Page 6 of 12 



Send DFSYN (DFH2SDS) 



Diagram -1.5.1 1.1.1 7-06 



NOTES 


ROUTINE 


LABEL 


REFERENCE 











NOTES 


ROUTINE 


LABEL 


REFERENCE 
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PROCESS 



Issue the VTAM 'send' macro instruction after 
indicating that 'data in progress'. 



<=3 



Send RPL-(RPLBAR) 



A. If completes unsuccessfully, check reason: 



• DEBAD/SYNAD handled error, so return to 
caller. 



•Handle own errors, so put to activate chain, and 
exit 



- VTAM is dead, so put to NACP queue, and 
exit 



Determine completion processing which should be 
performed. 



A If send was asynchronous, return to caller. 



OUTPUT 



=> 





TCTTE 






TCTEIDIP 












TCTEIDIP 
TCTEICIP 











Send DFSYN (DFHZSDS) 



Diagram -1.5.1 1.1.17-07 



f— — J If the send was made synchronously, 
I 2 ' I control returns immediately after VTAM 
accepts the request If asynchronously, 
control returns after activation of the 
RPL exit (DFHZSDX). 

If authorized path SRB support is being 
used, this invokes the RPL service routine 
to interface to VTAM synchronously. 



Send DFSYN (DFHZSDS) 



Diagram -1.5.1 1.1.17-07 
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INPUT 



PROCESS 



TCTTE 



TCTTESTS 
TCTTEDA 
TCTEICER 
TCTEFMSA 



^> 



If send was synchronous, and definite 
responses requested, return to caller. 



C. If send was synchronous, and exception responses 
requested, update statistics and reset status and 
request bits before exit. 



1. If end bracket was sent. 



2. If TIOAtobefreed 



C^ 



C I CS STORAGE 
CONTROL 



DFHSC 
TYPE=FREEMAIN 









^> 





TCTTE 






TCTESQOP 












TCTTENO 

TCTEIDIP 

TCTEICSS 

TCTEWDAI 

TCTTEWR 

TCTTEOCV 

TCTTERR 

TCTEIDWP 

TCTEILST 

TCTEIESS 

TCTEIFPD 

TCTEVTC 

TCTEVLDC 












TCTEIEBS 
TCTEIINB 












TCTEICFR 
TCTEICFS 
TCTEFMSA 






TCA 






TCASCSA 











SendDFSYN(DFHZSDS) 



Diagram- 1.5.11.1.17-0 



If send was asynchronous, completion 
processing will be determined in the RPL- 
exit (DFHZSDX). If send was synchronous 
and definite responses requested, completion 
will be determined in the Response Exit 
(DFHZRPX). 



Send DFSYN (DFHZSDS) 
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PROCESS 




CHAINED OUTPUT 



Initialize the variable RPL fields. 



Initialize the static RPL fields. 



CH 



User Exit optional 



Issue the VTAM 'send* macro instruction after 
indicating that 'data in progress'. 



cxx 



SEND RPL=(RPDBAR) 



A. If completes unsuccessfully, check reason: 



- DEBAD/SYNAD handled error, so return to 
caller. 



• Handle own errors, so put to activate chain, and 
exit. 



- VTAM is dead, so put to NACP queue, and exit. 



OUTPUT 



:> 



RPL 



RPLVTFL2 
RPLCHN 
RPLAREA 
RPLRLEN 



RPLOPT1 

RPLCNTSC 

RPLVTFD2 

RPLCNTDF 

RPLSRTYP 

RPLECB 

RPLEXTD1 



Send DFSYN (DFHZSDS) 



Diagram -1.5.11.1.17-0 



If authorized path SRB support is being used 
this invokes the RPL service routine to 
interface to VTAM synchrouously. 



Send DFSYN (DFHZSDS) 
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LICENSED MATERIAL 



PROPERTY OF IBM 



P*|tt«H2 



INPUT 



TCTEOAL 
TCTTE D A 
TCTEIFRD 
TCTETDST 
TCTEMIR 



TIOA 



TIOATDL 
TIOADEA 
TIOAWOI 



PROCESS 






CHAINED OUTPUT: 



S Determine if may continue with next element of chain 
or if must give up control. 



A. If last of chain sent, go to analyze completion. 



B. If data is till in progress, return to caller. 



Reinitialize RPL and TCTTE fields for sending of 
next element of chain. Then branch to processing 
step 24 and issue the send. 



n3$ 





TCTTE 






TCTEIICP 
TCTEICRC 
TCTEASRA 






RPL 






RPLRLEN 

RPLAREA 

RPLVTF12 

RPLCHN 

RPLRH3 

RPLOPT12 











Send DFSYN (DFHZSDS) 



Diagram- 1.5.11. 1.17-10 



If data is still in progress, the previous 
'send' has not yet completed. Control 
will be returned so that other work 
unaffected by 'data in progress' may be 
done. The RPL exit (DFHZSDX) will 
set up for an asynch return of control 
to finish sending the chain. 



Send DFSYN (DFHZSDS) 
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CICS/OS/VS Program Logic: Description 
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INPUT 



TCTTE 



TCEIQCM 
TCTEIHQS 
TCTEICNC 
TCTEICHS 
TCTEICBD 
TCTEILUS 



| TCTEVSDA | 



PROCESS 



=> 



COMMAND SEND: 

Determine command type to be sent 



A. Quiesce complete 

B. Cancel 

C. Chase 

D. Bid 

E. DU Status 



^> 









| TCTEICIP | 



\ rplcntdT" 



| RPLCNTDC | 
| RPLOSENS { 



Page 11 of 12 
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NOTES 


ROUTINE 


LABEL 


REFERENCE 











NOTES 


ROUTINE 


LABEL 


REFERENCE 
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INPUT 




COMMAND SEND: 



Initialize RPL fields necessary to issue 'send'. 



Remove the TCTTE from the activate queue. 



Issue the VTAM 'send' macro instruction. 



<^ 



SEND RPL=(RPLBAR) 



A. If completes unsuccessfully, see notes at 
processing step 21. 



If command sent was for a 'quiesce complete', set 
flag which indicates that CICS is quiesced. 





RPL 






RPLECB 

RPLOPT1 

RPLEXTD1 

RPLVFL2 

RPLSRTYP 






TCTTE 






TCEIHQS 











SendDFSYN(DFHZSDS> 
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NOTES 


ROUTINE 


LABEL 


REFERENCE 











NOTES 


ROUTINE 


LABEL 


REFERENCE 
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CICS/OS/VS Program Logic: Description 
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Processing 



PAGE 1 3F 1 



BALR 14, 15 






JCSATCTBA 1 



JJ 



01 Establish addressability. 



1 02 j If TIOA Getaain is 

requested, issue DFHSC 
■aero load NIOABAB, clear 
Getaain flags, length 
field. 

fbTj If BPL Getaain is 

requested, issue DFHSC 
macro instruction, load 
BPLBAB, teriinal control. 

|04J Restore register la. 

Bet urn with a »BB R14'. 






TCTTB 




/ 




tctbicta • 
tctbicgr'" 






TCTBGRS 




/ 










TCTBICGB 






TCTBICBP 




TCTBBPLA 


\ 


BPL 






BPLACB 






BPLARG 






BPLOSFLD 













GETMAIN Bequest (DFHZGBT) 



Diagraa - 1.5. 11.1.18-01- 



| 1 | Control is received froa various 
VTAH TCP Modules. DFHZGBT is 
treated as a subroutine, to 
Getaain storage for TIOA or BPL. 
Beglster 15 is used as the base 
register. Register is used to 
save register 14. Register 14 is 
used as a work register. Mo 
other registers are used, none 
are saved. 

[02] Test TCTBICTA. 

(0i[ If TCTBICTA (GBTHFLG) is HOT on, 
it is assuaed TCTBICBP IS on 
(BPL Getaain) . 







Be turn to caller. 



Routine Label 



Boutine Label Ref 



ClTflAIB Bequest (DFHZGBT) 



Diagraa - 1.5.11.1.18-01 
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PAGE 1 OF 1 



BALR 14,15 



i ,/ 






[01 j Establish addressability. 



\ni 



If Preeaain All flag is 
on, issue a DPHSC 
PHEEHAIH, RELEASE=ALL 
■aero instruction. Turn 
off flag. . 



1 03 j If Preeaain Specific flag - 
is on, issue a DPHSC 
PREEAAIN aacro 
instruction. Turn off 
flag. Zero TCTEFHSA. 

]0a) If Preeaain EPL flag is 

on, issue a DPHSC FREEHAIn" 
■aero instruction. Turn 
off flag. Zero TCTERPLA. 

j 05 j Turn off Preeaain flag. 
Restore register 14. 
Return with a «BR R14«. 



IE 



TCTTE 
|TCTICPA 






TCTEICPS 




TCTEPHSA 










TCTBIRPL 




TCTBRPLA 










JTCTEICFR ] 
TCA 




TCAPCAAA 





Preeaain Reguest (DPHZPRE) 



Diagraa - 1.5. 11.1.19-01 



Notes 



|0l | Use register 15 as base 

register. Save register 14 in 
register 0. Ose register 14 as 
work register. Ho other 
registers are used, none are 
saved. 

Control is received froa various 
VTAfl TCP aodules. DPHZPRE is 
treated as a subroutine to free 
storage. 

[02( After Preeaain All flag is 

processed, continue with step 3. 

|0if After Preeaain Specific flag is 
processed, continue with step 4. 

)04] After Preeaain RPL is processed, 
continue with step 5. 



]05] Return to caller. 



Routine Label 



Preeaain leqaest (DPHZPRE) 



Diagraa - 1.5. 11.1.19-01 
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[Locate ATI H 

Status 
1.5 11.1.20] 



yze Request! 
ite Teninal 

JJ 



Anal 
Loca 
Entry 

1.5.11.1.20 



PAGI 1 OF » 



r 



"i 



Locate H Tloc Page Status] [ah H [status H [sync | 

Locate-LDC 1.5.11. 1.20.21 ) 1.5.11.1.20.4] | 1.5.11.1.20.51 1 . 5. 1 1. 1.20.7 j 



[Chain Analysis 1 
1.5.11.1,20.6] 



Locate (omzLoc) 



• Diagram - 1,5, ii.i,20t0* 
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LICENSED MATERIAL — PROPERTY OF IBM 



laput 



PAGE 1 0? 2 



r fcSATCTBA ~J [iCATPOSl ] — 



••••I : 
L w 



I'd Prefix 



ICTVTETBA 
TC1VDMTE 
TCTVTIHA 
TCIVTA2A 



ICUE 

[t3ttetel~ 






[iCaTPTA ] 



flCATPTA 1- 
J1CATP0S2 I 



Oil Save registers. 



[02j Determine if request is 
for LDC Paging Status. 



[E] 



Validate address. 



[otl Locate terminal entry. 

[05] Analyze reguest. 
A. Sync 



I 1.5.11. 1.2 

10.2 r-, 1\ 

=^>0 



r J \ 



1.5.11.1.2 

0.3 



f (Registers | 
TCA 

[tcatprs I 
[tcatpta ~] 
[tcatprc ] 

TCA 
r facATDRS 1 

I Register s^ 
[lUlli J 



Analyze Reguest Locate Terminal Entry (DfhTCP) 



Diagram - 1.5. 11. 1.2C.1-C 



1 1 1 Entered trom application program 
ay DEti'LC macro instruction for 
Locate, All, Status or Sync. 

jOJJ If this terminal request is 
First or ID the address is 
validated. 

foal If tne terminal request is for 

ID, the TCTXL is round using tne 
DFHhASh macro instruction. 

[Off/ If the request is invalid, the 
invalid request nit is turned on 
in tne TCA. 



Routine 
DFHZLOC 



label Vf 



Analyze iteyuest Locate Terminal t;ntry (DFHTCPJ 



Diagram - 1.5.11. 1.2C. 1-01 



204 
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Processing 



FAGI 2 CT 2 



[-^/ 



D. Status 



E. Invalid request 



06 I Restore registers and 
return to caller. 



[•:: 



-)[i] 




Analyze Beyuest locate Terminal Entry (DFHTCP) 



Diagram - 1.5. H. 1.2C. 1-02 



I06J Input tor tbis step is from 
charts 1.5.11.1.20.7, 
1.5.11.1.20.2, 1.5.11.1.20.3, 
1.5.11.1.20.5, 1.5.11.1.20.6 



Label I *et I 



Analyze Beyuest Locate Xerninal Entry (DFHTCP) 



Diagram- 1. 5. n, 1.2C. 1-C2 
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LICENSED MATERIAL — PROPERTY OP IBM 



Processing 



Output 



1.5.11.20.1 



TCT Prefix 
Itcttsldc I 



TCA 
|TC»TPCS1 



.!_> 



!._._.._, 



[01 j Search the srstea LDC 
table or Extended Local 
LDC list for LDC entrr. 



1 02 j Determine if request is to- 
change status to Page or 
Jtutopage. 

foTI Change the Paging Status. - 



E£=~l 



V 

1.5.11.1.20.1 



LDC Page Status (DPHTCP) 



TCA 




JTC1TPLP.C 

DPHSLDC 






SLDCSTIT 
SLDCSPGP 











Diagram - 1.5.11.1.20.2-01 



Votes 



[01] If LDC is not found in the 

table, return with invalid LDC 
return code. 

J02 ] If Status is not Page or 

iutopage return with invalid 
request error code. 

[ 03| Set LDC Status to Page or 
tutopage. . 



Routine Label Vef 



LSC Page Status (DPHTCP) 



Diagram - 1.5.11.1.20.2-01 
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CICS/OS/VS Program Logic: Description 
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Input 



Processing 



1.5.11.1.20.1 






TCT KTQCXZ 

JTCTTSLDC ~] 



Q-- 



)tchtpti I 



]-->a 



j TCTELLDC | 
DPBLLDC 



— >0 

[c] > 

>00--> 



vrnsuw. I 

)SLDCniM [ >[b| 

)SLDCCD | -1— >[?]lll > 



Locate and Locate-LDC (DPHTCP) 



|0lf Deteraine if Locate-LDC: 
I. If no — return. 

|02( Put defaalt nneaoaic 
character in TCI if 
requested. 



| 03] Scan local LDC list or 
Extended Local LDC list 
for a Hatching entry. 



foT) Pnb 



LDC code in TCR. 



0=;> 



J OS j Scan systen LDC table for 
a natching entry. 



|06j Replace LDC code in TCA.if 1\ 

TCA code is xero. 



i>0 







\ 07 j Pot LDC entry address in 

tea. i 



TC» 

iTCiTPLDf 



JTCATPLDC ] 



Diagraa - 1.5. 11. 1.20.3-01 



[01 j If not an LDC request or not a 
▼TIB terainal clear the 
associated TCA fields and 
return. 

[02J If LDCs ace not supported by the 
terainal, return. 

[0 3 1 If no natch is found, return. 



\05\ If no natch, return. 

ED 



Diagran - 1.5. 11.1. W. $-01 



Locate aad Locate-LDC (DPBTCP) 
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intuit 




Processing 



PAGE 1 Of 1 



1.5.11. 1.20. 1 



•••"I > 



foT ] Set time control 
transaction flag. 



i 3-t 1 — ./ 

1.5.11.1.20.6 



ATI (DFaTCP) 



TCA 

[tcatpta ~2 



fTCTTEtC | 
JTCTTBOIC J 



Diagram - 1.5.11. 1.2C.U-0 



©■ 



All (DFiilCP) 



label j H«=t 1 



I ! 



Diagram - 1.5. 1 1 . 1. 20. U-0 1 
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Input 
I 



Processing 



PA6I 1 OP 2 



1.5- 11.1.20. 1 



L__j\ 



(••••I > 

— -1/ 



TCATPTSA 
TCA1PSAT 
TCATPHOP 
TCA3PIHP 



ir 



J TCTITTAH j 



EL 



Process service status 



A.' In service 

B. Out of service 



[02] Process processing status • 



_ A. Transaction 

B. Transceive 

C Input 

0. Receive 

E. No Poll 

JoTj Process paging status 

A. Page 

B. Autopage 

JQa) Determine if VTAfl 
terminal. 

A. If non-VTAM 



s=;> 






[••••i > 



TCTTETS 
TCTTESOS 
TCTTBSPO 



TCTtESAT 
TCTTESRO 
TCTTESHP 
TCTTESHP 



TCTTEPGB 
TCTTBPGP 
TCTTEPGB 



JTCTBICS L_ ) 



TCTBVTS2 
TCTBPSA 
TCTEBPR 
TCTE7ICCT 



Status iDPHTCPJ 



Diagram - 1.5.11.1.2 0.5-01 



ED- 



J03J If the paging status is changed 
the reverse status bit is turned 
off. 

[04J Control returns if the terminal 
is not a VTAH terninal. 



Routine 
CPB2LOC 



Status (DFHTCP) 



Diagram - 1.5.11.1.20.5-01 
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Input 



JTCA TPREL J ^ — -^ 1 



Status (DPHTCP) 



j 05 j VTAH process acquire ~~^ v n 

request. I— J 



request 
A. Cold 



JQoj Process release request 



>0 
I 



V 

1.5.11.1.20.0 



PAGE 2. OP 2 



Dlagras - 1.5.11.1.20.5-02 



Rotes 


Routine 


Label 


fief 


Notes 


Routine 


Label 


Ref 


(05 I the tetiinal Is scheduled for a 
SIflLOGCl. 

If cold the previous ABEND and 
Besync required bits are reset. 

J0t>| the teninal is scheduled for a 
CLSDST, and an; task attached is 
scheduled to be abnormally 
terminated. 

If aore than one function vithin 
a category is detected {such as 
transceiver input) control 
returns to the caller with an 
invalid request indicated in the 
return code. 




TC2L0CSL 













Status (DPSTCF) 



Diagrae - 1.5.11.1.20.5-02 
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J IClTiiSOS 
< iwiitSHP 



IlLlJSAC&J 1- 
1 iLifcCCl i 

I ICihCSL I 



Cnaxn Aual^sxs {LtkliSt) 



\E) 



Determine if V1AM terminal 



A. it non-VTAN 



j\ 

••••I > 
terminal. »• -i/ 



[02] if VTAM, set All activate - 
bit it required. 

fojl Set release quiesce 

activate bit if required 
and it quiesce at end of 
chain (QEC) is supported. 

[oi] Set QEC activate fcit if 
required and it QIC is 
supported. 

[obj Put an in-service terminal- 
on the activate chain. 

[Ofal Put an out-of -service 

terminal on the activate 
chain only, if any 
activate tit is set. 



:::::::::~i._ JN 



Jp 



Jr 



si 



V 
.11. 1.20.1 



yTCTEICTI ] 
JTCTECTI I 



[tcteirls T 

JTCTEBLSQ | 



fTCTEIQEO I 
JTCTEQEOC J 
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JO l] -li terinxnax xs not a VTAM 

terisxnai ccnttox returns to tne 


uimz.LUC 


TCziocca 

TCZLOCVA 


1.5. 16 
. 1 


caller. 








[o^l leruixnax iu Service ana in a 
receive mode. 




TCZLCCEw 
TCZL0CR5 




|UjJ Terminal ^uxescea, xn service 




TCZLOCP\i 




ana uut xn receive-only status. 








Joi] Idcmudi Uut ct aervice or in 
necexvu-onx./ status and not 




TCZLOCBU 
TCZlOCtO 




^uxesceu tj ~x^i. 








■El 




TCZ1OCU0 




iUo] 1.CUCN ox Lx-SLiST oxts set. 




TCZLOCtU 
TCZLOCAU 


1.5. 1b 
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ccntrcx tueu returns to tne 








caller. 
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Input 



Sync iDPHTCP) 



1.5.11.1.2C.1 

R 
!•( — j\ 

1 1 / 



1 1 ) If there is a deferred 

Write, or any Write, call 
Send OFSTN routine. 

1 02 1 If logging is supported 
and the node is in 
positive response node, a 
WAIT is issued and the 
TCTTE is added to the log 
chain. 



Output 



PAGE 1 OP 1 
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01 Send DFSTN module 
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Jtctbbsrb 
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|TCTECID 
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TCTPX 




1 


1 
I 


1\ 


JTCTVACBA 


~\ 




I 






TCTPI 










JTCTVBSBG 


)- 




i 

1 

L 










{Register 
J 15 


| 




) 








BPL 






]RPLOPT5 


1- 


1 




TCA 






Jtcascsa 


(- 


1 




TCTTI 






JTCTERPLA 


1 




_1 









1 01 J Set up addressability and ■ 
save caller's registers. 

)02) Initialize dedicated BPL 
and determine node 
requested. 

JojJ Determine r-type requested- 
and set up BPL. If | 

invalid, an error code is I 
set and queued to NACP. I 



joal Complete setting up of the— »\j — i 
BPL for issuing rbsetsr. ' «—» 



| OS ) Issue BESETSR aacro 
instruction 

j 0(3 1 Check completion code and • 
take appropriate action 
based on that code. Also 
return status to original 
setting if not zero. Then 
return. 



: 



"lb 



*F^1 



TCTPI 






TCTVBSAP 
TCT?BSHG 




TCTTE 






TCTBHOST 
3PL 






RPLOPT5 






RPLSRTYP 




TCTTB 




JTCTEVRC5 j 
BPL 




RPLARG 

RPLACB 

RPLLEM2 

RPLOSFLO 

BPLBXTD1 




TCTTE 






TCTEBSRB 
TCTEICBS 
TCTEICIP 
TCTBHOST 
TCTEBPLA 
TCTBVRC5 












Register 
15 











BESBTSB(DPBZBST) 
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j 01 1 TCT prefix contains pointers and 
BSA. 



j02j Set BPL to zeroes. 

|03j Issue DFliTCQOE CHAIH=MACP macro 
instruction to place TCTTE on 
HACP chain. (Error queue.) 

fbT| Pill in ¥TAH-required fields. 

|05J BESETSR. changes node status 
(CA-CS) and also purges any 
outstanding receives. 

]06J VTAH returns a completion coda 
in register 15 indicating the 
success or failure of the 
request. 

LEBAO or STHAD say also send a 
conpletion code. 

Since BBSETSB can be linked to, 
a conpletion code is inserted in 
register 15 on exit. 
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P1GB 1 OF 1 






JTCTBBPLA I* 



JTCTTBAR ) 



i!I 



BPLACB 

BPLLBB2 

EPLAB6 



TCTFX 

I TCTVACBA 1" 

in,.,.i a 



H : 



^>S 



^>S 



| 01 j Setup addressability, sa 
caller *s registers, and 
insure this is a valid 
reguest. 



[02J Get an BPL if one is not - 
available. If the GBTBAIB ' 
regaest fails, gueue a 
GBTBAIB regaest. 

| 03 | Beaove TCTTB froa activate 
process chain, set ap BPL, 
and issue CLSDST aacro 
xnstr action. 



t 



|0«tj Check completion of CLSDST-^ 
regaest and take | 

appropriate action. I 



r 



= 



TCTPI 






TCTVBSAP 
TCTVBSBG 




TCTTB 
(TCTBTHC5 ( 

TCTTB 




TCTBICGP 
TCTBICBP 
TCTBBPLA 




TCTTB 






TCTBICIP 
TCTBTBC5 





CLSDST Beguest (OPHZCLS) 
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]01] Save caller's registers and 
validate CLSDST regaest. 



ED 



E3 



Kith issarance of the 0PHTCQ0B 
CBAIB'OFF aacro in struct ion, the 
TCTTB is reaoved froa the 
activate process chain. Prior to 
Issuing the above aacro 
instruction, the BPL is 
initialised to zeroes by issuing 
the OF Bl IB PL aaczo instruction. 

TTAB passes a ccapletioa code 
back ia register 15. Boraal 
coapletion is vhea register 15 * 
zero, if it is negative, LBBAO 
or STBAD vas entered due to aa 
error but has been taken care 
of. If it egeals X«F0«, TTAB 
exparieaced a teaporary storage 
problea aad the TCTTB is chaiaed 
up for another attempt at CLSDST 
of the aode. If mm of the 
above are tree, the TCTTB is 
passed to BACP f cr error 
processing. 



CLttST Beguest (CFBXCLS) 
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la pat 



Oat pat 






JTCTIBPLA ) 



| 1 | Save caller's environaent 
with DFBTCPST 

]02J Assure that there Is an 
BPL allocated. If not, 
obtain BPL. 



A. If not possible, set up '\ 

TCTTB for BPL-GBTBAIH 
request. 






lofl 



B. If successful, 

initialize BPL and 
TCTTB fields. 






1 03 1 Turn off Besjnc, reguest — — J ^f- -\ 



Flag Setup, clear reguest, 
and proTide AST Return 
Address. 



foT) Call SESSIOHC. 



=:>0 



/« — «\ 

*M 1/ 



ICTTB 






TCTBIC6B 




TCTBICBP 










TCTEBPLA 






TCTBICBI 




TCTBICLB 


TCTEASBA 








JTCTBICSC 
BPL 






BPLACB 




BPLABG 


RPLOSFLD 


BPLLBH2 









Besynchronizatlon (DPBZRSI) 



Diagraa - 1.5. 11.1.23-01 



foij Save caller* s registers in the 
TCT prefix area. 



(02j An BPL Bust be on hand for the 
several TTAfl requests issued in 
OFHZBST. If one is not available 
BPL storage is reguired. 
Providing the GBTflllN is 
Successful the BPL is for Batted 
for the first VTAH reguest. If 
it fails, an BPL GETHAIN is 
gueued. 

[pi] CLBAB is the first reguest 

issued, thus that reguest bit is 
turned on in* the TCTTB and the . 
function perforaed. 

[Qtt| SBSSIOSC is called because it 
Issues the Clear request. 



Routine Label Bef 



Beavnchronization (OFBZBST) 
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H-.V 



=:>E 



0=3 




|05j Restore caller's 

environment and return to 
caller. 

J0t>) Save caller's environment 
with DPHTCPSV 



E : 



__v 0= 

* i/ 
JReturn to 

i , Caller 

[07 1 Call HESETSR to switch to •%.[-, 

-i/[£J 



continue specific. 



1.5.11.1.21 



Set up STSN reguest. Hove — 
logical seguence nuiber to 
physical seguence number. 
Provide AST return 
address. 

A. If there is any data to- 
be present, set up for 
Set Inbound and set and 
test Outbound seguence 
number. 

B. Otherwise, set up for — 
Set Inbound and Set 
Outbound seguence 
nunber. 



0= 



>0 



30 



Ei 



>|yl 



TCTTE 






TCTEBSRR 




TCTEICRS 












TCTEISTS 




TCTBSQIP 


TCTESQOP 


TCTEASRA 










TCTBASTP 






TC TEA SEP 





Resynchronization (OPRZRSTJ 



Diagram - 1.5. 11.1.2J-02 



lotes 



|05j Opon return from issuing the 

Clear re guest OPHZRST registers 
are reinstated and processing 
continues. 

| Ob) Due to asynchronous point of 

control implementation registers 
must be saved in the TCT prefix 
before issuing the next reguest. 

f o?) Resetsr (OPHZRST) must be 

executed to insure the node is 
in continue Specific mode. 

]08] The next VTAtl reguest is set and 
test seguence numbers (STSN) . 
CICS/VS seguence numbers are set 
up in such a fashion as to allow 
the Logical Onit to compare and 
reply positively or negatively 
to these presented to him. 
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■•synchronization (OPHZRST) 
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[t cTBBPLA ( 

RPL 

JBPLOBSQ | 






(••••I > 
*-—- 1/ 

Intry 
After 
SDt 



]09J Save caller's envirocnent 
wxth DfHTCPST. 

| 10J If there is no data to be - 
resent, or xf sequence 
nuabers natch, provide AST 
Return Addresses. 



S : 



^0 



Otherwise, set up Attach '\«- 

Bequest to attach the | 

Besync representation | |J|- 

task. | 



jllj Set up SDT request. is^jTJI 



| 12J Save caller's enwixcnnent l 
with DFHTCPSV. 

[ii] Call Besetsr to Switch to — 
Continue Any. 



]«• >l04J 



^>0 



/« — -*\ 

<V.| ; 

\« — i/ 
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M4J Perfora house cleaning. 
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EjSiyi 



TCTTE 






TCTBASHA 












TCTBICAT 






TCTBISDT 






TCTERSRR 






TCTEICRS 












TCTBIRS1 




TCTEIEBS 


TCTBIRPB 


TCTBIPSA 


TCTBCOPP 


TCTBIPTP 









Besynchronization (DFHZRSY) 



Diagram - 1.5. 11.1.23-03 



|09] Registers are stored in the TCT 
prefix. 

) 10) If a TIOA is present at 
resynchxcnization it is 
represented to the Logical Onit 
if not a start data traffic 
request (SDT) is set up for the 
Logical Onit and the session is 
fully established again. 







Sane as note 10. 



| 12] Registers are saved prior to the 
Resetsr request. 

(13| To allow the Logical Onit to 

input data or conaands the node 
aust but switch to Continue Any 
(CA) Resetsr is called with a CA 
request indicator on. 

1 14) All Bit indicators relating to 
^synchronization are turned off 
at this feint because 
resynchronization is complete. 



■•synchronization iDFHZRSY) 
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jPoinc Prograi 



••••i > 



^CSATCTEA j -, j- -,/ 



1 



f ic Aiiis""] — , / [71 



11CIEEID0 , 

[lCTEEIDl J ' 



I ICTIEHfi I 

I ICIESOOP 
INCITED* 1 

110 A 

[iIoIiFI ) 



^J 



[3=S 



j\ 



[57] Estaolish addressability 
and save caller's 
registers in TCA. 

[02] Issue TRACE macro 
instruction. 



[03] Establish addressability «\ 

U - J to D.i and set op. ~,/]D|ll!|— ,/ 



0^> 

It there is a WRITE in J v..-, [eI ----,/ 

TCTIE, the TIOA is set up f l/ [-\ 

and TCTTE is added to the 
ANAIT queue. 



[05] Restore registers and 
return. 



: -> 



. j\ 

[••••1 > 

lo Sync 

Point 

Program 



Ome Processing (L^dZOaE) 



TCA 

[tcatfrs 1 



iTCATCTRQ 
TCATRF1 
TCATFF2 



TCTTE 
J"lCTlilDO~ 



TCTEICOQ 
TCTEICL 
TCTIIKPO 
TCTEIKPE 



DUE 



DWESVUID 

DWESTAT 

DWETCOPS 

DWETCIPS 

DWEMODFN 

DHESVflNA 



[dvIlxda 1 



Diagram - 1.5.11. 1.2U-C ' 
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Dbfc irrocessin^ (LirhZO wr.) 



Soutine Latel Ref Notes 



Routine latel Fef 



218 



CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OF IBM 



Input 



Processing 



Output 



PAGE 2 OP J 



[CSATCTBA 
TCA 


* 


11 
1 J 




TCAPCAAA 
TCASTAA 






1 


m — t K , 




Hi "" 



JT CAJCAAD ) i/Q 

TCTTB 1 

[tcteeido I , /[g| r—, — 

[TCTIBID1 J J LJ [h] 

;§R 1 I 



TCTESi 
TCTIS' 

TCTTEI 



TCTEISAQ 
TCTEICOQ 
TCTEICL 
TCTTE TI 



JCA 
[jCATCSPL 






>E 



|0b j Establish addressability 
and save caller's 
registers in TCA. 

J07J Issue TRACE aacro 
instruction. 



J08] Set logical sequence 

nunbers equal to physical 
sequence nuabers. If there 
is a write request, 
perfora logical update. 



i If TCTTE is not on, or 

'scheduled to be placed on j 

the coaaitted output I 

queue, but there is | 

coaaitted logging, turn 1 

off coaaitted log flag and J 

log. j 



lk> 



r 

_ i — 1\ 



TCA 






TCATPRS 






TCATCTRQ 

TCATRP1 

TCATRP2 




TCTTE 






TCTEEIDO 






TCTBSQIL 






TCTBSQOL 
TCTEICL 




JCA 






JCAJRTIO 
JCAAOATA 
JCALOATA 
JCATCTSQ 
JCASPL 











OMB Processing (DPHZDME) 



Diagraa - 1.5. 11.1.24-02 



Routine Label 



Routine Label 



DUB Processing (DPHZDKE) 
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lnj>ut 



Processing 



JlCAZSPSS |- 
[iCADbLEA | 



EiiifLD-r^E,. 



) : ->S 



0=S 



: 



^ 



It logical end of task, 
unchain ESE froi TCA 
chain, and set Sync Foint 
occurred flag. 

A. It physical end of task- 
anri there is nc HFITE, 
the CUE pointer in 
IC1TE is cleared and 
coanitted log flag is 
turned cff. 

B. If there is a UFI1E, JJ 

KPs even and odd 
tracking tits are 
turned off, the DDE 
pointer in ICTIE is 
cleared and cci*itted 
log flag is turned off. 



Mil Restore registers and 
return. 



j\ 

••••| > 

To Sync 

Foinl 

Program 



DUh Processing (LFriZUtiii) 



TCA 

[tcazlobt I 

TCTTE 

[tctIisnc 1 

L J 

rTCTEIPRA | 
ITCTECUEH | 
ITCTEICL | 

flCTEIKPo"] 
ITCTEIKPE I 



Diagram - 1.5.1 1. 1.21-C3 
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DW£ Processing iDFttZDku) 



Houtine Latel 
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IS-* 






^±U 



-Da u 



:>0 



foT) Establish addressability 
with DfHTCPSV. 

1 02 1 Issue TRACE nacro 
instruction. 

[03 j Check for errors, such as 
SOS, HAXTASK, resync 
required or in progress, 
or ready to receive 
pending. 

1 04 J If node not in session, 

remove TCTTE from activate 
chain and call SIHLOGCN 
module. 

foil If EPL not allocated, 
issue a conditional 
GETflAIN. 

A. If unsuccessful, set 
GETMAIN and Deferred 
AVAIL flags. Return to 
Activate Scan. 



r 

lU 



r 



TCA 






TCATCTHQ 




TCATRP1 


TCATRP2 


TCTTE 
JTCTBBIDO 




JTCTEICVD 
TCTTB 






TCTBICRP 




TCTEICVD 




TCTEICGR 


■ 










TCTERPLA 











Automatic Task initializationiDPHZATI) 



Diagram - 1.5.11.1.25-01 



If SOS or HAXTASK Indicators are 
on, or if resync is required or 
in progress, return code 8 is 
set and control is returned to 
Activate Scan. If ready to 
receive is pendlcg, TCTTE is 
taken off chain. 



@ 



Routine Label 



Routine Label 



Automatic Task InitializationiDPHZATI) 
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[tca scsa \ - 



[tctvacba 



TCTTECA 
ITCTEIINB 



^/[gg— ,/ 



: -> 






Set TC1TE RPL pointer and 
initialize fields in new 
RPL. 

If brackets are not 
enforced, no task is 
attached and node is 
continue specific, go 
issue AVAIL. 

A. If mode is Continue Any- 
call RESBTSR and then 
issue AVAIL. 






v r -,— < V 







7^0 



B. If brackets are not 
enforced ana a task is 
attached, turn on 
Deferred AVAIL flag. 
Return to Activate 
Scan. 

If brackets are enforced, 
and ATI bid is not in 
progress, I/O is not in 
progress; if there is a 
task and node is not in 
bracket state, return to 
caller. 






r -<\ 

(To Caller 











TCTERSBR 






TCTEICVD 




RPL 






RPLARG 




RPLACB 









Automatic Task Initialization (OFHZ AT I) 



Diagram - 1.5. 11.1.25-02 



]0bj If RPL available, go on to step 
j07l Send DP Sync nodule. 



Routine Label Ref 



Automatic Task initializationtDFHZATl) 
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[t ctbicvi { - 



TCTTBTA J 



I- 1 I 

l7|L__ 



i==>ra 






TCAKCPA |- , /[g] 

TCA PC TEH 



JT CAKCHC j > /[i] 



B- 



->0 



foT] If BTB has been received, 
turn off flag, and gc 
issue AVAIL. 



A. Otherwise, turn on ATI 
bid in progress, bid, 
send comand request, 
and send synchronous 
flags. Call Send DP 
Synchronous ■odule. 

~H)] A conditional AVAIL is 
issued. 



FiSfuP*' 



fcV 



r 



0= 
'>00 : 



[Tl] If unsuccessful, and the ' v r~in~ 

ATI bit is not on, the BTb"!"" 1 L-JLJ~ 



ATI bit is not on, the BTB 
flag is turned off, and 
the TCTTE is taken off the 
activate chain. 



If successful, register- 
14 in KCP^s save area 
is altered to point to 
Start Op Task and 
addressability to new 
TCA is established. Set 
AVAIL done flag and 
update statistics. 



00 



TCTTE 
JTCTEICVI f 




TCTBIAIP j 


TCTEICBD I 


TCTBSCHI j 


TCTBICSS ( 


TCA 


JTCAKCPA j 
TCTTE 


JTCTEICVI j 
TCA 


JTCATCBS J 

TCTTE 




TCTTEOT | 


TCTEICCV | 







Automatic Task Initialization (OPHZATI) 
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Notes 



) 11 j If ATI bit is en, return code 8 

is set and control is returned 

to Activate Scan. 

A. Startup Task 



aotoaatic task Initialization (OPHZATI) 
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JcSATCNAC ]-— i/[j] 
XCT1E I 

[ ic Tile a j — -, / [j] 



Automatic TasK Initialization (DFHZATT) 



[12] Turn cff RTF and All 
activate flags. 

M3j Set return cede tc P. and 
return tc activate scan. 



^HH--/ 



*i 



JTCTtlCVI 
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Prcn DfHTCCOE 

macro 

expansion 






[tctehacp 1- 



JTCTVAA 



L 



q-n- L =— 



j TCTEHACP 



TCTPi 
pTCTVAA4 ] 



J\ 






[Oil Establish addressability 
and save return address. 



[021 Analyze parameter list to 
determine action required. 



If request from exit 
go to Exit Proces 
routine. 



Xlt, r «\ 

••I 

S I—-,/ 



>,», 



B. If request not 
activate, go do further 
analysis. 

C. If request for On 
Activate, go to On 
Activate process. 

If the TCTTE is on a 
queue, it is unchained and 
the pointer is updated if 
there are more TCTTEs on 
the chain. Otherwise, 
pointer is set to Null 
Exit routine. 



01 j If TCT1E not already on a 

queue and can be added to | 

Activate chain, it is | 

chained as last and | 

pointer is updated. Exit | 



I 

i 
1 



r 

i 

i/ 



TCTPX 




TCTVAA1 j 


TCTVAA2 J 


TCTTE 




TCTEHACP | 


TCTTE 


j TCTEHACP j 
TCTPX 




TCTTAAJ | 







Activate Chain and Queueing Subroutine (DPHZQOE) 



Diagram - 1 .5. 11 . 1 . 2b-01 



The expansion of the DFHTCQUE 
macro instruction creates a 
one-word in-line parameter list 
that contains a bit string to 
control the functions in this 
module. 



Routine Label 



Routine Label 



Activate Chain and Queueing Subroutine (DPH2Q0E) 



Diagram- 1. 5. 11.1 .20-01 
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Input 



PAGE 2 OP 5 



JTCTBVSSC ] 



71 



prCTVHOQ 



JTCTVEOQE 



[ 05 J Purther analyze parameter 
list to determine action 
required. 

A. If request is not to 
take off a queue, go d 
further analysis. 



.e3> i U 1 



B. If request is to take r — *\ , ■ 

[••I >|0bj 
off log, NACP, or Await" — -,/ V 

queue, go on to remove | 

from Await queue. | 

| Ob] Response awaited indicator 

is turned off. If TCTTE is 
on any service queue, it 
is removed from the Await 
chain and pointers are 
updated as required. 

[07| Purther analyze parameter 
list to determine action 
required. 



A. If request to add to 

Log queue, go to Log *■— i'/ *V' 
routine. 



l'-i/^ 



TCTTE 






TCTEISAQ 




TCTEVSSC 


TCTPX 
JTCTVROQE 





Activate Chain and Queueing Subroutine (DPH2Q0E) 



Diagram - 1.5. 11.1.20-02 



05 ( Only Await queue is currently 
implemented. 



Routine) Label 



Routine Label 



Activate Chain and Queueing Subroutine (DPHZQOE) 



1.5. 11.1.20-02 
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PROPERTY OF IBM 



Processing 



[ 1C IE VS SZ~~\ -—i / jTj 

I ICIBISNQ I 
i ICIEISA^ j 



[lClEXSLQ~~] -i/jTj 

ICTiX 1 

]— >0g: 



I1C1VEOQ 

I lCTVBOQi"~| 



[icivs 



flClVRTLE ]"— -i/fJTj 



= 



B. If request to add to 
Response Awaited q' 



tO r -»\ r -, 

[••I >|10| 
ueue,*- — t / \/ 

go to Await routine. r — ,- 

i E- 



[oi] 



GE 



C. If request to add to 
NACP queue, or any 
otner than the above, 
go to NACP routine. 

Set terminal out cf 
service. If TCTIE is on 
Response Awaited queue, 
remove it. If ICT1E is on 
Logger queue, set NACP 
activate request and exit. 
Otherwise, add TC1TE to 
NACP queue indicator, and 
update pointers as 
required. Exit sutroutine. 

If ICITE is en Response 
Awaited queue, remove it 
and set log request and 
exit. Otherwise, add TCTTE 
to Log queue, turn off 
activate request, and turn 
on Log Cue indicator. 
Update pointers and exit. 



->[=] 



0= 



nn~-, 



[¥'-'- 



)[d] 



TCTEISNQ 



Itcteiclq""] 
TciilSLQ J 




tctvftle 
itctvrtl 



Activate Chain ana ^ueueing Subroutine (DfHZQUfc) 



Ciagram - 1.5. n. 1. 26-03 



Activate Chain and ^ueueing Subroutine (OfHZQUE) 



Diagram - 1.5.11.1. 26-03 
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Processing 



flClVBOQE* 



Q = 



0°] 



G3 



If IC1TE is on any system 
service gueue, set Retry 
indicator and exit. 
Other wise, clear activate 
request, turn en Besponse 
Awaited gueue indicator, 
add to Response Awaited 
gueue and update pointers 
as reguired. Exit 
subroutine. 

Further analyze parameter 
list to determine action 
required. 

A. If exit reguest to add 
to Activate gueue, go 
to Activate Queue 
routine. 









If exit reguest to add r --- 
to Log gueue, go to Log 
Queue Set-up rcutine. j 

If exit reguest to add r — J V r — ^ 

• •I >| m| 

to NACP gueue, go to *■-— , / V/ 
NACP Queue, go to NACE 
Queue Set-up routine. 



[T2J Turn on Exit-added 

indicator. If TCTIE is not 
already on a gueue, update 



Activate Chain and yueueing Subroutine (DfHZUUE) 



'0 



TCTTE 



TCTEICOQ 
TCtIiHIq" 

tctIvIsc" 



iTCTVROQi~""j 
TCTVROQ J 



1.5. 1'1.1.26-OH 



utioe Latel 



Activate Chain and Queueing Subroutine {DitiZQUl) 



Routine Latel 



Diagram - 1. 5. 1 1. 1. 26-0q 
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PAGE 5 OP 5 



fTCTEHACP ] , /[i] 

TCTFX 1 

IIVAA4 1 — '/Q] 



pointers as reguired. Post 
timer ECB in the CSA, and 
pseudo-post activate scan 
ecb. Exit routine. 



E : 



Q : 



r-i f»l : 

i 1 3 I Set Log Response indicatorp — «\ r- L - t 
and go to Activate Queue *—— ,/ V 



|14I Set NACP indicator, set »—— «\ , , 

• * )••{ >\U] 

terminal out of service » — i/ \/ 



and go to Activate Queue 
routine. 



]j15j Restore return address and 
return to caller. 



--n/0 



TCTTE 






TCTEICXA 




TCTEHACP 












TCTBICLQ 






TCTEICEA 




TC1TETS 




TCTPX 






TCTVAA4 




TCTVAA3 









Activate Chain and Queueang Subroutine (CPR2Q0E) 



Diagram - 1.5. 11.1 .20-05 



Notes 



1 15) If ECB vas posted istep 12) , 
bypass reload of register 14 
fro* register 0, which is 
volatile across system post 
nacio instruction. 



Routine Label Ref 



Activate Chain and Queueing Subroutine iDPHZQOE) 



Diagram- 1. 5. 11.1 .20-05 
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[iciEI£B«~~] 



DE did Ail 
DFrfZUET 
DFdZNAC DitikLt 



f 1C IE HO ST } 



Toi] Save registers (Racro 
DFHTCPSV) 

[02] Initial entry? 



[••I >[oa] 



103 J Turn on initial entry flag 

and set error bytes to 
zero 



E3 



Mode^CS 1 ? 



A. Indicate initial mode 
was 'CA». 

d. Call BESETSR 



/ i__j \ . 

< |«»| >1UFHZRST 
\ r — .,/ j 

J^ 1.5.11.1.21 



TCTTE 

Tcriiinw" 

TCTEVRCS" 
TCtIvRC6~ 
TCTE¥RC7~ 



TCTTE 
TCTil«CA~ 



tcteicrs 
tctersrr - 



Jsrror dessaje writer (uiUZEflW) 



Diagra* -'■ 1.5.11.1.27-01 



lioutine Latel Ref Notes 



Routine Label Ref 



Ercoi Message uriter (UJrHZEHH) 



" Diagran - 1.5.11.1.27-01 
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I'CTXK 
[iClECEA 



[lClEBcIv 1 



ricialcip J 
iTlikidip I 



Error Message writer (JiraZEMn) 



Processing 



> 



— > 



> 



[Ob] Initiate TRACE (Macro 
DfHZTU) 

[Ob] NACE request? 



[07J Any 



errors saved before? 



f*-| N >[09l 
I—, / \/ 



[••1 >fp9l 



[08j Set • fcxeessive Errors 1 
flag 

Keset EHt) flags 



fi)9 1 Connand or Data in 
Progress? 



j\ 

••••I > 

"dphIbhh 

Teriin. 
logic 



Xes; Ongueue TCT1E froa r — J\ r — -> 

[••I >|12| 

Activate chain I — n / \/ 

[lOJ Send or Receive pending? 



j«-i N >ri2i 

l — 1 / V 



TCTTE 

tczcbnch" 

TCTEiHlI"" 



Diagra* - 1.5.11.1.27-02 



utine Latel Hef Note 



Routine Label Ref 



Error Hessaye writer (DfdZEHU) 



Diagraa - 1.5.11.1.21-02 



Section 2: Method of Operation 



231 



LICENSED MATERIAL — PROPERTY OF IBM 



i lCIEMti£ 

j ICJ.ESNK 

| IcHsEM 

IClEFUfi 



jn] ChecK request flags: 



A. If BID request 



ti. If Negative ResF ons e 
request 



C. It request to send 
error nessage 



D. If Purge reguest 



III] 



Return to caller 



-'V 

IDFHZEHW 
|EIC logic 

• •• | ■ > 

dfhzemb 



— J\ 

--V 

DFHZEHB 
Send Error 
Hsg logic 

j \ 

• ••| > 

dfh^ehh 



• ••I > 

dfhzehw 

Eeturn 
logic 



Output 



PAGE 3 OF 



Error Hessaje writer lUtHZEHW) 



Diagraa - 1.5. 1 1. 1. i7-03 



Error Message Writer (DfHZEHH) 



Routine Label Kef Note 



Routine Label P€f 



Diagraa - 1.5. 11.1. 31-03 
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PAGE 1 OF 



xLl'lc! 


I • L — j \ 


it. lit 

[icTiiIclA~~] 


> 


ii/i'iii I 


flU&ACii ] 


> 



i'tPfllNATION LCCUC *** 



[oT] Turn ott CEHZE1W Activate - 
Ke^ueot flag and change tc 
Zk nocie, it necessary 



[02] it tfAcP request is 

pending, queue TCTTE on 
NACE chain and return 






[nil 



it no errcr cedes saved r — J\ r — 






NACP and ^ueue TCTTE on 
NACF chain 



[():>] If Uidin Purged tlag is r — J\ r — -. 

I— J j..| >108| 

uiHUtus TCTTE on NACF t — -, / \/ 



f Oo | It no other requests are r — ■» \ r — -, 
i— 1 |.«| >|C8| 

pending " ' ' 



1--T/ \/ 



TCTTE 
TCTEIEMW 
TCTETMCA 
TCTEICRS 
TCTERSRR 



TCTTE 
TCTEVRC5 
TCTEVRCb" 
TCTivRC7 
TCTEVBci 



bXu'btti* - ItiLuiiudtiou aua Return logic 



Diagram - 1-5.11. 1.27. 1-C1 



Uir'a/.fiMn - 'Uiiaiudcioii &ua Htturu Lojic 



Diagram - 1.5. 11. 1.21. 1-C1 
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Processing 



PURE 2 OP 2 



Froi 
DPHZEHi 



107 J Queue TCTTE on Activate 
Chain 

*** R^TtJRN LOGIC *** 



I OB | Set return code to and 
return to caller 




DPHZEHff - Ternination and Return Logic 



Diagrai - 1.5.11.1.27.1-02 



Pontine Label Ref Notes 



Routine Label Ref 



DPHZEBH - Termination and Return Logic 



Diagra» - 1. S. 11. 1.27. 1-02 
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Input 



PM?E 1 o? 1 



fTCTEinBD |- 



DFHZEHI - BID logic 






> 



foT) Turn off BID request flag 



I 021 Set request flags and 
indicate BID to be sent 



0.1 J Call Send DPSTN (DFHZSDS). 



ZZZZZ— — — '—— - "i 



I 1.S. 11.1.17 



jOHJ Saie error code, if any 

NACP request flag has been 
set. 



^l 



v 



nPHZEHV Peturn 
Logic 



TCTTB 






TC*BTHBD 


. 


TCTTB 






TCETCSS 




TCTESCHI 


TCTEICBD 









Diagraw - 1.5.11.1.27.2-01 



ntine Label Hef Notes 



Poutine Label Ref 



DFHWBt - BID logic 



Diagra* - 1.5.11.1.27.2-01 
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Output 



PAGE 1 OF 1 



TCTTB 
JTCTBISHR j - 



Fron: DFHZFRW 
Step 11 E 



[JU 



1> 



> 



DFHZERV - Send -VE Response Logic 



1011 Tarn off • Send Negative 
Response' reguest flag 

j02? Set reguest flags and 

indicate negative Response 
to be sent 



| 03 j Call Send Response nodule 
(DFBZSOR) . 



V*"'/ 


DFHZSDR 




1.5. 11.1. 15 










0U J Save error code, if any 


NACP reguest flag has been 


set. 







^i 



TCTTB 




[tctfishr 

TCTTB 






TCTFICSR 




TCTE0S1 


TCT10S2 


TCTBIFSP 


I 
1 







Diagram - 1.5.11.1.27.3-01 



DFBZBHW - Send -TE Response Logic 



Routine Label Ref Rotes 



Routine Label Beff 



Diagraa - 1.5. 11.1. 27.3-Ot 
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PAGE 1 C? 



J iwil-ilb I | 



I i<-U'lrt*G t 






[jI 1 ! j.l ttduf]-Oi;ly terminal, 

indicate tc stnJ •£[*' cnly 
a:u jo tc ?et up SEND 
re juest 



i 

r— i [«•! > fool 

]U2) lr d 1ICA is available *■—, / V 



[-H >[C7] 



[oj] ottain a T1CA 



/i— j\ f 

< |»»| >| UFHSC 

\ r --i/ I 

|iYFE=GElHAIN 



[iJul it GtllMAU was successful r — J V r — t 



I 05 j Utnt 

request tlags, queue TCTTE 
on Activate Chain and 



[•"••-I 



CF tiZE »fW Return 
Lcgic 



i 

TCTTE 

[tctfTfss 




1 

TCTTE 

RctIicgr 




IICTEICTA 
ITCTFGPS 







z n^cn* - i><=ua cllol fts j Lujic 



Diagram - '.5. n. 1. 2T.U-C1 



tir.t Latei net Note 



Lruitrtw - ijciia tiiuc fla ^ Lojic 



Routine Label Bet 



Diagram - 1 .5. 1 1 . 1. 21 .U-Cl 
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Input 

Y 



-J 



JTCTEIPOR { "}" 
TCTTB If" 



Processing 
1 



PUCE 2 OF 3 



DFHtERB 

Purge 

Logic 



[06) Set TIOA available flag, 
select the aessage 
according to systea sense 
code and build it in the 
TTOA 



1071 If data is to be purged !••••! > 



08 J In case of Interactive 
Logical Unit, turn off 
•Signal Sent 1 indicator, 
if an E-SIGWAL has been 
sent already. 

[09 j Otherwise, set up flags 
and fields to send 
E-SIGRAL and call Send 
DPAST (DFHZSDA). 



IL 



fe >r ^ 






DFH7SDH 



1.5.11.1.13 



j 10) Save error code, if any 

W1CP request flag has been 

set. F -, «» I > 



DFRZEHV - Send Error Hsg Logic 



dfh4b«w 

Return 

Logic 



TIOH 










TCTTB 




JTCTBIHtG 
TCTTB 




(tctbtsis J 

TCTTE 




TCTBIBSG 




TCTBICSI 


TCTBSIDO 


TCTEISIS 









Diagram - 1.5.11.1.27.8-02 



Routine Label Ref 1 Rotes 



Routine Label Ref 



DFHtERW - Send Error flsg Logic 



Diagra. - 1.5.11.1.27.9-02 
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Processing 



PUGB 3 Of 3 




1 11) Turn off BHi Send Request, - 
Storage Acquired and First 
RO Purged flags 

I 12] Set request flags and 
indicate message to be 
sent 

ll 3 1 Call Send DPSYH (DPHZSDS). 



N| 1/ 



1.5.11.1.17 



FllJ Sa*e error code, if any 

NACP request flag has been 



DFHZBflf - Send Error Bsg Logic 



L, 



e™[ 



DPHZEIfW 

Terainat. 

Logic 



TCTTE 






TCTEISEH 




TCTEIPPP 


TCTEIHBG 


TCTTE 






TCTEICSS 






... 






TCTEBDH 









Diagraa - 1.5. 11. 1.27.4-03 



Botes 



Jl2| Beaore any Hew Line characters 
froa messages to be sent to a 
3270 Data Stream terainal. 



Routine Label Bef 



DPI IB Bt - Send Brror Esg Logic 



Diagram - 1.5. 11.1.27.»-03 
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Processing 



PAGE 1 OP 3 



TCTTE 


From: 

1.5. 11.1. 27. « 

Step 6 


JTCTEICAP j 




RPLBAB 




! r 









|0l ) If Chain Asseably is 
progress 



102] If BPL not available, set 
up GETHAIH request for 
BPL, queue TCTTE on 
Activate Chain and return 



Ey^ 



03 j Set up aessage in TIOA to - 
show that inbound data has 
been purged 



*l 



DFHSEHB Hetorn 
Logic 



Prepare to append sax. 90 - 
characters fro* first RD 
to be purged to aessage in 
TTOA. Reaove SBH sequences 
froa 3270 data 



El 



v*W 



TCTTE 






TCTETCGB 




TCTBICBP 


TIOA 

















DPHZEHB - Purge Logic 



Diagraa - 1.5.11.1.27.5-01 



DPBZBBV - Parge Logic 



Routine Label 



Pontine Label 



Diagraa - 1.5.11.1.27.5-01 
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Processing 



PAGE 2 r.f 




To^l it CLSDS1 was scheduled, 
rtadt Purge Beguest tlag 
ana jc tc Termination 
i.cgic 



t ./ 



m 



11 Ri?L storage aust te 
acquired, set request 
flags, queue TCTT1 on 
Activate Chain and return 



bj Set on Eata in Progress 
rlag and issue Receive 
Speciiic 



::»i 



EFHZEMW 

Teminat. 

Logic 



I::-:;:] 



EFHZENW Return 
Logic 



,L 1\ r 

< |««| >|EFHZEVS 



deceive Specific 

1.5. 1 1.1 . H 



TCTTE 

[tcte PtlR 1 



TCTTE 

[tcteicgr 1 
Itcteicpf J 



TCTTE 
[TCTEiniP~~] 



DitiZbMw - tur.je lOjic 



Diagram - 1 . 5. 1 1 . 1 . 21 - 6- C2 



[Oo] on ccoi^xetion, UoZhVS will 

ucneaui.e tttw-r.ji.it TCZtrtXOI (see 
Cnart l.s, 11. 1. *7.o) . 



Lai.el tief 



Lttibtn* - t-ULje to^ic 



Routine Label Fef 



Diagras - 1 . S. 1 1 . 1 .21 .5-C2 
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FAGE i CF • 



CFH7E-K PPturn 
Logic 




Lr nutria - tuL 3 «s lo-jXC 




Diagram - 1 • £ j . 1 1 . 1 . 



notco 



tiOUtllle 


Latei 


«<?f 


Nctes 


Routine 


Latel 


Fef 

















Lrii6£l1« - tUljL i.O- 



Diagram - 1.«j. 1 1 . 1. 27. *-C3 
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PAGE 1 Of 2 



Return code 



?ro« »?An 



JTCTBISEH | 



> 



> 



> 



|0lj Establish addressability 

and nrovide access to CSA, 
TCTPX, 'CTTE, and PPL 

Turn off Data in Progress ■ 
flag 

] 02 J Issue CHECK aacro 



G3 

IE 
ED 



If any severe failure 
detected in LB1AD/SYHAD, 
set Excessive Error and 
UUCP Activate Bequest 
flags and queue TCTTE on 
Activate Chain 

Tf data received, but no 
SEHD request pending 

Otherwise, indicate that - 
first RO has been read and 
include up to UO 
characters froa RO in 
■essage. Beaove SBA 
sequences froa 3270 data 



EJSfMl 



06j If EOC received 






E}>^ 



DPHZEHB - Exit TCZBHX01 



TCTTE 






TCTIIDIP 




TCTTE 






TCTEPCS7 




TCTEICEA 


▼TOA 










TCTTE 






TCTBIPFP 





Diagraa - 1.5.11.1.27.6-01 



1 3] DPHZBBW will perfora the 

coaplete set-up for Excessive 
Error. 



DFHSSHW - Exit TCZBHX01 



Diagraa - 1.5.11.1.27.6-01 
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rToces-siu j 



PAGE 2 If 




[07] otnBi'nis-J, on if a command 
oLticL- than CANCEL has teen 
lectii ved , -jueuc 1C7TF. en 
Activate Chain 



[Cd] It CrtwCEL was received an,i r - — »\ r — n 
uo iiiwD request is pending L --n / \/ 



|0i»j inuicate in iressace that 

C A N C ii L has teen r e 00 i v e d | 
I 
I 
I 



1G| iULn off Purge. He quest 

tl.ij and reset Processing I 
Cnain State j 



|11j iL Cnain Purged flag is 

Tl^l det Cnain Purged tlac and 
or ret cede 1C2FPGC 



fl-H ^uo-ue 



I 

i__ 
._ 

1 



ICIIF. cn Activate I 



ofidiu and return 



" —3:1 



L J 

TCTTE 

[tctefhr 1 
itctfppc ~| 



TCTTE 



TCTF.CPG 

1CTEVRC8 

1CTE1CEA 



Lr'ii^nrti* - liXxi iLi-tftALl 



niagram - 1 . b. 11 . 1. 21 . 6-C2 



flouting Latel Fef 



jl*.| liilJ: UUoti INAUt to Wtltt; 

't'Ui.jcu xlit-OUil^i (.UulTl* lUrf.ioaJri 



It Ii^CI'IAU 



Diagrair - 1 . 5 . 1 1 . 1 . 2*» .6- C2 
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Processing 



PAGE ' 0* 



TCTIE 

[iciteaid"] 






3270 Print Key (Task Attached) 



[Oil Return if not print key 
attention identifier (AID) 





/i— j\ r 

< |— | >|DFHTC 
\ r— t / ~r ~ I 

jPnnt data I 

[51] 



< l — l > 
\r — -,/ 



Get TIOA and set 
data length to 
zero 



7777777777777 ( > 



/i_j\ f 

< [••[ >}DFHTC 

j Unlock keyboard 

JO 5 1 Set restore read indicator. 
\ob~\ Return 



77777777777? lis 
|//f > 



[•••••I-:] 



TIOA 

[tioadtl 1 

(Data I 

(length | 






Diagram - 1. 5. i 1. 1. 2R-C l 



1101] Xne AID derines tne 3270 program 

1 application Key that has »een 

I specified as tne print key 

I during CICS generation of the 

I TCI IE. 

I 

I 

I 

U02J DFhIC f YP,fc=J?fiINl macro. 

i 

I 

ifon] C3(hex) specified as the 3270 

I write control character in the 

I CILCdAE operand or a DFHTC 

1 TYPE=WttiTE macro unlocks tne 

I Keyboard. 



Lakel 
EXIST 



3270 Print Key (TasK Attached) 



Routine Label fief 



Diagram - 1.5.11.1. 2E-C 1 
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PAGE 1 OT 



f-L 



3270 Print Key - Copy Program 



DFKCPY: 

'oil 



A. Get source terminal ID ■ 
and model number 

/ l— J \ r — , 

< |»»| > CFHIC ] 

B. If the return from 
BFHIC is ncnzeio, set 
an AEENC code and 
branch 



[02] Ge 



[03] Set 327C copy control 
character 

[0Uj Put source terminal ID 
into 1ICA and set length 



foil Copy data 



To 

1.5.11.1 

.29-02 

r»-i >roii 

L — t / V 



7777777777777f > 



7777777777771 



/ i_j \ r 

< |»»| >)CFHTC 

; ,_,/ [:::::::::::::z~d 

[Ofa] Initiate transaction CSRK 



K> 



TWASTIL 
Length of 
record 



1HASTTM 

Terminal 

model 



TIOACLCR 
3270 copy 
control 
character 



1IOA1DL 
Length 

TIOAiTID~ 

Terminal 

ID 



Diagram - 1.5. 11. 1.29-Ci 



DFhCPY nas oeeu invoiced by a 
DttilC Xi:P£,=Pul macro with data. 
The data is recovered by nay of 
the DfhIC TK££=Gi$T macro. 

ABfcND code = ACC1. 



Ibe 3270 copy control character 
must ne provided to start 
printing from tne buffer. The 
character used depends on the 
model of the source screen. For 
example, Model I requires a 
cnaracter of 5o (hex) , whereas 
Model j. requires 7B (hex) . The 
model numoer of the source 
screen is avaixaole in TWASTTM 
in character form. 



E3 



i05j Tne DFHTC HfPi,= C0PY macro will 
copy from tne terminal whose ID 
is specified in tne TIOA. 



Routine Latel 



3^70 Print Key - Copy Program 



Diagram - 1.5.1 1. 1.29-01 
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3^70 Print Key - Copy Program 



Processing 



from 
1.5.11. I 

.29-01 

[08l-| > 
[&1 — I > 



for source terminal 



^ -,/ t:::::::::::::z::J 

[07] If return is zero, branch; r - — -«\ •—• 

1 — J )•••! >|9j 

otherwise, set ABEND code *■ -1/ «-J 



[08j If abnornal exit, ABEND 
transaction 



ill] I£ 



normal exit, return 



[•:::-:! 



FAGE 2 OP 2 



Diagram - 1.5.11. 1.29-02 



Obi Transaction C5KK will unloc* tne 
source terminal Keyboard. 



t£!J 

S3 



AMEND code = ACE2. 



Routine Latel Bef 



Routine Label set 



3270 Print Key - Copy Program 



Diagram - 1.5.1 1.1. 29-02 
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Processing 



FACE i C? i 






Df fcRKE: 



jO 1 1 | Get TICA storage 



/i — j\ 

< |»»| ^JiiFHSC 
\r--i/ I- 



1 

l ::::::! 

102] Set riOA length tc zero 
|03| Umock keyboard 



7777777777777( > 



/*■-- J \ r 

< |»«| > CFH1C 

\ r t/ j 

I 



03 



Return 



[-:-! 



J^70 UniocK Keyboard Program 



\ / 

V 
1.5.11. 1.29 




Diagram - 1.5. i i. 1. 30-Ci 



03 i CJ(nex) specified as the 3^70 
write control cnaracter in the 
CTLCHAa operand or a DFHIC 
TYBZ^UulTh macro unlocks the 
xeytoara. 



utine Label Fer 



J^!70 UniocK Keyboard Program 



Diagram - 1.5. 1 1. 1. 30-01 
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TCT1E 




DFHZATT 
1.5.11. 1. 10 


[iClTETT 
I Ierminal 
{_type 

ICT1B 

[iCTEICPY 
l :i .. ..1. 

{ 1C1EICPA 

TCI IE 




._. 


[D— - > 
■»0 " 







Process iag 



PAGE 1 0* 




[01j Branch if terminal is a 
3275 

[ol] Branch if 3270 copy 

feature cannot be used 



[03 | Find a specified printer. I *Io " 
— • h. 5.11.1 



[•• >T09l 

*■ T / \/ 

I To 

1.5.11.1 
j. 31-02 

[••I >T09l 

llo 

1. 5. 1 1. 1 
1.31-02 

y«-i >[oii 
l — i / v 



[04 Is printer available for 
use 

A. No — if task attached 
out of service, or 
intervention required 
— branch 

B. Yes — save printer 
TCITE address 



[••I >f09~] 



3270 Print Key (No las* Attached) 



TWAPRSV 
Printer 
TCTTE 
address 



1 Diagram - 1.5.11. 



JOll Hardware copy feature not 
availajiie tor 3 27 5. 

J02] Tne COPY option must have heen 
specified in the PRIN1TO or 
ALXPB1 operands ot the DFHICT 
macro. 

}03| It no printer is available, 

terminal control uill diagnose 
this condition uhen the DFtiTC 
TY£-h=£BlNl macro is invoiced. 

[ck] See also Note 3. 



Latel 
PRKST 



Routinel Latel 



3270 Prxut Key (No IasK Attached) 



Diagram - 1 . 5. 1 1. 1. 3 i-C 1 
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FAGI 2 0? 3 



i — i 



J 1C1TETI 
i Source , 
i terminal 
I lu 

| IClTiTM 
I Source 
j terminal 
i noael 



: ~iI=::=:-:0 



r _ — j \ 

1 09 1 • | ; 
V -i/ 



fos] If COPY was not specified 



tor tne available pri 
.ranch 

[Qb] Get source terminal ID ana- 
model number and set 
record length 



nea r -\ r — 1 

[•••i >m 

nter,*--—- ,/ «~J 



Qz] 



A. Initiate CSCY 

transaction to printer 
to copy data 



j*. — _>, _ . 

< |**| >|DPHIC 
S r — t / | 

L J 

B. It an atnormal return 
code from DFHIC is 
received, branch to th< 
AB.ND routine 



[oil Go to exit 






TO 

1. 5. 1 1. 1 

.31-03 

••i >n«i 



••I > LFHTC 

""" ir int'data" 



ITWASTIL 
j Length of 
(record 



TVASTTM 
Terminal 
model 



3.70 Print K«y (No lasic Attached) 



.___.___._J 
5.11. 1.3'-C2 



j-70 Print Key (No las* Attached) 



Koutine Latel 



Routine Label 



Diagram - 1.5. 11.1.31-02 
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PAGE 3 Of i 



Froa 
1.5.11.1 
.31-02 
I— 1~ ls 
V --•/ 



Froa 
1-5-11- I 

.31-02 

V -i/ 



[To] Get TIOA 

< |»«| >I"dfhsc "1 

[77] Set TIOA length tc zero 

QiJ Unlock keyboard 

/ «• • \ r n 

]-' l::::::::::::::d 

[75] For abnormal exit 

A. Set ABEND code 

B. Set DEHIC response code 
in BO 

C. ABEND transaction 
{Tin For normal exit, return 






[tioatdl ] 

TIOA ( 
(length I 



3270 Print Key iNo lasx Attached) 



Diagram - 1.5. 1 i. i. -Wj 



05J It required, the COPY option 

mil nave neen specified in the 
PEINTTO iprimarj printer) or 
ALIPBT (alternative printer) 
operands or tne DFHTCT macro. 
See also dote 3. 



|Q7j Tne CSC* transaction is 

initiated ay a DtfhIC TXPE=PUT 
macro. Data is provided in 
V-foraat, starting at TNASTIL in 
the TWA, and contains the source 
terminal ID and terminal model 
numrer. 

foal If the 32 70 copy feature cannot 
ne used, copy is performed by 
the DFtiTC TXPE=£aiNT macro. 

fT2J C3(hex) specified as tne 3270 
write control cnaracter in the 
CTLCHAh operand of a DFHTC 
T¥PE=KRIIjs aacro unlocks the 
keyboard. 



HE 




ABEND code = APR!. 



3270 Print Key (No las* Attached) 



Diagram - 1 .5. 1 1 . 1 . 31-C3 
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PAGE 1 CT 1 



TCTIE 

flClT£DA 1 | 

j da ta II 

j address I ] 



1 10 A 

[llOAlDl 1 

1 da ta | 

I length j 

J IIOADBA I 
{data begin) 

J address j 



3270 Uppercase Translation (DFHZUCT) 






03/ 



[01] Set up base register via 
DPHTCPSH 



02 Address TIOA 



I 03j Return if zerc data lengthr n 



[•::;>[!] 



foal Translate data to 
uppercase 



[oi] Hhen all data has been 
translated, return via 
DFH1CFET 



7777777777777^ > 



'{> 



e™i 



V 

To caller 



Stioadba" 
data begin 
address 



Diagram - 1.5. H. 1.22-01 



J01 j No registers are saved. 



03.1 TIOATDL is tested for zero. 



[04j The data is translated 256 nytes 
at a time. 



Poutine larel F€t 



3270 Uppercase Translation (DFHZUCT) 



I Diagram - 1.5. 11.1.22-01 
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FACE 1 CF a 



| li~i.tii.LhLl 

LCI-it 

f ICLclLhO 



fioiu; DthioVS 









l_j 



cNToX LCGIC 



[Oil iistaulish addressability 

[oil 



isjue TRACE nacre 



it a HETKAIN request for r — J\ r — -. 

,. )••! >|09| 

A is pending, set up to 1 - — -, / V 



03 



TlUA is pending 
rttry GETHA1N 

it deulocking is in 
progress, reset YP.ti 
xnaicdtor and go tc scan 
Col' logical record 



•I >[Hhl 



INillAL DtKLCCK BEtUEST *■—-,/ \/ 



fot>] Point to Input Unit and 
remove TIOA from TIOA 
chaiu 



7777777777777f > 



Save cOC and EOD 
indicators, then turn the i - 
off and set 'Deblocking in 
Progress' flag on 



Drn^LuP - LUjiCdi ueocra fceseutdtiu 



[tc 



TCTEEMHI "1 



TCTTE 
TCTFLRC 
TCTELRZ 
TCTEEOc" 

tctf.eod" ~| 
tcteilrd i 



Diagram - 1 .5. 1 1 . 1 . 13- C 1 



u^titL liPii=i)rCnAii» 



aoutine Latel Kef 



ur'n/,i.uP - LCjicdi fleooru Presentation 



Latel Bet 



Diagram - 1.5. 1 1.1.S3-C1 
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FUG* 2 Of * 



[liGALbA j- 
IUJA1DL | 

I'LI'lJS 



[l3liiiHCJr"]---- J 






DttiuLa* - iOjicux aecoLu tees tut dti on 



EJ 



SCAN *0B ICGICfll FFCCHD 



tfoint to start of data and' 
atjtdriiiina numter cf tytes 
to ce scanned 



[07] Semi input Unit fcr 
delimiter : 

A. It no delimiter^ cund , 
toint to new start of 
scan, update ctfset , 
ana continue scanning 

r a. If end of data, reset 
•Dbblccking in 
Progress 1 flag, update 
oitset, and gc to 
ootain user TICA 




C. if delimiter icund and 
not end of data, update 
offset and 3c to cfctain 
U^tit 1IGA 



1 -,/ \/ 



[••I >f09] 



Registers 
Address 
Offset 



length 



1CTTE 
fTCTFILiD""] 



Diagram - 1.5. 11.1.33-C2 



jOoj li da irriii is t L-ti>*nt (1' C1&* ttrtl 
is cu; , uata ssLdCts jjtniad F«H. 



IFi 



ine euu 01 an j.iiput Unit is 
cojiiiuci-eu to ua thii en a of a 
iUjXCdi. ttCOIU, rejal'dj-tiSo 

Nh *:t aer or uct a delimiter 

Hdb eltCCUUtc.-i.ea. 



cioutiiie Ldticl 



tru^riiii' - LOjiCux tmccru ties tut. a ti on 



Diagram '- 1 .5. 1 1.1. 33-C2 
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lu t ut 






Processing 



PAGE A CE U 



£ 



Oki'AiM USER 1ICA 



Joy j Determine length of "IICA 
to ce obtained 



fTUj It d now IICA need not be f --JN 
obtained, process as 
successful GE1KAIN 






[II] 



issue GEIMAIN macro to 
octain new TIOA 



[T2] it G&1HAIN was successful, 
then; 

- tieset GETKAIN request 

iiaj. 



- Move logical record to 
user 1I0A. 



Kesume user task. 



'7 — 3:1 
I V 

\lc caller 



TCTTE 
fTCTllLPu""] 

L J 



TCTTE 
ITCTTEDA ] 

TIOA 
RlOATDL ] 



TCTTE 

Tcriioc 

TCTEECD 
TCTFILRP 



TCTEIHCS 
TCTTERR 



Ui'bLL&t? - Logical hecord tresentdtion 



Diagram - 1.5.1 1.1. -3-C3 



D3 



A new no A uiust ot obtained it 
oue or tut renewing conditions 

la IUJ.IJ..L -Ltd : 

- he useL IxCA iy avaiiaDle. 

- mere is a Sh Vr. request. 

- ine existing LlOA is not larje 
eucuju. Id tiui case, the 
existing IiOA is creed. 



1 14 otti-^ net=*titikxH 



[Hi 



tor ttrininai stcrdje 



D3 



ftoxinj tue iojicaj. record 
includes: 

- iciflLiiij uemnu ?KH it there 
exists one. 

- est dull sum j to in tecs to TIC A 
dim next .toxical record. 

- loccuuj cor delimiters: ml 
cndidcttii are sovea, TEN and 
m!: cualactui'tj are not. 



Routine Latel 



Resuming the user task includes 
checking it RC is exhausted. If 
yes, TCTELFE is reset to cause 
DFHZRVS to read the next PU. 
This is dene in addition to 
resetting the flags TCTERSPI, 
TCTEIPCS, and TCTTERR, which is 
dene regardless whether the Rn 
is exhausted or not. 



LffeaLKtf - LCjiCdi neocru fcresentdtion 



Diagram - 1.5. 11.1.33-C3 
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In±.ut 



iToceaoin g 



FAGE «* OF U 



f iClrlxZiu" ] 



t-tvntAni- RE1PY 

[Tj] if Gli'iHAIN tailed, 

uet<=raine if this is the 
ueocuu (cr sutse'guent) 
taiiutc. If ec, 
t ;teii;ar3ticn tcr retry has 
already be^ri done. Queno 
iUMjS en Activate Chain 
ai\a return 



tuj otherwise, prepare fcr 
retry, queue 1CTTE oe 
Avtivdte Chain and return 



Dftii.Lb.kf - LOjxcul fltccia Srtsseutd tiou 




Diagram - 1.5. 1 1. l.:-3-C1 



I 1 «* J Tne i-cxiitcL coutaxuinj tne 

L.aa-ot-oa. tu oi u« xx iiii te i aadreuu 
is sdVtiU xu iCrir.LA in oraer to 
uiaxiita-Lu the oxu ottset value. 



Eoutine Latfil Bef 



Li aci.a.i? - xcjxcux titcoru frescncatxou 



Diagram - 1.5.1 1.1.33-Cfl 
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iu*-Ut 



PAGE 1 01 1 



from: btHZNAC 



[lCIiJNEPC 1 



I.... I > 



[01J If error class is zero or r -— ' v r — -, 
—J ]••! >)03j 

greater than ■axiium errcr*- — i / \/ 

class generated 

[oi\ Point to appropriate NEP 
Table entry 

foil If a NEP nane exists in 

the HtP table, place NEP 

naae in 1CA and link to 
user-written NEP 



[04J If error class was not 

zero, redefine the defaal 
HEP as a Oser NEP and 
retry 

f05j Otnerwise, return to 
DEHZNAC 



DPtiiHisP - Noae trior frogran Interface 




Diagram - '. 5. 1 1. 1. 3M-C 1 



Ei] 



DtfttkC l'XPJt=i.II)iA.,CCND=Uc:S 



0<*j i'ne tenter to tne NEE taole 
eutxy is teaet to ±»cint to rue 
first tdiiie entry. 



E3 



DittEC 'UP£=afcTU6d 



flFniHtP - hoae ritoL Erojran Interface 



Boutin*? Latel Fct 



Diagram - 1.5. 1 1.1.24-C1 
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INPUT 



PROCESS 



TCTTECIP 
TCTTEDIP 
TCTTESOS 



TCTTE 

|tcttercs"" 



TCTESQIP 
TCTTECR 
TCTTECRE 



|tcttesmd 



^> 



@rr> 



BSave TIOA address and generate temporary storage 
data identifier 



Elf command or data in progress, or if the terminal 
is out of service, Receive is chained. Otherwise 
Receive is called 



WAIT for completion 







Save the TCTTE status in the TIOA, first obtaining 
a larger one if necessary. 



Issue a temporary storage PUTQ macro to save the 
TIOA and set the read ahead data available and purge 
required bits 



If not in send mode return to step 2 to read more 
data, otherwise restore the original TCTTE status 
and reset the read ahead queue required bit, and 
return to the caller. 



OUTPUT 



ny$ 



i 





TCA 






TCATSDI 
TCTTE 






TCTTE RCS 
TCTTE 






TCTTEOSR 




TCTTECR R 




TIOA 






TIOATDL 




ZRAQSQIP 


ZRAQCR 


ZRAQCRE 




TCA 






TCATSDA 
TCTTE 






TCTTE RAD 
TCTTE RAP 






TCTTE 




TCTTEDA 
TCTTERAQ 











DFHZRAQ - Read ahead Queueing 



Diagram 1.5.11.1.35-01 



I 02 I Receive module 



DFHKC TYPE=WAIT 

DCI=TERMINAL 
or DFHKC TYPE=WAIT, DCNDISP 



DFHTS TYPE - PUTQ 



DFHZRAQ - Read ahead Queueing 



Diagram 1.5.1 1.1.35-01 
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INPUT 



FROM 
DFHZARQ 



OUTPUT 






V/////////fy 



[oij 
[U 



Construct temporary storage data identification 

Retrieve item from temporary storage queue 

If temporary storage error occurs ABEND the task 
with a code ATCR 

If the queue was empty reset the Read-Ahead Data 
Available indicator and return to the caller with a 
return code of H. 

Wait for an outstanding WRITE to complete if there is 
one or allow higher priority tasks to be dispatched. 



Decrement TIOATDL by 4, the length of the data 
saved by DFHZRAQ at the end of the TIOA. 



Restore the TCTTE from the data saved by DFHZRAQ 



Save the T|OA address in the TCTTE. reset the read 
request bit and return to the caller. 







TCA 




y/////////^ 


TCATSDI I 
TCTTE 








V/////////J 


TCTERADF 
TCTTE 








Y/////////J 




TCTTESR • 






TCTEICRR 


K 




TIOA 




'//////////j 


TIOATDL 
TCTTE 








Y/////////J 




TCTESQIP 






TCTTECR 




TCTTECRE 






TCTTE 




v/////////h 




TCTTE DA 






TCTTEORR 










I 




Return to caller 









DFHZRAR - Read Ahead Retrieval 



Diagram 1.5.11.1.36-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 







ZRAR90 
ZRAR80 
ZRAR20 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











DFHZRAR - Read Ahead Retrieval 



Diagram 1.5.11.1.36-01 
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RPL 




RPLREQ 


RPLNODE 




TCTFX 




TCTVRAVC 


TCTVRAVL 




CSA 




CSAOPFLA 
CSASRAA 
CSATCNAC 




SRX 




SRXNXHTA | 
HTA 




HTAAD I 
HTACHN I 




TCA 




TCASYAA | 
RPL 




RPLECB 
RPLNEXIT 




RPL (Extn) 




ZRPLNHTA | 




TCTFX 




TCTVRARP | 







From 

DFHZHPRV/ 
DFHZHPSD 
macro expansion 

Ekt> 



PROCESS 



] 



HH> 



DFHZHPS1: 

01 Clear RPL Extension and save return address 

02 If no HTA needed for request, set indicator on 



I 03 I Address SRA and access HTA quick-cell chain 
Take HTA off chain 
If none on chain, call 



<n^ 



CICS Storage 
Control 



DFHSCTYPE=GETMAIN 

CLASS=CONTROL, 

COND=YES 



04 Initialize HTA 



05 Initialize RPL for SRB mode SYN request and complete 

' ' RPL extension 



06 lf Receive Any request without an HTA, add RPL to 

queue, return to caller 



07| Pass RPL to executor via SRB 

<S>| 



CICS Task Control 



DFHKCTYPE=SRB, 
SERVICE=ATTACH 



08 Return to caller (F1ETCD=0) 



L^a 



^=> 



^> 



RPL Service (DFHZHPSR) 



1 



1 


RPL (Extn) 
ZRPLNHTA 
HTA 




1 


HTACBAR | 
HTA 






HTARPLA 

HTAEPA 

HTAFLGS 






TCA 

TCARSTSK 
RPL 






RPLBRANC 

RPLECBIN 

RPLASY 

ZRPLCOMP 

ZRPLECB 

ZRPLTCTE 

ZRPLSRB 






TCTFX 
TCTVRARP 











Diagram - 1.5.11.1.37-01 



01] Return address saved in RPL extension 
while HTA obtained, then in Register 
0. 

|— — I HTA not needed for Receive Any 
| 2 | requests unless there are too few active 
SRB made Receive Anys, always obtain 
HTA for SEND or RECEIVE SPECIFIC 
for SRB attach. 



Control is given to the RPL executor 
in SRB mode, via Type 6 SVC, issued 
from SRB management services in 
task control. 



REFERENCE 



RPL Service (DFHZHPSR) 



Diagram- 1.5.11.1.37-01 
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| Exit Boutines | 
| 1.5.11.21 



| Logon Exit 

| (DPHZLGX) 

| 1.5.11.2. 



IOPHDST Exit 

| (DFHZOPjC) 

| 1.5.11.2.* 



ISfcSSIONC fcxit I 
I (DFBZSEX) | 

| 1.5.11.2.31 



Ifieceivfc | |Seaa DFASI Exit| 

ISpecif ic | | (UPHZSAX) | 

I (OPrtZBVX) | | 1.5.11.2.b| 

I 1.5.11.2.«| • ■ 



ISession Control | 
|lnput Exit | 

| (DFHZSCX) | 

| 1.5.11.2.61 



ICLSDST Exit | 

| (DPHZCLX) | 

| 1.5.11.2.71 



IBesponso txit | 
| (Di-HZRPX) | 

| 1.5.11.2.b| 



ILOSTkHM Exit | jHelease Kecjuest| 
I (DFHZLTX) | | Exit (DFHZRRX) | 

| 1.5.11.2.91 | 1.5.11.2.101 



II 1 1 

V V V v 


1 
V 




|DFASY Exit | |LBBAD Exit | 
| (DPHZASX) | | (DFHZLEX) | 
| 1.5.11.2.111 | 1.5.11.2.121 


(TPEND Exit | 
| (DPHZTPX) | 
| 1.5.11.2.131 

L_. -. , - . .... , .J 


|Send DPSYN bxit| 
| (DFHZSSX) | 
| 1.5.11.2.1UI 


» SYNAD Exit 1 
1 (DFHZSYX) 1 

| 1.5.11.2.15, 




























' > 


> 


' 


r 



Send DFSYN Data 
Exit (DFHZSDX) 

1.5.11.2.16 



Turnaround 
Exit (DFHZTAX) 
1.5.11.2.17 



RPL Executor 
(DFHZHPRX) 



Network Services 
Exit (DFHZNSP) 
I 1.5.11.2.19 



Visual Table of Contents 



Diagram - 1.5.11.2-01 
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I5L 
i::: 



f cSATCTB A j- 






JTCTVDflTE 


■- 


■"1 




i 


Syntolic 
name in 
parameter 
list 






CSA 





fcSA SSI2 \ 



foTj Set up addressability and • 
save VTAM return address. 

J02J Initialize pointers for 
NIB table search. 



[03 | Scan NIB list to identify 
node and set up 
addressability. If not in 
NIB list... 



looj Indicate node logged on 

and queue TCTTE for 0PN0ST 
as long as system is not 
terminating. 

If terminating... 



& 



^ 



r 



Place invalid symbolic 
name into dummy TCTTE 
and queue it to NACP 
for error processing. 

If not terminating... 



Ej/' 1 *? 



[••I >|ac| 
■•— i/ V. 



TCTPI 






TCTVEVRA 


, 




Registers 

2-3-4-b 

Initialize 




TCTTE 






TCTEILOS 
TCTEICOR 
TCTBICSL 




Dummy TCTTE 






TCTTESC 
TCTEPHH1 
TCTEVRC5 
TCTEDflRB 











Diagram - 1.5.1 1.2. 1-01 



foi| Register 14 must be saved for it 
is the return address to TTAN. 



& 



Due to the speed at which the 
logon exit is driven by VTAH, it 
is very possible that the TCTTE 
could vind up in SIHLOGON again 
before the SIHLOGON request bit 
is turned off. Thus, Logon Exit 
turns it off also. 

Note: This hipo indicates the 
normal flov. 

A. In order to log the symbolic 
name of the invalid node, a 
dummy TCTTE is needed. 



Rotitinei Label 



Routine Label 



Logon Exit 



Diagram - 1.5.11.2.1-01 
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Input 



Processing 
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aaae in 
laraaeter 

List 



j TCTVDMT B | 



[TCTfBfBA ) - 



Since systea is 
ter una ting pre tent 
additional logon 
atteapts. initialize 
dedicated BPL for 
SBTLOGOM and CLSDST 
aacio instructions. 

CLSDST invalid node 
atteapting to LOGCH, 
initialize dedicated 
BPL for SBTLOGOH and 
CLSOST aacro 
instructions. Also 
indicate if CLSDST 
failed by going to 
HACP. 

Initialize dedicated 
BPL for SBTLOGOH and 
CLSDST aacro 
Instructions. 



EE«> 



/ 


BPL 






BPL0PT11 






BPLABG 
BPLBXTD1 


/ 


Duuay TCTTB 






TCTBDHBB 
TCTTBBHH 
TCTBVBC5 




\ 
/ 


BPL 






BPL AC B 
BPLBXTD1 













Logon Bxit 



Diagraa - 1.5.1 1. 2. 1-02 



B. By issuing SBTLOGOH Quiesce, 
all subsequent LOGOHs will be 
rejected by TTA11. A coanon 
BPL set up routine is linked 
to with a BALB. 

C Whether the systea is 

teralnating or not, a CLSDST 
of the invalid node is done. 
A BIL is aade to the coaaon 
BPL setup routine. 

D. Coaaon BPL set-up routine is 
linked (EALB) to by the 
SBTLOGOH and CLSDST routine. 



Boutine Label 



Logon Bxit 



Diagraa - 1.5.11.2.1-02 
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""HALS 10. 15 
jfrom V*M1 



"rocessino 

r 



"L |_ 

rPPLTlSFLT) "1 



|Fegister I- 






Itcttpts 
i tctevts2 

| TCTTETT 
IT^TECSP' 



FRPr.AP^ 



TCTFT 



03 



fSil 



Output 

r 



CHART: HT"OO0O1 

ri r ,? 1 of 1 



Savfi v*"Ar< return address 
and set uo addressability 
to RPL and TC"""*. 

Validate completion of 
PPVD5T renuost with the 
CHvrK macro instruction 
and take appropriate 
action. Take special 
action on non-7ero return 
cole. 

If not a VTA" 12"?0, oueue • 
SESSTONC if 16 1« or 
resynchroni^ation is not 
required . Tf node is out 
of service, do not olace 
on activate chain. 

For a V*A"1 I?"* , request a 
freeraain of the PPL 
without oueueing 'iFSSTONC 



i i 

i 

1 i 
1 1 





In'. 



EE~1 



Return to VTAi| 



TCTFX 


[tctvfvpa j 


TCTTE 


JTCTEICTD j 



TPT^F 



fTCTFCTr) 
TCTETCSC 

TCTTjirrn? 

T^ETSIV 
TCT^IOPD 
TrT'ETPPT. 
TCTFfCS^ 
•'"C'ETCFP 
TCTFTCRY 
I TCTKTWSD 
TCTEISAP 



OPNDST Exit (PPHZOPX) 



1.5. 11.2.2-01 



I pi] TCT^EAP is loaded with the 
contents of PPLOSFLP. 



\02~\ Vtam inserts a return code in 

register 15 at completion of the 
CHECK macro instruction 
processing indicating the status 
of the QP1DST request. 

Tf register 15 is negative LFRAD 
or oYMAT hav<= done the error 
processing so we just return. T f 
register is has any other code 
in it, the TCT T F is queued to 
1ACP. 

fo 3l Tf the previous session was 

abnormally terminated, the TC^TF 
is queued for resynchroniration 
processing. T f the rode is to be 
brought up out of service, the 
TC'TE will not be placed on the 
activate processing chain. Also, 
if the system is SOS, the RPT, 
will be freed . 

Resynchroniza tion is not. 
performed for a cold start 
terminal. 













Mot 


ps 


Poutine 


Label 


Pef i 


1 
1 

i 

1 

I 

1 

1 
1 
1 
1 
1 

I 

1 

1 

1 

I 

1 
1 

! 
1 
1 
1 

I 

1 
1 

1 

i 
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i 

( 

i 

i 

i 

i 

i 

1 




» 
1 

! 

t 

I 

1 

i 

1 

1 
1 

1 
1 
\ 
1 
1 
1 







0P10ST Exit (DPHZQPX) 



1.5.11.2.2-01 
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^BALR 1<1. 15 
frcm VTAB 









,JJ 



??I«CHTSC j— , /[I] 



.s f -,Q— 



r 






J01| Establish CICS contrcl 
block and save area 
addressability. 

1 02 1 Check BPL for successful 
completion. LERAD entered 
if in error. 

|0J| Analyze for response type 
received and command 
issued. CLEAR and SDT: 

A. If *VE response 
received is for Clear, 
turn off command in 
progress and Clear 
request. Put to high 
activate queue for 
Resume or asynchronous 
control return. 

B. If +VE response 
received is for SDT, 
turn off the command in 
progress and SDT 
request. 



0- 



r 
u 



TCTTE 




JTCTECIP 






TCTBICLR 
TCTEICRC | 
TCTEICSR 
TCTEVIPS 












TCTEISDT 
TCTEINSD 
TCTEICPR 
TCTEIRPL 











SESSIONC Exit (DPHZSEX) 



Diagram - 1.5.11.2.3-01 



f 03 | Completion of Clear will cause 
return of control to original 
requestor of Clear command 
service. Completion of SDT makes 
TCTTE available to CICS for 
processing. There is no 
requirement to return to the 
requestor of SD1. 



Routine Label 



Routine Label 



SESSIONC Exit (DPHZSEX) 



Diagram - 1.5.11.2.3-01 
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jjRELOSFLD ]- 



X 



Por -VE response to Clear 
and SOT, copy sense 
information from VRPL to 

TCTTE BPL. Put TCTTE to 
low activate queue for 
NACP schedule. Return to 
VTAM. 



STSN: Copy sense data from 
VTAM BEL to TCTTE EEL. Put 

to high activate queue for | 

resume or asynchonous I 

return of control. Beturn j 

to VTAM. J 
I 



^>00- 

I To VTAM 



0--> 



~~>B 



0= 
0- 



^ 



TCTEICRR 
TCTBICRC 
TCTEISTS 
TCTEIRSI 



ft 



SESSIONC Exit (DPHZSEX) 



Diagram - 1.5.11. 2.3-02 







For -VE response, NACP is 
scheduled to analyze and resolve 
the errcr condition. The sense 
information is copied from the 
VTAH read-only BPL to the BPL 
attached to the TCTTE. This 
avoids an extra VTAM Receive 
merely to obtain the -VE 
response associated sense 
information. 

When control is returned to 
VTAM, the VTAM BPL is no longer 
retained by VTAM. ihis is why 
the case data must be copied. 

Control vill always be returned 
to the routine requesting the 
STSN operation, after copying 
the sense data. 

Besynchtonization routine should 
be the only requestor of STSN in 
the current TCP design but 
future support may require 
device dependent 
resynchcnizaticn iodules so the 
STSN service is treated as any 
other general command service 
request. 



Routine Label 



Boutme Label 



SESSIONC Exit (DFHZSEX) 



1.5.11. 2. J-02 
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FrOB VTAf! 



|TCHTEBSH ""] 



3 



TCTEIPRC I- 



I RPLBLE1I 
|BPLB0TL j 



fTCTETHFH 



Receive Specific Exit (DPHZRVX) 



Q-- 



Joi] 


Establish CICS and save 








area addressability. 




IE 


Check BPL for successful 
completion. LERnD or STHiin 
is entered for errors. 




E3 








chaining indicators. 


' 




If chain assembly request. 






go handle chain assembly. 




[IB 








data. If present, set 






overlenqth data flag on 






and put TCTTE back on 


11 




activate chain. 


j 


E3 




J 






the F*H, if requested. If _| 


| 




the response type is valid" 








and no bracket error 








occurred for enforced 








bracket protocol, the read 








request, overlength data, 




I 1 




and Receive Specific 






indicators are turned off. 




13 


If a 327n data stream 







output 



TCTTE 


; 




TCTEIPRC 




TCTEEOCI 


TCTTE 






TCTEOLDF 




TCTTEftB 


TCTERSPT 


TCTEIFHE 


TCTEIRBH 


TCTEIEI" 


TCTEBPBF 


TCTTERTR 


TCTTERBB 


TCTEISUB 


TCTTE 






TCTEIFHH 





Diagram - T. 5. 11. 2.1-01 



note 



J0*>! The FHH is removed according to 
the specification of IHBPHH in 
the appropriate PCT entry. 



Receive Specific Exit (DFHZRYX) 



Diagram - 1. 5. 11. 2.»-01 
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TCTTB 

J TCTRTPST j >[7] 



TCTTE \ 



TCTTETT | 

TCTTEFIB 

TCTTENTR 



, > 



TCTTEATD 
TCTEIXTP 
TCTTERBB 
TCTTENTR 



-i > 



[bplcwtdf [- 



ReceiTe Specific Exit (DFHZRVX) 



A. Save the AID and' cursor, 
address in the TCTTE, 

B. Overlay thea by aovii 
up the data. 

[fvTl if a 3270 requiring 

uppercase translation, 
invoke the uppercase 
translation routine. 



/i — i\ 
< !••! > 
S 1/ 



Tor] Tf a PRINT 'key froa a 
3270, turn on the 
exceptional input bit. If 
a CLEAR key, clear the 
cursor address in the 
TCTTE. 

( 09| For coaaand received, only 
a Chase coaaand or a 
Ouiesce Conplete are 
valid. 

A. Chase coaaand — The 
TCTTE is nut back on 
the activate chain. 




77777777777: 



TCTTE 






TCTTEATP 
TCTTECAD 




Tin a 






TTOATDL 
TIOADEA 




TCTTE 






TCEIPTT 
TCTEIRHT 
TCTTECAD 




TCTTB 






TCTEIFP 




TCTBIPDS 









Diagraa - 1.5.11.2.4-02 



Receive Specific Exit (DFHZRVX) 



Diagraa - 1.5. 11. 2.9-02 
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Processing 




RPL 

Ffplbofl" 



ftlOATDL ~|- 



Ouiesce Coinlete 
con»and — A positive 
response is sent, and, 
if the teninal is not 
out of service and not 
in receive status a 
release quiesce request 
is set up. Otherwise, 
the terninal is 
quiesced. 



} m| Before returninq to VTA1 
the TCTTE is put on the 
activate chain for further 
reauests. 



D3 



Tf chain assembly, test if- 
RU greater than TIOA 
space. If so, set RU size 
error. 

Update length of data in 
TIOA. 

Tf end of chain, tesuie 
application, otherwise 
schedule DFH7.FVS aqain. 



:'> 



=0 



5 — -1/ 









TCTFTCSA ] 


▼CTEIRLS J 


TCTETHOS J 




TCTTE 




ITCTEICAP J 




TIOA 


1 


TIOATDL | 



Receive Specific Exit (DFHZRVX) 



Pisgraa - 1.5.11.2.1-03 



I 1l] Error code for RU size error is 
TC7.RARS set in TCTE7RC7. 



Receive Specific Exit (DPHZRVX) 



Diagraa - 1. 5. 1 1. 2. #-03 
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Input 
\ 



Processing 



Ur=* 




roTJ Establish CTCS and save 
area addressability. 



[02I Check PPL for successful 
coipletion. LEFAD will be 
entered for errors. 



E3 



Turn off coaaand in 
progress. Analyze coniand I 
performed. J 

SIGNAL: — 

Reset SIGNAL indicator and 
clear Outbound SIGNAL DATA 
field. 

A; If SIGNAL was issued 
during a batch session 
as a request to send. 
Set SEND mode. 

Quiesce: 



Turn off command reguest 
bits. Return to VTAN. 



-1> 



=:> 



^> 



("tctpcip I 



TCTTE 



TCTETPSG 1 



("tteqeoc ] 



Send Asynchronous Couaand Exit (DFH7SAX) 



Diaaran - 1.5. 1 1. 2.5-01 



Send asynchronous Coaaand Exit (DPH7SAX) 



Diagraa - 1.5.11.2.5-01 
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fTCT^Rsn I- 



("tcttkca [- 



Release Ouiesce: 



Turn off command request 
bits and node quiesced 
flag. 

Shutdown request: 



Turn off command request 
bits. T.urn on shutdown 
requested f laa. 



Tool If user TCA attached, put 
on to high chain for 
resume. 




=S 

If TCP TCA, put on to hiqh i\ r _.jTl— -,/ 

i/!Bl «— ' 

chain for asynchronous • — • 

control return, 
fos] Peturn to VTAN BR1U. 



0— > 



• •• | > 

To *TA* 



{"TrTVHA.1 j 



(tCTECRP 



[tctecrc ] 



Send Asynchronous Command Exit (OPHZSAX) 



diagram - 1.5. 11.2.5-02 



Label Ref 



Label Ref 



Send Asynchronous Command Exit (DPHZSAT) 



diagram - 1.5.11.2.5-02 
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[cSA TCTBA ] - 



[JPLCNTS c""') - 



| 1 j Save 7TAH return address - 
and give VTAM register 
save area pointer. 

[oil Establish addressability 
with VBPL from parameter 
list. 

[oi] Check VRPL for request 

recovery command received. 
If request recovery, then 
set indicator and chain 
TCTTE to NACP. 

\oi ] If not request recovery 
set indicator, save 
command in TCTTE and chain 
TCTTE to NACP. 



*l 



TCTPX 
JTCTVEVRA 




TCTTE 






TCTBVBCb 
TCTBVRC4 











SESSION Control Input Exit (OPHZSCX) 



Diagram - 1.5. 1 1. 2. b-01 



{0j( To chain to NACP, issue DPHTCQOE 

QOE=NACF macro instruction. 

r oT] To chain to NACP, issue DPHTCQOE 

QOE=NACP macro instruction. 



Hot tine Label 



5BSSIOI control input Exit iDPHZSCXj 



Diagram - 1.5.11.2.6-01 
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X»f«t 



Processing 
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[rpl 






12 I" | 

I 



j TCTVEVHA ) 







Save T1AH return address 
and set up RPL 
addressability. 

Issue CHECK macro 
instruction to verify 
normal coup let ion of 
CLSOST request. If 
non-zero go to HACP. 



|03J On norial completion clean- 
up TCTTE. 



Jr> 



m 



TCTPX 




Jtcttbvra 

TCTTB 






TCTBICIP 






TCTEVSSS 

TCTEVIR1 

TCTBACR1 

TCTBACR2 

TCTEACR3 

TCTBVTPS 

TCTBICPH 

TCTBIBPL 

TCTBVTSS 

TCTBVTS2 

TCTBVIPS 

TCTEHDIO 

TCTTEOS 

TCTTBCS 

TCTBASRA 

TCTBVRC7 

TCTBYIR1 

TCTBTIR4 

TCTBVIR5 











CLSDST Exit (OPHZCLX) 



Diagram - 1.5.11.2.7-01 



Iotas 



(01| YTAH passes the address of the 
BPL that the CLSOST was issued 
against. 

]02] In order to verify good 
completion of the CLSOST, 
request the CHBCK macro 
instruction is issued. If a 
non-zero return code xs passed 
back in register 15, the TCTTE 
is passed to HACP for error 
processing. 

[OJJ On zero completion of the CHECK 
macro instruction, turn off all 
non-generated TCTTE bits. 



Routine Label Ref 



CLS9M Bait lOPHZCLX) 



Diagram - 1.5.11.2.7-01 
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input 



Processing 



PAGE 1 OF J 



r fvRPL APE j j- [TCTTE A DR~] 

L:" ~ 



|Tplytfl2""~] 



1 1 — j \ 



[RPL FDBK3 ] J 



: TiL 



TtCT TESTS 
^TCTTEDA 



. , j \_-. .8-02 



>s 



J\ 



H=S 



rbll Save return address on 
entry to program. 

[02] Check response to the aata 
send. 



.i—ir' 



A. If exception response, 

set up sense data and (.8-02 r - 

go check for J 2 70 I •• | >J08l 

L — 1/ V 
sense/status | 

information. \ 

B. If positive response, — ■ — 

set off all request 
bits and increment 
output count. 



I 03 j Check Read request. 

A. If not requested, skip 
to task attach check. 

[6<*1 Check Save TIOA request. 

A. If not to be saved, 
skip to task attach 
check. 



zLr 



n / 



TCTFX 
JTCT?EVRA 

TCTTE 






TCTE7RC7 
TCTEVSDA 


i 




TCTTEHO 

TCTEIDIP 

TCTEICSS 

TCTEWDAI 

TCTTRHR 

TCTTEOCV 

TCTEIPRA 

TCTEIDKP 

TCTEILST 

TCTEIESS 

TCTEIINB 

TCTEISAB 

TCTTECYB 






TCTEIRCs"" 
TCTCRSPI 






TCTEICFR 
TCTEICFS 
TCTEPHSA 





Response Exit (DPHZRPX) 



Diagram - 1.5.1 1. 2.8-01 



Routine) Label 



Routine Label 



Response Exit (DPHZRPX) 



Diagram - 1.5.11. 2.8-01 
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TCTTECA 

TCTEIBPE 

TCTEITNB 



-0 



0=-> 



[H] 



Check for attached task. 



If one, 
check. 



skip to HAf" 



B. If none, brackets are - 
supported and we are in 
Bracket state. Set uo 
request for sending 
stand-alone End 
Bracket. 

J06J Check for message logging 
requirements. 

A. If none, put TCTTE to 
activate queue and 
exit. 

B. Else, put to system 
logqing queue. 

)07| Check for a WATT request. - 



If none, put TCTTE to 

activate chain and ... __ 

exit. (T7| >f?o] 

-i/ \/ 






TCTTE 






TCTEICSS 
TCTEWDAI 
TCTEIESS 












TCTEICFH 
TCTTESH 











Response Exit (DFHZRPI) 



Diagram - 1.5.11.2.8-02 



Bmmponme Exit (DFHZRPX) 



Diagram - 1.5. 11. 2*9-02 
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Input 

s — 



...I 



JTCTEPR H j 



:.i.r 



Response Exit (DPHZBPX) 



PAGE 3 OF 3 



I. 1 ?. 11.2 

.o-nr 



.8-02 
V -V 



If system sense indicates J\ 

request reject for a VTA* ZZZZZZ2Z?ZZZ{ / 

3270, treat as a positive [••! >[o2l 
* — -»/ \/ 
response. 

Queue to the NACP. If 1270 
intervention is required 
also flag the terminal 
entrv. 



zzzzzzzzzzzzzi ? 



[<£] 



Return to caller. 



^l 



I TCTEVRC7 



Diagrai - 1.5.11.2.8-03 



Routine Label Ref I Rotes 



Routine Label Ref 



Response Exit (DPHZRPZ) 



Dia«rra« - 1.5.11.2.8-03 
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INPUT 



PROCESS 



OUTPUT 





TCTTE 




TCTEEIDO 


TCTEEID1 




PARMLIST 
(Reg1) 




ACB ADDR 


CID 


USER FLO 








REASON ID | 



BALR 14, 15 
from VTAM 



1 



^ 



$ 



GD 







Establish addressability 
with DFHTCPSV 



Issues TRACE macro 
instruction. 



Address TCTTE by NIB user 
field. 



If VTAM is attempting 
recovery, set terminal out 
of service and set 
in-recovery indicator. 



Set ABTERM flag. 



If VTAM' was able to 
recover, successful code 
is set for NACP: 
otherwise, unsuccessful 
code is set. 



If a 3270 segmenting error 
has occurred, code is set 
for NACP. 



Add TCTTE to NACP chain 
and return to VTAM with 
DFHTCPRT. 






$ 



=> 



^3E^> 






TCA 






TCATCTRQ 

TCATRFl 

TCATRF2 






TCTTE 
TCTEEIDQ 

TCTTE 
TCTTETS 


" 




•"CTEIPSA 












TCTEVRC6 
TCTTE 






TCTEVRC7 





LOSTERM Exit DFHZLTX 



Diagram- 1.5.11.2.9-01 



ROUTINE LABEL REFERENCE 



LOSTERM Exit DFHZLTX 



Section 2 : Method of Operation 



LABEL REFERENCE 



Diagram- 1.5.11.2.9-01 
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Input 



Processing 



Output 



PAGE 1 OP 






(tctvlnib 



'-11 



m 



I -0=0 






j 1 j Establish addressability 
with DPHTCPSV. 

[ 02] Get first NIB address from 
TCTPX. 

JQij Search for symbolic 
terminal name. 

[01] Issue TRACE macro 
instruction. 



[ 05} if release reguest OK, set -*\ 

flag in TCTTE. 

[ Ob j check for any work in 

progress or scheduled for 
terminal. 



a : 



[!]=:> 



-p>'00— ') 







J 07 j Set CLSDST reguest flag 
and add TCTTE to the 
activate chain. 

|08 J Return to VTAM with 
DFHTCPRT. 



i>0- 



•• I > 

— l' 

170 VTAM 



TCA 




JTCATCTRQ 




jTCATRFl 


JTCATRF2 


TCTTE 




JTCTBEIDO 
JTCTEIRLR 




|TCTEICCT 





Release Reguest Exit (OPHZRRX) 



Diagram- 1.5.11.2.10-01 



Notes 



l03j If no match is found, control is | 
returned to VTAfi with no further 
processing. 

[Obj If any work is in progress or 
scheduled for terminal, control 
is returned to VTAfl. 



Routine Label 



Release Reguest Exit (DPHZRRXj 



Diagram - 1.5. 11.2.10-01 
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ttow ViArt 



L J rocts^iu j 



FACE 1 OF 2 



'iZTTtTio"]-— Tl 
.-r^-.i | 

II 



i — n/ 



j^lCiiitlCl j 



[l-lJiitiGa ] — --^1— 



ftS^Luiirl" - ] 



1 _ 

I J *tfi,C KTS'J 
I 



=Tl 






| f bPi-CKTSC 1- 

I 
I 

>r C.Jil""} 






foil jistdoiish C1C£ and save 
dLtid addressability. 

[02] Is:iUd TRACE nacre 
instruction. 



T^E 



DL 1 



It i-SIGNAl received and 



77777/7777777/ \ 

tdsn is waiting en inbound— j/ 

ji-alGNAL, put 1ZT.1t. en 
activate chain. 



[ou] riej 



uest shgt down: 



UtAJ* tXlt iutm.kai) 



H=i: 



5et CLSDS1 and shut down J\ rir , -»\ 

i/)B Bl 1/ 

111 ^regress indicators. l_J L_J 

Put on NACF chain. [a! -,/ 



5tt iiode quiesced by CICS — 
rlaj. 



0- 



~0[c] 



0= 



TCTTE . 
[TCTilWGS~~j 

TCA 
7CATCTF0 

tcatff"" 

TCATRP2~" 



TCTTE 

tcteeidF" 

TCTZICCt" 
TCTEISh" 
TCTEVRC7" 



tcteicss 
ictIiqch" 

ITCTlicMl" 



ITCTEIHQS 



TC1TE 

[tctIinqs""! 



Diagram - 1.5. M.2. 11-C1 



BOUti.iie Latex ant Notes 



Foutine Latel Bet 



ttA^i txit iumtri^Xj 



Diagram - l.b. 11.2. 11-C1 
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PLocfcssin j 



TAGE 2 CF 2 




vjuiedc* at end of chain: ■> 



Sex. T<_1TE fee Senc Qui-Hscc- 
•JCiii^ictG. Put on ^ACE 
juriUd £cr tcessage. 

fteieas^ Cuiesce: 






- J r-i — JV 



Turn utf CTCS quicscp by 
Jioa« rlag. Put en NACP 
•jUeJi! tcr tressage. 

Uijnal: 



•fuirn on siqnal indicator. 



=-0 



IS 



titutu tc VTAK 



ITCTEVPC6 1 

[tcteihqs T 
[TctliiGi""! 



hjK tilt (utu^iloAJ 



Diagram - 1.5.1 1.2.11-C2 



UaoK CXXt {UCULHJk) 



itoutiiit Lcitci usi Nctes 



pontine Latel Fcf 



Ciaqrara - Kb. 11.2. 1 1-C2 
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Page 1 of 1 



INPUT 



OUTPUT 



I 1 



RPLFDB2 



Zl 



ni 



| pi | If entered in SRB mode, set entry for TCB mode in RPL 



02 Save VTAM return address and establish addressability 

toTCTTE 



03 Verify TCTTE address and take appropriate action 



04 I Return to caller 






% 





RPL 






ZRPLERR 
ZRPLERXA 












Reg 6=VTAM 

Return 

Address 




Reg 10= 
TCTTE 
Address 




TCTTE 






TCTEVRC5 





LERADExit(DFHZLEX) 



Save VTAM return address in a register. 
LERAD must be reentrant. 



| 02 | IfTCTTEARiszero, VTAM did not 
correctly fill in the RPLUSFLD that 
will cause a dump to be initiated 

If TCTTEEAR has an address in it and 
feedback information is available, the 
TCTTE is passed toN ACP. 



REFERENCE 



LERAD Exit (DFHZLEX) 
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TPaND Exit (DFH2TPX) 



Processing 



Output 



PAGE 1 0* " 1 



VCON 



[iCTVERSA ]• 






[Oil Establish CICS and save 
area addressability. 



[02 j Set on VTAH termination 
flag. 



03( Return to VTA« BR1«U 



TcTItah 



Diagram - 1.5. n.2. 13-Pi 



utxne Label Ref ( Notes 



Label | Ref | 



XPENfi Exit (O/liZSP'X) 



Diagram - 1.5.11.2. 13-Pi 
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FAG* 1 Of 1 



Itrom VI An | 

i n ' 



V'-UN | «- -1/ r — t 

r , j\ tOll cstdoli 

CzH± ]-ri r i/ ! 



ah addressati litv 



- r ti ,jj 

I LbarCTuA ) t | 

L J , ,, 

I II 

I I I 

Kti- _ I I I 

\ tr'xUSFli) J ■» 

i j ! 

_ J 

fei^LCMtc ] -,/fa] 

jflt>i.SShi | 



| iCliiVIitl | t/)a] 

1 1LjL£.«DAI 1 1 »~ ' 

I JLCit.li.t4J I I 

|1C IT tIC | | 

| IClTtTli | | 

1 lu'lTiPUd J | r 

, , 

I I 



— J\ 



j ic'ijiAihA 


1- 


— i 


j£r.li 


"is" 


"] = 


1 1 
U 
T 



fOz] Choc*. PPL for nuccessful - 
coafieticn of ccnrtand sent 
ana take appropriate 
action based upon the 

CCIUDdUd 

A. it DIE and positive 
response, send error 
message with EE. 

t>. It C-1L and negative 
response, send error 
message without RE. 

[ojI Determine it 1C11E should - 
r*e fldced en activate cr 
error .jueue and return 






r J \ 



[••::•••:) 



TCTF.RSRR 

TCTEICRS 

"ICTEICVI 

TCTEICIP 

TCTEICHS 

TCTEICNC 

1CTEIQCN 

TCTEILUS 

TCTESCKI 

1CTEICSS 

TCTE1CHD 

TCTIIAIP 

TCTEIBRT 

1CTEICTI 

TCTEIRTF 

TCIEIBBP 

TCTEIECN 

TCTESNR 

TCTESEH 

TCTELST 



[tctiicrc""] 

[TCTEVRCS j 



ieiiu syucnxcnou 



atci Flow exit ;DFiUi:i/) 



Hiagran - 1.5.1 1.2. 1H-C1 



EI 



ol] rtaartiaiduiiiti wxtn tno Ui' 
t-rtiix aua tne iciTi aust i>e 

l j L C V lUe U . 



lid 



rut VIah LiiiiCA macro is xssueu 
oil Ccuaii ox tne t<PL xn 
tUciituu. *xtn u normal 
coa.pIetxou t£i1j=u) xt must i;e 
aeternixiiea «inicn cooinand was 

Scllt. 

xr nx« nas sent tnti rilx, Stinse 
cojes aic cutCNeu tc see xr tn<s 
xojicax unit ieiiL ready to 
rtcexve ifiitt) . xr so tne rj'i'i'js 

XS ifct at LOr tlaUJdCUOU 

xiixtxatxou. xr not aa error xs 

XHUlCatcU. 

Upon receipt ex LuASfc, LAnXnL, 
^UxtijCi. cC fit lain, or U status 
tut Leanest rat is turned orr x 



|oji xr aiij Luitiifet t Lucessxnj is 

tt^uu-oa, tne iLi'itl xs r Xaceu on 
tne aCtXVatJ ^Ufcdt;. Ill Cdic Ot 

an tiiui, tue iti'lt xs t xacca on 
tne StSteui ciioi vjUtiic. 



lCZ£SX2<* 
TCZ££X2o 



'i'CZhSAJd 



Routine Latel R«t 



ieUu oy nciironous uata rlo* exit tCr'n^oXj 



Ciagrans - 1 .5. 1 1.2. 1 **-C 1 
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Page 1 of 2 



INPUT 








RPL 


From VTAM 


| ZRPLSRB | 


*> 




CSA 




| CSATCTBA | 




> 


_J 

~l 








| Register 1 | 




RPL 




| RPLUSFLD | 










| Register | 




> 


J 




TCTTE 




| TCTEVRC5 | 










K 


| Register J 


> 




RPL 




| RPLFDB32 | 


"> 


V 






J Register 6 | 









OUTPUT 



If entered in SRB mode, set entry for TCB mode in 



Save VTAM return address and set up RPL-TCTTE 



addressability. 



I Q2 I Determine if Receive Any or LOGON exit 

I 1 encountered the VTAM storage error and insure 

TCTTE has no multiple unprocessed synchronous 

errors. 



Isolate major error code; for following values in 
register 0. 

A. If R0=0C - Identify RPL reason code, take 
appropriate action depending on the error, set 
up return code to module which encountered 
the error. 






•> 





RPL 






RPLERR 
ZRPLERXA 






TCTTE 






TCTTEAR 
RPLBAR 












TCTEVRC7 












TCTEVRC5 

TCTTETS 

TCTEVRC6 











SYNADExit(DFHZSYX) 



Diagram- 1.5.11.2. 15-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





Since SYNAD must be reentrant, the 




DFHZSYZ1 




VTAM return address must be saved in 










a register. 










RPLUSFLD contains its corresponding 










TCTTE address. 











If RPLUSFLD is zero and register 




DFHZSYX1 




= 08 (VTAM storage problem) 










SYNAD assumes Receive Any encount- 










ered the error. 










If RPLUSFLD is X'FF's, SYNAD 




TCZSYX00 






assumes LOGON exit encountered an 










error. 










Most important is when TCTEVRC5 




TCZAYXAO 






already contains an other error code. 










This is an indication that a previously 










encountered error has not been 










processed, thus indicating catastrophic 










errors. 











The major error code is isolated and 




TCZSYXA1 




unique major code routines are branched 










to, depending on that error. 










A. A reson code which identifies the 




TCZSYXA1 






error, each anticipated reason code 










has an associated routine which 










passes a return code with the 










terminal entry to NACP as well as 










to the module which encountered 










the error in register 15. 









SYNAD Exit (DFHZSYX) 



Diagram -1.5.1 1.2. 15-01 
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Page 2 of 2 



INPUT 



OUTPUT 



| RPLFDB2 | 



Register 6 



Register 



Dummy TCTTE 



RPLFDB2 
RPLCNTDC 



3 



^> 



^> 



B. If R0=10 - Identify RPL reason code, take 
appropriate action depending on the error, set 
up return code to module which encountered 
the error. 



C. I f R0=08 - VTAM has a temporary storage 
problem; keep a statistical count. 



If R0=04 — Determine which exception error 
presently supported was received. 



•> 



P> 



±> 



V> 





TCTTE 






TCTEVBC5 
TCTTETS 






TCTFX 
TCTVTF 

TCTTE 






TCTEVRC5 
TCTEDVSC 
TCTEDMRB 












TCTEVRC5 
TCTEVSDA 
TCTEVRC7 






RPL 






RPLOSENS 

RPLSSNSI 

RPLVTFL2 

RPLRH3 

RPLOPT1 

RPLSRTYP 











SYNADExit(DFHZSYX) 



Diagram -1.5.11.2. 15-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


B. A reason code which identifies the 




TCZSYX00 




error, each anticipated reason code 








has an associated routine which 








passes a return code with the 








terminal entry to NACP as well as 








to the module which encountered 








the error in register 15. 








C. This is not an error condition but 








a way for VTAM to tell the 








application program (CICS) that 








temporarily it does not have enough 








storage to honor a request. 








CICS keeps track of how many 








times this condition is encountered 








in the dummy TCTTE. 








D. If an exception request required 




TCZSYXF3 




indication was received, SYNAD 








exit will send an exception 








response with the sense codes 








received in the original request. 








However, if an exception-response- 




TCZSYXFC 




received indication is received and 








the exception is to a previous Bl D 








request, control is returned to 








DFHZSSX, which will handle its 








own error recovery. If it is other 








than a BID, an error code is set 








and the TCTTE is placed on the 








system error queue. 









If an exception request containing 
3270 sense/status information is 
received, the information is checked 
for the presence of the intervention- 
required and device-end conditions. 
If intervention-required is present, 
the terminal entry is flagged before 
it is queued to the NACP. If 
device-end is present, the foregoing 
intervention-required flag is turned 
off and the caller is returned-to 
with a special return code. 



SYNAD Exit (DFHZSYX) 



Diagram- 1.5.11.2. 15-02 
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PROPERTY OF IBM 



Input 




Processing 



©AGE 1 OF 1 



IRPLSEQNO 



if 



[tctbt rci I " 



[^jS' 



foil Fstablish CTCS control 
block and save area 
addressability. 

[02I Check RPL for successful 
completion. If error 
occurred, enter LERAO or 
SYNnn. 



rnT| Save VTAf-assigned 
sequence number. 



|0«t| If SFMT) requested a 

definite response, put 
TCTTE on Activate chain 
and exit this nodule. 

fosl Teset Data in Proqress 
flag and set Outbound 
Processing chain state. 

p)?| If this was not the last 
RTT to be sent for a 
specific request, then 
prepare for Async Return 
to DFHZSDS. EJtit this 
module. 



::> 



-A 
-1/ 



TCTTP, 




j TCTESOOP 
TCTTE ' 






TCTETDTP 




"1 


TCTEIECH 


PCTTE 






TCTEASFA 




TCTEICPC 









Send DFSTH Data Exit (DPHZSDX) 



Diagram - 1.5. 11.2.16-01 



Oil If definite response was 

requested, the completion logic 
will eventually be executed in 
the response Exit (DFHZRPX) . 

06| This can occur if the TIOA 
associated with the DFHTC 
TTPE=WEITB request is longer 
than the maximum allowable 
output. In this case, DFHZSDS 
must issue several SEND 
requests. 



Routine Label 



Routine Label 



Smmd DTS1W Data Exit (DPHZSDX) 



Diagram - 1.5.11.2.16-01 
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Processing 



PSGF 2 OP 2 




TCTTE 






TCTTP.HO 




TCTEICSS 


TC^EWDAI 


TCTTEWP 


TCTETHEC 


TCTTEEP. 


TCTTEOCV 


TCTEIDWP 


TCTEILST 


TCTEIESS 


TCTEIPPD 


TCTEVTC 


TCTEYLDC 


TCTETPPS 


TCTEITWB 


TCTRISXD 


TCTEIRHD 









Sena 0?SIH Data Exit (DPHESDX) 



Diagraa - 1.S. 11. 2. 16-02 



Votes 



J07J Certain indicators are reset and 
fields are cleared. Transition 
of Send «ode and Receive aode is 
perforaed if End Bracket was 
sent in Batch Protocol. R 
FBEEHMN reguest for the TIOA is 
set up if SAVE was not specified 
in the DPHTC reguest. 



Routine Label 



Foutine Lahel Pef 



Sead »PSTI Data Exit (DPRZSDX) 



Diagraa - 1.4.11.2. 16-02 
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PAGE 1 OF .1 



lb com VI' AM 



ICi'iE 


tCl'lfi 


7.7J 



->0[3- 



i uciEisau J 



Turnaround txit (DJru^'iAi) 






13= 



[£•] 

1*13 



Turn oft Eata in Erogress 
indicator 

If positive response 
received: 

A. Fut TCTTE on activate 
cnain. 

o. Perform mode 
transition. 



If negative response 
received: 



2z(>00zz{> 



7777777777777^ > 



V 

To caller 



A. Beset Data in Erogress J^ r — , 
indicator. ^ / iU 



b. Queue 1CT1E on NACP 
chain and exit. 



*l 



1CTTE 

[tctIidi 



TCTTE ■ 

|"tctIirnd~~"J 

JTCTllSff D~~ | 



[TCTIVRC7~~1 



Diagram - 1.5. 11.2.17-Ci 



iULOdiouna txit [UthZlM) 



Koutine Latel fief Notes 



Boutine Lahel Fef 



Eiagram - '.5. M.2.17-C1 
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PROCESS 





HTA 
HTARSAX 1 


From TCB 
mode via 
SRB services 







,. . , „> 




HTARPLA | 


J 
] 






SRX 




SRXCSAA I 


SRXPPKEY 


SRXVTA | 




CSA 




CSATCTBA | 




TCTFX 




TCTVACBA | 




RPL 






RPLRCVCD 


S 


RPLAREA 




RPLBUFL 




RPL 




RPLRCVCD 




v> 


RPLNODE 








TCTFX 


l^-v> 




TCTVRAVC 








TCTVRAVL 




TCTVRARP 







Save SRB extension pointer and access save area and 
get pointer to RPL 

Validate ACB pointer to VTAM request processor and 
pointer to exit list; Validate pointer to ACB in RPL 



If Receive request, verify that input area does not refer 
to protected storage 



I I If Receive any request, determine whether need another 
L2U active RPL for VTAM: 

A. If RPL not needed queue it, and exit 

B. If RPL needed bump active count, .... 



OUTPUT 



CDQ 



I TCTVRARP~| 



RPL Executor (DFHZHPRX) 



Diagram- 1.5.11.2.18-01 



FRR already set up by SRB management 
services. Save SRB extension (SRX) 
pointer in a register to allow register 13 
to be set to save area; save area is in 
protected storage, pointer set in HTA 
by SRB services. 



Data area should have application program 
key. 



When number of active SRB mode Receive 
Any requests matches threshold, RPL is 
queued, so that request can be reissued to 
VTAM, as soon as Receive any is completed, 
without going back into TCB mode. 
Receive any RPLs are also added to this 
queue in TCB mode 



RPL Extorter (DFHZHPRX) 



Diagram- 1.5.11.2.18-01 
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Page 2 of 3 



INPUT 



PROCESS 



^ 



(JE> 



Issue request to VTAM 



<H> 



EXECRPL 
RPL=(RPLBAR) 



Reestablish FRR using SETFRR macro and put HTA 
and SRX addresses in parm area 



Put RPL on completion queue and post activate scan 
to reawaken TCB mode 



A. If ECB changed or DFHZCP waiting 



ox^ 



CICS Task Control 



DFHKCTYPE=SRB, 
SERVICE=POST 



If Receive any completed 

A. Reduce active count 



B. Determine whether need to reissue 
request 



Exit using 



g3«i 



ECH 



CICS Task Control 



DFHKC TYPE=SRB; 
SERVICE =DETACH 



1 











FRRPARMR 




FRRSPARM 


RSCSVFRR 




TCTFX 






TCTVRPLQ 




TCTVAPCE 










| TCTVRAVC 


1 



RPL Executor (DFHZHPRX) 



Diagram -1.5.11.2.18-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


r~j Type of request was set in RPLREQ 
L2D in TCB mode. SRB will be suspended 

by VTAM, and 'reawakened' when the 

request completes. 

[TTJ FRR address in SRB management 
L2hJ services is passed 

r~] If a full POST is needed, the SRB 
I 07 l management services will use Branch 

entry to POST and Get/Free the local 

lock 

r~~] By trying to reissue Receive any requests 
I 08 I in SRB mode, the number of SRB to 
TCB mode switches is reduced. If no 
RPL is available, the SRB is allowed to 
terminate 

["IT] Terminates SRB, unless the SRB 
I I management services find more work for 
it, e.g. another HTA request 


DFHZRAC 
DFHZRVS 
DFHZSDS 




1.5.11.1.4 
1.5.11.1.14 
1.5.11,1.17 



NOTES 


ROUTINE 


LABEL 


REFERENCE 











ftPH. E i wc u tfti t (DF HZtaPRX): 



Diagram -1.5.1 1.2.18-02 
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INPUT 



RPL (Extn) 
ZRPLSRB ""J 



PROCESS 



35D 



•> 



From VTAM 



TCZHPLE1: 

SRB LERAD Entry 


R 


Establish (Prefix addressability 





Get TCB mode LERAD entry address 


R 


Determine whether RPL executed in SRB mode 




A. If not, pass control to TCB mode exit 


R 


Exit called in SRB mode, save TCB mode entry address 
in RPL extension and set flag to tell TCB mode CHECK 
to call exit 


R 


Set Return code and return 


TCZHPSY1: 

SRB SYNAD Entry 


s 


Establish Prefix addressability 


R 


Get TCB mode SYNAD entry address 


R 





EH^> 



e=> 



n^m 





RPL (Extn) 






ZRPLERXA 
ZRPLERR 











RPL Executor (DFHZHPRX) 



Diagram -1.5.11.2.18-03 



NOTES 


ROUTINE 


LABEL 


REFERENCE 











NOTES 


ROUTINE 


LABEL 


REFERENCE 











RPL Executor (DFHZHPRX) 



Diagram- 1.5.11.2.18-03 
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INPUT 







RPL 


From 
VTAM 




RPLAREA 


■s 










RU 




L>- 















I Oil Establish CICS and save area addressability 



02 If entry caused by cleanup routine then clear 

TCTTE of status flags and schedule ZNAC to process 



03 If entry caused by network service error then schedule 

ZNAC to process error. 



04 Return to VTAM BR 14 



^ 





TCTTE 


' 




TCTEVRC6 
TCTEVRC7 
TCTEVRC8 











Network Services Exit (DFHZNSP) 



Diagram -1.5.11.2.19-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 











NOTES 


ROUTINE 


LABEL 


REFERENCE 











Network Services Exit (DFHZNSP) 



Diagram - 1.5.1 1.2.19-01 
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FIOB 1 or 1 



I Support 
I Boa tine 
| .5.11.31 



I NACP 1 1 Error Message | |Eesponse Logger* |Resjnc Send 

| (DFHZNAC) 1 1 Writer | I (DFHZBLG) | | Program 

I 1.5.11.3.1 1| (DFHMGP) I I 1.5.11.3.21 

1.5.11.3.1A ] ■ » 



J L 



| (DFSZBSP) | 
| 1.5.11.3-31 



IBessage Routine | |Bespresentativej |IBP Interface | |BACP abBID Bzit| 
| 1.5.11.3.1.1| | Error Boatine | | 1.5.11.3.1.3| I 1.5.11.3. 1.»| 
• » | 1.5.11.3.1.21 • » fc— ■ 
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INPUT 



PROCESS 



OUTPUT 





CSA 




CSATCTBA 




TCA 




TCAFCI 
TCASCSA 




TCTFX 
TCTVSRQ | 

TCTTE 




TCTEVSSC 
TCTEVRC5 
TCTEICLQ 
TCTEICOQ 




TCTTE 




TCTEVRC5 
TCTEVRC6 
TCTEVRC7 
TCTEVRC8 








gJTT) 



:> 



i^uO 







Set up addressability to required control blocks 
and verify that NACP should run. 



Remove TCTTE from error processing chain, if any 
remain, and adjust chain pointers to prepare for 
processing. If logging is required, place on 
appropriate queue. 



Check TCTEVRC 5, 6, 7, 8 for error codes, 
isolate them and establish the error message to be 
sent. 

For each error code, save RPL and TCTTE in TWARPL 
and TWATCTTE respectively so that this uncorrupted 
copy can be printed later if requested. 

If TCTEVRC 5,6,7,8 are X'OO', check the next error 
field. 



P 



P 



g 



TCTFX 
| TCTVNACF | 

I TCTPFBAR I 



TCAPCERA 
TRAPCAC 



TCTFX 



TCTVSRQ 

TCTVSRQE 

TCTVCNTE 



TCTTE 



TCTEVSSC 
TCTEINIP 
TWA EC 



TCA 



Node Abnormal Condition Program (DFHZNAC) 



Diagram- 1.5.1 1.3.1-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





Addressability to the TCT prefix is 
required: 

Since NACP is a transaction which is 
attached, it must be verified that it was 
not initiated from a node and, if so, 
NACP will ABEND. 
(DMPCODE=ATNA) 

NACP must also acquire working 
storage in which messages are built, 
control blocks formatted and information 
temporarily saved. 

The NACP ABEND Exit is armed at this 
time. 








LU 


A pointer in the TCT prefix contains the 
address of the TCTTEs in error. Each 
time NACP removes an entry the pointers 
must be changed. When the chain is 
empty X'FF's replace the chain pointers. 

Before processing the TCTTE, the TWA 
must be cleared of any residual indicators. 








@ 


If TCTEVRC5 is X'00', indicating no error 
code, check the next error field. 

The error code is used to access an index 
into a table of message entries for each 
error. The message entry contains the 
number of the message to be written, 
the actions to be taken for the error, and 
an offset to the error routines to be 
taken. 




■; 





Node Abnormal Condition Program (DFHZNAC) 



Diagram-- 1.5.11.3.1-01 
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INPUT 



PROCESS 



OUTPUT 



TCTEICEA 
TCTEVRC5 



:> 



04 Log the error message. 



<=3 



Message Routine 



Prepares any necessary 
message inserts and calls 
DFHMGP 
1.5.11.3.1.1 



05 Call sense code routine. 



<SX 



Sense code routine 



Determine cause of 
sense code error and 
log reason 
1.5.11.3.1.2 



I 06 I Allow NEP (Users Error Program) to intervene and 
alter the actions about to be taken to the node in 



error, if applicable. 



<^ 



NEP Interface Routine 



Link to NEP and process 
action flags 
1.5.11.3.1.3 



If any Asynchronous Exits have not added any 
additional errors, continue. 




Node Abnormal Condition Program (DFHZNAC) 



Diagram - 1.5.1 1.3.1-02 



A BALR is made to the message routine 
which calls DFHMGP to log the message. 

If the message entry indicates that sense 
code analysis is required for this error 
condition, call the sense code routine 

BALR to the NEP interface routine. 
Note that the NACP does not call the 
NEP for all conditions. 



Node Abnormal Condition Program (DFHZNAC) 



Section 2: Method of Operation 
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INPUT 



TCTEVRC6 
TCTEICEA 



TCTEACR1 
TCTEACR2 
TCTEACR3 



Node Abnormal Condition Program (DFHZNAC) 



PROCESS 



$ 



=> 



Check TCTEVRC6-8 for asynchronous error 
codes, log messages, and process the error 
condition. 

If an error code, save RPL and TCTTE in 
TWARPL and TWATCTTE respectively so that 
this uncorrupted copy can be printed later if 
requested. 



09 I Insure TCTTE is placed on Activate Queue if there is a 
request to honor. 



CO 


Message Routine 


Prepares any necessary 
message inserts and calls 
DFHMGP 
1.5.11.3.1.1 






<Cn> 


NEP Interface 
Routine 




Link to NEP and process 
action flags 
1.5.11.3.1.3 



Now check for any more TCTTE in error 



OUTPUT 



^> 



=> 



LZ^J 



TCTTE 



TCTEISNQ 
TCTEVTPS 
TCTEVRC6 
TCTEVRC7 



TCA 
| TWARQPTL | 



Past 3 of 3 



Diagram -1.5.1 1.3.1-03 



If there is a request outstanding, the 
TCTTE will be placed on the Activate 
Queue. 

At this point the error queue is 
scanned again. 



REFERENCE 



de Abnormal Condition Program (DFHZNAC) 



Diagram -1.5.11.3.1-03 
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THAWS A 
TCASYAA 
JlCAlCPC 



TCTIVBC5 

TCTTETI 

TCTTBCA 



JPCTTI 



It* 



I 



H 



II 



0=3 



TCA 

JT«Afl14SA I 1 /JT| 



[01 } Save caller's return 
address. 



HiT] Build any remaining 
inserts for the 
message to be logged. 



0i| Return. 



L 



^) 






TWAHL 
THAHTIHB 
THALOSID 
TCATDDI 



Message Routine (DFHZHAC) 



Diagran - 1.5.11.3. 1.1-01 



Motes 


Routine 


Label 


Ref 


Notes 


Routine 


Label 


Ref 


]0l) Insure integrity of caller's 
return address. 

(02( Each message put to the 

message logs contain time, 
terminal id, task id, and 
the message OK control 
block (i.e., RPL, 
TCTTE) . This message format 
can be altered simply by 
changing the message 
prototype . 

J03] After the entire message has 

been logged, the caller* s return 
address is restored and returned 
to. 








I 









■••sage Routine (DFHZHAC) 



Diagram - 1.5.11.3.1.1-01 
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lay* 



Processing 



PA6B 1 OP 1 



TCTTB 
JTCTBTOPlT 



ACB 

TaCBOFLGS 



[01 j Correct the TCTTB, set up - 
the proper response to the 
APB, if necessary, and set 
up aandatory actions to be 
taken, depending on the 
error. 

Return to caller 





rcA 






THAROPTL 

THASS1 

THASS2 

T* AC TLB, 

TUABiasA 

THASBRSR 




TCTTB 






TCTBIC6R 
TCTBICRP 
TCTBICSL 
TCTBIOPD 
TCTBACR1 
TCTEACR2 
TCTEACRJ 
TCTBICOR 
TCTBICSS 
TCTBIBSS 
TCTBIINB 
TCTBHOAI 
TCTBICHC 
TCTBSCnl 
TCTBOS 1 











Representative Figure Boutine(DPHZHAC) 



Oiagraa - 1.5.11.3.1.2-01 



lotes 



|0l] Thxs hipo represents aore than 
fifty individual unique error 
routines in RACP. 

Hany bits are exaained in the 
TCTTB, as well as other control 
blocks, to isolate the error and 
correct it. 



tative Figure Boutine(OIBZRAC) 
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THAVSA 
TWHtlOPTL 
TWACTLB 
TWANT 



TCA 

{r HAWS A I — t 1 
ITWAOPT1 | | )| 
jTWAOPTt J M 

IT 



(tHAOPT? 

JTCATC11C 
(TCAPUBRT 
ITCATCnC 



TCTTE 



TCTTECA 
JTCTTBSP. 
JTCTBTCC 

TCTEWOST 
JTCTELIHB 



JTWAOPT? J 
TCA 



Tit 



Proopssinq 



PAfJF 1 OF 



f^l] Save callpr's return 
i — j 

address and nrppare to 

link to HEP i* Dossihte. 



!*o Users HEP 



102) Format and loq th» various- 
control Mocks requested. 



|T,oa messaae and 
Icon+rol blocks to 
I CSHT-CSTT.. 
M. 5. 11.?. 1.1 



|03j Tf requested, set nodp up 
for CLsns"\ 

ptt] ABEHD or Detach task if 
requested. 



10*1] Purqe any potpntial sends - 
or outstanding receives if 
requested. 



fr^ 



n 



F^> 



.--:v 



[tw^tiusa 



TT' r E 



THPOP" 1 *^ I 

I'VAIT, \ 



fTCTEACpT" 



t TCTRACH? 
|TCTR,i\CP3 
ITCT^TPSA 
ITCT7TCC* 



TCA 

rTCASY^Pl" 
I TCAATAr 
JTCAPLAC 
JTCATCnC 
•"WAPnpt? 



Ttcttf^p 

I TCTPTTRP 
ITCTETCPT 



TCTEWPAT 

TCTETCSS 

▼CTTEOS 

TCTTFTS 

TCTTOC 

TCTEFnp 

TCTETnWO 

^CT" , wtr2 



NEP Interface Routine (DFHZHAf) 
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|01j Insure integrity of caller's 

return address by placing it in 
the T»A PSA. 

Tf HEP has been disabled or has 
been abnormally terminated 
previously, do not link to it. 

If linkinq to HEP activatPs the 
HEP ABEND, exit for thP safety 
of NACP. 

[02I Tf the error routine or NEP 
indicate the TTTE, PPT, or 
action flags should be printed, 
this is where that is done. 

A BALR is made to the message 
routine that actually logs then. 

If the unavailable-orinter 
condition is detpcted, and the 
NEP provides a orinter address, 
the data is put to the printer. 

JoTl If the error routine or HE" 

indicates the error was of the 
magnitude to warrant a CT.sn<;T, 
this routine insures that it is 



Routine label 



f 0U j If the error routine or vep 

ind5catps that it is necessarv 
to *PEVP or detach thp task, 
this routine performs that 
function . 

When CLSDST has bpen effpcted, 
the task is abnormally 
terminated. 



IT?) Tf the error routine or NEP 

indicates that it is necessary 
to purqe Sends and/or Peceivps, 
that function is performed bv 
this routine. 

When a task is abnormally 
terminated, purging of sends and 
Ppceives is automatic. 



HEP Interface Routine (DEH?VAC) 



1.5. 11. 3. 1.3-01 
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Processing 



P»GE ? OF ? 



{"twactlr 
itvasehss 



[tctetrrv )" 

TCA 

f T W AO PTl 1 , / \Jj [ Tl — , / 

TCTTP | 

i TCTTETS 1 , /JT1 

TCA 1 

[THAims* | , / fi] 



06 j Set up response to APB if 
one is outstanding. 



|07l Put node in or out of 
service but log out of 



< |»»| >Jlessage Routine 



Log messages and 
control blocks to 
CSflT-CSTL. 
1.5.11.3.1.1 



\ob\ Restore caller's return 
address and return. 






j\ 

••••I > 

~z — ■»/•.■• 

To caller 



TCTTE 



TTEVSnA 
TCTFICSS 
TCTESCHI 
TCTEir.DS 
TCTFTCSR 
TCTETRSP 



HEP Interface Routine (DFH7NAC) 



Magram - 1. S. 1 1. 1. 1 . 1-02 



1 06 f If N response is outstanding to 
the APB or if the error routine 
decides a response is required, 
this routine performs that 
function. No resnonse is sent *.o 
a VTA1 3?T0 dovice, however. 

J"07 j When a node is placed out of 

service, either because of NEP 
or the error routine, an 
out-of-service message is sent 
to the Master Terminal Log. 



Routine Label 



NEP Interface Routine (DFHZNAC) 



Diagram- 1. *. 1 1. 3. 1 .3-02 
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Establish addressability • 
and indicate HACP is not 
active. 

Take action on node which • 
nay have caused the ABEHD 
and return. 

Insure no further link 
attempts are made and 
reactivate the HACP ABEHD 

Exit. 



[r' 



r" 



TCTPX 






TCT?HACP 




TCTTE 






TCTTBTS 
TCTEIKPO 




TCA 






TWANI 
TWAROPTL 











HACP ABEND Exit iDPHZHAC) 



Diagram- 1.5.11.3.1.4-01 



f 01 j Addressability to various areas 
must be confirmed. 

The 'HACP Is Processing' flag 
must be turned off to enable 
HACP to be reattached and 
continue processing. 

] 02} Assuming the cause of HACP 
ABEHDing was invalid or 
incorrect data in the TCTTE, 
that TCTTE must again be located 
and put permanently out of 
service to insure it does not 
cause another ABEHD. 

|03J If an HEP ABBND occurs or if NEP 
is disabled, NACP continues 
processing without attempting 
future links to HBP. 



Routine Label Ref 



IACP ABEHD Bxit (DPHZHAC) 



Diagram - 1.5. 1 1. 3. .1.4-01 
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INPUT 






PROCESS 




OUTPUT 






TCA 


DFHZN 


AC 


DFHMGP: 

I qi 1 Analyze passed parameters and count 
1 1 number of inserts. 

Vm] ^ se messa 9 e number passed by caller 

1 1 to access correct message prototype 

in table 

|_ 3 1 Build message using message proto- 

1 1 type and inserts passed by caller. 

Log message. 

1 04 Return to caller 






V 


TCAFCAAA 
TCACSOAD 








CSA 


CSAMGTAC 






TCA 






TCA 




TCAFCAAA 
TCASCSA 
TCATCPC 
TCATDD1 




TCASCNB 
TCATDDI 
TCATDAA 
















CSA 




CSATODP 
CSAJYDP 
CSADATFT 




1 1 


PCT 


To Caller 


PCTTI 

















Error Message Writer (DFHMGP) 



Diagram -1.5.11. 3.1 A-01 







The passed parameter list contains a 
series of pointers; the first points to a 
control record containing the message 
number and the destination of the message, 
the second and subsequent point to 
individual inserts for the message. 



Message prototypes are held in a special 
module DFHMGT. A single prototype 
contains the constants for one message 
together with control bytes denoting 
the location and type of any inserts. 
Certain inserts, e.g., the time stamp, can 
be provided automatically by 
DFHMGP and do not have to be 
passed by the caller. 

A simple index is created in the 
module DFHMGT to allow rapid 
location of the required prototype, 
using the provided message number. 



Using the inserts passed, and the 
prototype, the full message can now 
be constructed and logged. 



ROUTINE LABEL REFERENCE 



Error Message Writ* (DFHMGP) 



Diagram -1.5. 11. 3.1 A-01 
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INPUT 



PROCESS 



OUTPUT 



| TCAFCI 



CSATCNAC 



1 TCTVETL 



TCTTETI 
TCTESQIP 



% 






^ 



^ 



Check task dependency. 

A If not a task facility, 
set Code and ABEND. 

Got JCA address and TCTTE 
Prefix address. 
A. If no JCA, issue DFHJC 
macro instruction to get one. 



d^ 



CICS JOURNAL 
CONTROL 



DFHJC TYPE=GETJCA 



Check Log Response Queue 
for TCTTEs. 

A. If none, go to Clean Up 
and exit. 

Write the Journal Record. 



CICS JOURNAL 
CONTROL 



DFHJC TYPE=PUT 



Successful completion 
processing of TCTTE. 



Clean up and return 
control via DFHPC 
TYPE=RETURN. 



<nX 



CICS PROGRAM 
CONTROL 



DFHPC TYPE=RETURN 



rF> 



Response Logger (DFHZRLG) 






JCA 






JCAJRTID 

JCAADATA 

JCALDATA 

JCAAPRFX 

JCALPRFX 






TCTTE 






TCTEISLC 
TCTEICRS 
TCTERSRR 
TCTEVSSC 






TCTFX 
TCTVRLGF 

TCTTE 






TCTEMDID 
TCTTE 






TCTVRTL 


1 



Diagram- 1.5.11.3.2-01 



The program may be activated 
only by the activate scan 
routine of TCP. Any other 
facility code causes the program 
to ABEND. 



Invokes the Journal Control 
Program to write the record to 
the system log. 



Response Logger DFHZRLG; 



Section 2: Method of Operation 
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INPUT 




flL-N 




rcAi 


Lkj> 




TCAFCAAA | 


N > 








TCASCSA | 


^3_ 




S=> 


TCATSPA | 


=^3 


TCTTE 




TCTTETT | 


=>H 






TCTTE PA | 


=^Sm^ 




JCA 






JCSPBA 
JCSPTCL 


=^Q 




TIOA 
TIP ATP L | 


=33 



PROCESS 



Establish addressability 
with PFHTCPSV and locate 
associated TCTTE 



If a 3614 transaction, get 
a TIOA. 



OXi 



CI CS STORAGE 
CONTROL 



OFHSCTYPE=GETMAIN 



set up, and WRITE restart message.. 



If no TIOA, retrieve data from message cache and 
build dala IP. 



<n> 



CICSTEMP STORAGE 
CONTROL 



OFHTSTYPE=GET 






If retrieve was normal, get a TIOA 



CICS STORAGE 
CONTROL 



PFHSC TYPE=GETMAIN 



and move in record. 

| 05 | Enforce begin bracket and , retransmit message. 



CiXX 



CICS TERMINAL 
CONTROL 



PFHTC 
TYPEHWRITE, LAST) 



J 06 [ Perform housecleaning. 



Return to system via PFHPC 
TYPE=RETURN 



OUTPUT 



=au 



] 



=CS 



^E 



=C> 



rr=> 





fCTTE 
TCTTE PA 

riOA 






TIOAOBA 




TIOATOL 


TCA 






TCATSOI 






TCASONE 

TCTTE 
TCTEIBBP 

TCTTE 






TCTEIRSI 

TCTEIERSTO 

TEIRPB 

TCTEIPSA 

TCTECOPF 

TCTEIFTP 

TCTEMPIP 











Resync Send Program (DFHZRSP) 



Diagram -1.5.1 1.3.3-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 











NOTES 


ROUTINE 


LABEL 


REFERENCE 











Resync Send Program (DFHZRSP); 
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File 
Management 

1.6 














Module 
Structure 

1.6.0 
































































GET 

1.6.1 




RELEASE 

1.6.3 




GET AREA 

1.6.4 




DELETE 

1.6.7 




GETNEXT 

1.6.10 




ESETL 

1.6.12 




Automatic 
Journal ing 

1.6.15 




VSAM Open 
Processing 

1.6.16 




VSAM Close 
Processing 

1.6.17 


















































VSAM GET 

1.6.2 




PUT 

1.6.5 




SETL 

1.6.8 




VSAM GETNEXT 
1.6.11 




RESETL 

1.6.13 




ICIP Open 
Processing 

1.6.16.1 




ICIP Close 
Processing 

1.6.17.1 










































VSAM 
OUTPUT 

1.6.6 




VSAM 
SETL 

1.6.9 




OPEN/CLOSE/ 
LOCATE 

1.6.14 




Initialize 
In-Core Index 

1.6.16.2 






























ICIP Output 

1.6.6.1 
















































File Control 
Table Scan 

1.6.2.1 




Indirect 
Access 

1.6.2.2 




Direct Access 
Deblocking 

1.6.2.3 




Input Segment 
Service 

1.6.2.4 




VSVW 
Acquisition 

1.6.2.5 




VSWA 
Disposition 

1.6.2.6 




ICIP Processing 
GET 

1.6.2.7 




































ICIP INDEX 
Retrieval 

1.6.2.7.1 














Gl-Read ICIP 
Index Control 
Interval 

1.6.2.7.2 





H 

o 



CO 
M 
O 



H 



S 
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INPUT 



PROCESS 



FILE CONTROL 
REQUEST 




Scan the File Control Table 
1.6.2.1 



If data set ISAM or BDAM and request one of the 
following 

GET 

PUT 

SETL 

GETNEXT 

RESETL 



Continue with VSAM Processing 



% 



Module Structure 



Diagram 1.6.0-01 







Note that in some cases (eg PUT 
UPDATE) it is not necessary to scan 
the File Control Table. The FCT 
address has been stored on the previous 
related request (GET UPDATE) and 
can be picked up from the stored 
location. 



I 1 Note that not all ISAM and BDAM 

I 02 1 requests are processed in DFHFCD. 
For the following ISAM or BDAM 
requests the processing is carried out 
completely in DFHFCP: 

OPEN 

CLOSE 

LOCATE 

ESETL 

RELEASE 

GETAREA 

Linkages back to DFHFCP are made 
from DFHFCD in order to use the 
common routines in DFHFCP. Exit 
for these requests is always made at 
the appropriate exit in DFHFCP. 
The labels which follow are those in 
DFH FCP which are referenced by 
DFHFCD for linkage purposes. 



FCDSINVR 

FCXSENDF 

FCXSRNFR 

FCXSIOER 

FCXSNSR 

FCXIPUX 

FCXSIRR 

FCXDUPR 



FCFSAN 

FCFSANB 

FCFSANC 

FCFSAND 

FCFSANE 

FCRFAN 

FCAJRNN 

FCJOURNL 

FCDWEACN 

FCECNA 

FCOUTSEG 

FCISSNB 

FCISSNA 

FCISSNC 

FCRFSAN 

FCRFFIOA 

FCIXUUT 

FCIACNA 

FCFRIFLN 

FCCVTDBN 

FCLOCKYN 

FCIRE 
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EF 



|ly t e ot II *— \L 
I request i | 



flCAPCkl l"-,/iT| 
1 fcecord ID I 
J ixeld | 

Lf^fff J 



ra':::K 



IhClUSiE | 
1 tdtd set 
I AU I 



I3 : 



r 1 J \ r-1 

1 fcClDSBLK J 1/ - 

I bxocx size I I ' — • 



I Be co id 
I ziza 



]=J>0 



JScan th€ File 
ICcnttcl latle 



J02J Acquire storage tcr an 



<H>[ 



SCF 
E1MA1N 



JO J | wnen request is fcr 

update, provide exclusive 
ecu trol 



< |««| >|KCF 
\f— ./ I- 



Unc 







Issue ISAM cr EDAfi BEAD 






Eerform Autcnatic 
Journaling 

1.6.15 



G3 



IPerforn Indirect 

I Accessing 

[ 1.6.2.2 




Diagram - 1.t. 1-C1 



fu^l The stoujfc required is tne flu A 

L J 

xeuytti ♦ rxocxsize. Ir tne 
request is rcr u^uate, the 
Xenjth also incluues the record 
iaentit icatxcu rield len-jth + d 
rcr two jcuriidi event control 

UUULer SaVe dredS. 



coiitrcl tor ISArl is 
Oj enqueuing on the 



|UJ| txclasive 
t-revxdeu 
coiicatena tiou ot uata set name 
<±na it6j . J.1 tne aatd set is 
^lotecttiu li.Cii= Ktii) the enqueue 
is iidjuitainea unuii syuc ^oiut 
or eiia or taSK. tor bEAM, 
exclusive contrax is fcrovxaed 
vxd <x ucal x.xcxusxve reyuest to 
ol; An. j.1 'trie udtaset is 
t-£otect«u ( da eu^utsue is dXso 
xssuea aua uaiutaxned until sync 
^cii.t or tim or tasx. Thxs 
enqueue xs on tne ccncuteaation 
ol uatd set udu»t, aloes, 
xerereiice, ana a«j, it any. 
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Routine Latei 
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[II : 
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I terrcrn Input 
liJegraent Service 
j i.b.2.4 



joy] It a read-only, 

uniiejuonted request 

against an untlocked data {"•••• | > 



-13 



sec, return the F1CA 
aciaress tc the user 



Gil 



iC^uiLe stctage fcr an Fhfl 



< |*>| >ISCF 



-./ I- 



CI] 



licve the recced from the 
r-UA to the FKA 



"iY 



r -,/ 



TCAPCTF 
jpespense j 

[™h J 



1CAFCAA 1 

Pile 

Control 

area 

address 



IOA 

CFCB 1 

Record | 



fPecnrd 



Tiagrair - 1.6.1-02 
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Proc€ssiug 



EAGE 3 OF 






\\2\ It not an update request, 
tree the F10A stciage 

/i-_i\ 

< |"| > SCF 

\ f -V 

ItREEKAIN 

L li 2 . 

C\A hetuxn the FKA address tc J\ r -, 
— ' ,. i/IEJ 

the aser l— » 
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\ / 
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FCT Entry 




FCTDSID 


FCTBLKIM 


Blocked 
records 
indicator 








FCTDSREC | 



TYPE=GET VSAM 



PROCESS 



OUTPUT 



£=>E 



c=^d] 



\S=> 



DFHFCP: 








<n> 






Scan the File Control 
Table 

1.6.2.1 


H 






cx> 






Acquire storage for a 
VSWA 

1.6.2.5 


[03J If an updated request and dataset is protected (LOG= 
YES) provide exclusive control 


cx> 


KCP 




ENQ 

1.1.3 


I 04 1 If a non-ICIP unsegmented get for update request, 
acquire storage for an FWA 




<^y 


SCP 




GETMAIN 

1.2.1 


H 






CO 






Perform ICIP Input 
Processing 

1,6.2.7 









09 



Diagram- 1.6.2-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


| 03 1 If dataset is a KSDS, the search must 

be full key equal. The enqueue argument 
is the concatenation of data set name 
and key or RBA 

1 04 I The storage length is the FWA length 
and record size + 4 if variable-length 
for the LLbb field 


FCFSAN 


FCFSANB 





NOTES 


ROUTINE 


LABEL 


REFERENCE 
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INPUT 



PROCESS 





TCA 




TCAFCTR 
TCAFCRI 







=^> 



dJ=^> 



0=> 



[p6~| 'Issue a VSAM GET 






CO 






Perform Automatic 
Journaling 

1.6.15 


S ^_K 






CO 






Perform Indirect 
Accessing 

1.6.2.2 


H 






CO 


Perform Input 
Segment Service 

1.6.2.4 




1 10 1 If an update request, return the FWA address to the 
user 

| 11 | If a locate mode request, return the VSWA address to 
the user 



i=>HI 



m=> 



E=> 



czTXS 

ehC> 

Return to 
Caller 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


1 06 | Unless an update request, will be locate 
mode 











TCAFCAA | 


|- 


VSWA 


- 


RPL 
Request 
Parameter 
List 




FIOA 


-*• 


Record 




FWA 


^ 


Record 



Diagram- 1.6.2-02 
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PROCESS 










\^> 


| 12 | If the request is against an 'unblocked' data set, acquire 
storage for an FIOA: otherwise acquire storage for an 
FWA 




<n> 


SCP 






GETMAIN 

1.2.1 


B=0 


|l3 I Move the record from the VSAM buffer to the FWA or 
1 ' FIOA 

pu] If not an ICIP file, issue a VSAM ENDREQ 




<n> 








Free the VSWA 
storage 

1.6.2.6 




1 16 | Return the FWA or 


FIOA address to the user 





OUTPUT 



tZZ^XU 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


12 Since VSAM data sets are neither blocked 
nor unblocked, an unblocked specifica- 
tion indicates ISAM compatibility 

13 If variable-length record, an LLbb field 
is created 

| 14 j For ICIP files the ENDREQ is accom- 
plished by in-line code referencing 
VSAM control blocks. See 1.6.7-01, 
process step I 08 | 






I 
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NOTES 
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REFERENCE 
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INPUT 



TCA 




TCAFCDI 
Data set ID 








TCAFCTR | 




FCT Entry 




FCTDSID 








TCA 




TCAFCAI 


Index data 
set ID 







c=>E 






0=X> 



01 If not an indirect accessing request, scan the File 

Control Table for the data set identification and 

return to the calling routine 



[ 02 J Scan the File Control Table for the indirect access 
data set ID 



03 When indirect access and data set I Ds are equal, reset 

the indirect access request 



rrn If an alternate file open for ICIP then address the 
I 1 ICIP FCT 



05 Return to the calling routine 



t> 



^> 



Return to 
Caller 





TCA 






TCAFCTR 




Type or request 
or response 
code 









File Control Table Scan 



Diagram- 1.6.2.1-01 



01 If no match, set return code and exit 

to caller 

I 02 1 The FCT is scanned by issuing the 
DFHFC CTYPE=LOCATE macro 



REFERENCE 



LABEL REFERENCE 



File Control Table Scan 
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L, 



PCTVSAfll 

VSAIl 

Indicator 














Indirect 

Access 

Extension 










FCIACIAO 
Indirect 
Access 
Data Set 
ID 







:>0B= 



ri=2 
0=3 
0=0 



=!>0 



Indicator 



PCIACDID 
Duplicates 
Data Set 



-00: 
0= 



FCIACBDP 
Relative 

Sosition 
f record 
ID field 



FCIACDL 
Record ID 
field 
length 



1=1)00= 



D=pB 



If not an indirect 
accessing request, return 
to the calling routine 

Move the object data set 
ID to the TCA 



{Return 

=;>H0=:> 



If a duplicates data set - 
exists and the next 
recordis to be read froa 
it, reset the indirect 
accessing request and aove 
the duplicates data set ID 
to the TCA 



}0»j Move the record ID froa 
the index record to the 
Record ID field 



30 



0- 



J 05| If not a VSAH data set, --____ 
free the FIOA storage and [••! >|0l| 



/' 'N 

< !••! > 
Vi 1/ 





TCA 




TCAFCTR 1 


TCAFCDI j 










TCAPCAI j 


J 


TCAFCRI j 


[> 






Record ib ] 



Indirect Access 



Diagraa - 1.6.2.2-01 



ED 



The next record is to be read 
froa the duplicates data set if 
the first byte of the Record 
Identification contains the 
duplicates indicator. 



Routine Label 



Indirect Access 



Diagraa - 1.6.2.2-01 
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Indirect Access 
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[Ob] issue a VSAM ZNDREQ 

ED 



Nr~i/ 



free the VSWA 
storage 

1.6.2.6 



GO to VSA1 GFT 



1.6.2 

••l >l"oT| 

— -,/ \/ 



VS«*A 

jppauest I 

I Parameter I 

I List I 



Diagram - 1.6.2.2-C2 



X^I 



routine Latel Ref Notes 



"outine Latel *ef 



irect Access 



niagram - 1.6.2.2-C2 
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la pat 



PCT Entry 



Processing 



Output 



PAGE 1 OP 1 



•I.., 



PCTBDAHI 

DAH 

indicator 



I 51 



TCA 

]tcafctr" 



--1/ 



0=» 



r JTCAFCRI j -p/ffl 

L>, ,_ L_ j \__ 

j Becord ID ) ,/[b] 



0=3 



[Blo ck ) , /[?] 



DPHPCP: 

[oT| If not a DAfl data set or 
the records are not 
blocked 



02 j If deblocking is 

requested, locate the 
logical record via 



[••••I > 

relative record nuaber or Return to 

GET l.b.1 

record key as reguestea 



I Oil If an update request go to 



E-j/^ 1 



1 4 1 Return the PIOA address to- 
the user 



05 I Return 



^ 



V 

To Caller 




Direct Access Deblocking 



Diagraa - 1.6.2.3-01 
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Routine Label 



Direct Access Deblocking 
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Processing 
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Extensions 



PCTSSM 
Segient 
Set Name 



>s 



0=0 

0=3 
0~,> 



f TCAFCTR j - 



0=3 
0-0 



0= 



, 01) If an update, use •ALL 1 
segient set, otherwise 
scan the segient sets for 
this FCT entry for the 
specified segnent set 

[ oT| If request is for GETNEXT 

A. For a VSAH data set 

B. Mot a VSAH data set 

1 03 ) If request is for SE1L or 
RESETL 

A. Not a VSAH data set 



r^INrsEi 

h.6.10 

E"! >\ob\ 
-1/ V 



I l.b.8 



B. For a VSAH data set 1 1-0-9 

|04J Acquire storage for an PWA 



r^iNfoal 

1 — 1/ V 
I 1-0-9 



>i — 1/ 



SCP 1.2.1 



I 



|05j Hove •root' segment to the- 
PWA 



^0 



Input Segaent Service 



Diagram - l.o. 2.4-01 



Oaf Storage acquired will be enough 
to hold the segment set. 



Input Segment Service 



Diagram - 1.6. 2-4-01 
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Processing 
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the FkA 
[07] If request is for GETNEXT 

A. Not a VSAM data set 

B. For a VSAM data set 



>00— ; 



J— t/ \/ 



[ol] If 



not a VSAH data set 



«— "I / \/ 

I 1.6.1 
[••| S >["l3l 



r09J If not an update request, J 1.6.2 



go to VSAFI GET 



D3 



Go to VSAM GET 



l r-i/ V 



11.6.2 



ISegmentPd I 
[Record J 



In^ut Segment Service 



Diagram - 1.6.2.U-R2 



I Obi If a segment is present in the 
record but not part of the 
segment set, tne segment is not 
moved to the Fk A. If a segment 
is not present in the record but 
is part of tne segment set, 
space will oe left for the 
maximum length of that segment. 



Koutine Label 



Label | *<=f 



Input Segment service 



Diagram - V.6.2.U-C2 
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INPUT 



PROCESS 



OUTPUT 





TCA 


^ 




,> 


I 


FCT Entry 






FCTDSASC 
Active 
String 
Count 


? 




FCTDSMSC 
Max String 
Count 


FCDSPMS 
Pseudo Max 
String 
Count 


FCTDSMSW 
Max String 
ECB 


FCTDSPSW 
Pseudo Max 
String ECB 




DFHIDAC 




FCICRPL 
Free RPL 
chain 


*> 




FCICAMPL 
Master RPL 
address 







DFHFCP: 

rTTj If request is for read-only 

A. If at Max Strings, wait for a string for this data 



<XOI 



r^l If at Pseudo Max Strings, wait for a string for this data 



<s> 



Acquire VSWA storage 



" 



not an ICIP file 



<iO[ 



GETMAIN 1.2.1 



Initialize the RPL 



fTTl Return to calling routine 



% 



Return to Caller 





VSWA 






RPL 




Request 

Parameter 

List 



VSWA Acquisition 



Diagram- 1.6.2.5-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





Read-only requests in this case include 
segmented requests. 

A. Wait on maximum number of 
(Max Strings) ECB (FCTDSMSW) 








E 


Pseudo Max Strings is approximately 
80% of Max Strings so that updates, 
adds, and browes don't lock out read- 
only's. Wait on Pseudo Max Strings 
ECB (FCTDSPSW) 











Storage length will be as follows: 

For SETL, the length of a browse 
VSWA + key length. 

For DELETE, the length of basic 
VSWA + record length + 8 for 
journal ECN save area. 

If not a GET=UPDATE, the length 
of a basic VSWA. 

If a nonsegmented update, the 
length of a basic VSWA + 8 for 
journal ECN save areas. 









If a segmented update, the length 
of a basic VSWA + record length 
+ 8 for journal ECN save area. 

For ICIP files the VSWA is obtain- 
ed from a chain of free VSWAs 
anchored in IDA. (SCP is not 
invoked) 



VSWA Acquistion 



Diagram- 1.6.2.5-01 
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|**> 




DFHIDAC 


> 




FCICRPL 
free RPL 
chain 






ft 
FCT Entry 






FCTDSASC 




r r> 


FCTDSMSC 








FCTDSPMS 








— !> 











PROCESS 



OUTPUT 







Free the VSWA storage 



If not an ICIP file. 



<zO 



If now below max strings, allow read-only's that are 
waiting for a string for this data set to continue. 



If now below pseudo max strings, allow any task that is 
waiting for a string for this data set to continue 



Return to calling routine. 



ft 



Return to 
Caller 





FCT Entry 












FCTDSMSW 










FCTDSPSW 











VSWA Disposition 



Diagram - 1.6.2.6-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


IT7] For ICIP files the VSWA is returned 

I— —I to the free VSWA chain anchored in 

IDA (SCP is not invoked) 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











VSWA Disposition 
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INPUT 



FCICMXLT 
Master Mask 
Entry 



FCICORE 
In-Core 
Index Chain 



FCICAMR 
Master Index 
Pointer 



FCICBF 
Free Index 
Buffer Chain 



FCICBFEC 
Buffer Wait 
ECB 



I 



See Output 



VSAM Index 
Header 



See 
DFHDBPL 



PROCESS 



r^> 



1=00 



H 



If keyed request then obtain required data 
component's RBA from the index. 



<^X 



ICIP Index 
Retrieval 



Switch to SRB Mode. 



<^X 



Enter SRB Mode 

1.1.13-01 



Issue VSAM GET for data component control interval. 



Return to TCB Mode. 



<H> 



Leave SRB Mode 

1.1.14.1-01 



Search data control interval for required record. 



OUTPUT 






% 



Return to 
VSAM GET 
1.6.2 











VSWA 






DFHIDAC 


| — 








VSWARBA 




FCICMXLT 
Master Mask 
Entry 




VSWRBA 




VSWA RE A 




FCICORE 
In-Core 
Index Chain 




VSWAACB 










Data Buffer 




FCICAMR 
Master Index 
Pointer 








See 
DFHDBPL 




FCIBF 
Free Index 
Buffer Chain 




Search 

Parameter 

List 




FCICBFEC 
Buffer Wait 
ECB 


IXSHEP 

Index 

Located 














Index 
Entry 
















In-Core 
Index Buffer 




See 
DFHDBPL 






SRX 










VSWA 








Data Buffer 
















VSAM Index 
Header 








See DFHDBPL 

















ICIP Processing - GET 



Diagram- 1.6.2.7-01 



This is not necessary for KSDS files if 
the search index code is already in 
SRB Mode. 



REFERENCE 



ICIP Processing - GET 



Diagram -1.6.2.7 -01 
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1.6.2.7 - 01 
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1.6.16-02 








l^V 




TCAFCRI | 


> 








FCT 




FCTIDA 1 


• 




IDA 






FCICIBF 
Index Buffer 


N > 










Chain 






FCICBFEC 




Wait ECB 






SRX 








> 




1 1 











rrn Copy Key from user area to data buffer 
r~T| Get Index Buffed - wait if necessary 



CX>[ 



Switch to SRB Mode 



<aOI 



Enter SRB Mode 

1.1.13-01 



OUTPUT 






=> 





Data Buffer 






DBKEY 






FCT 






FCTIDA 
Index Buffer 












DFHIXL 




IXLMASK 




IDA 






FCICIBF 
Index Buffer 
Chain 




FCICBFEC 
Wait ECB 




SRX 











ICIP INDEX Retrieval 



Diagram -1.6.2.7.1 -01 
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REFERENCE 











NOTES 
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ICIP INDEX Retrieval 
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S > 




DFHDPBL 












DFHIXL 












IXLMASK 






Index Buffer 
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TCA 
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IDA. 


cz>E 




FCICIBF 
Index Buffer 
Chain 


FCICBFEC 
Wait ECB 
















B__> 



I Q4 1 If record not in core, branch to G I 



<£3 



Read ICIP Index Control 
Interval 
1.2.6.7.2 



Is it an initialize index request? 
No 



Yes 



V 

Search index control interval for next level pointer 

Is pointer a data control interval RBA 

TI Yes No 

Release index buffer 



OUTPUT 



=> 



t> 



1.6.16.-02 



CD® 



^> 



ICIP INDEX Retrieval 
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IDA 




Index Buffer 


FCICORE 

FCICAMPL 

FCICMXLT 

FCICAMR 

FCICRBA 

FCICMIC 
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DFHIXL 


IXLMASK 










IDA 






FCICIBF 
Index Buffer 
Chain 




FCICBFEC 
Wait ECB 











Diagram -1.6.2.7.1-02 
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Should there be insufficient storage for 
the CICS GETMAIN or should the page- 
fix fail, then the following messages will 
be output. 

DFHI521 - Insufficient file storage 

for an ICIP file. 
DFHI522 - Pagefix of buffers for an 

ICIP file has failed. 
The files will be closed and any storage 
already obtained will be released. 







This storage is all chained using the third 
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being used by CICS storage management). 
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An RPL is obtained, but not dechained 
from the free RPL queue in IDA 



The code is that used to initialize the 
in-core index dynamically. 
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If 1 level of in-core index is specified, 
the master index record is read in. 
If further levels are required in core at 
open time then there will be a translate 
table associated with the master record 
and the RBA of each index entry in the ; 
master record will be used to read in the 
next level of index. 

Subsequent required levels are built up 
in a similar manner 
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Control is passed to the DWE Processor 
from DFHSPP at end of LUW (logical 
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allocated. 

C. Output error recovery is used 
as needed. 

D. The DCT is locked prior to 
the EOT to prevent extraneous 
modification (DFHKC 
TYPE=LOCK). 

E. Issue Put call. 

On the first Put, if the 
destination is physically 
recoveratle the DCT entry is 
logged. 

If the trigger level is met, an 
AID is scheduled if the 
destination is a texninal, or 
the specified task is attached 
if the destination is not a 
terminal. 



Routine Label 



Acquir- 
ing a 
track 



Write | 
errcr 
process- 
ing 



08 | Set return code in TCATDTE and 
return to caller. 
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DPHTC TTPl'GIT 



• ••I > 



->QH=0 



I — l- 4 ^ 



OPHTDP: 
[OiTj Piad type of recovery 

A. LOGICAL 

B. HONE 

C. PHTSICAL 

[oil Check input gueue 
ownership 

A. If Q-zero, exit 

B. If no owner, set 
TDDCTINT S build DVE 



0. ENQ on DPHTDINT. gueue 
name 



A. Test for output 
ownership 

B- Compare 

log acal/ physical counts 

C. If conditional GET 



r..i >To5i 



lL:> 



lb 



D„ If unavailable: DFHKC j 
TYPE=WAIT,DCI=ECB 



r^i s >roii 



OWE 






DWEMODPN 








DPHDCT 












TDDCTINT 













Transient Data - GET 



Diagram - 1. 7. 4-01 



[Oil TDDCTPLB is tested for 

A. TCDCTDEB - physical recovery 

B. TDDCTDLR - logical recovery 

]02] TDDCTINT is tested 

A. A check is Bade for a 

previous owner: if none, the 
DCT is reset. 



G3 



A. If the reguest was 
conditional, control is 
returned to the user with a 
QOEBOSY. return. 

B. Logical/Physical compare is 
made to see if data is 
available to reguestor. 
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Transient Data - GET 



Diagram - 1. 7. 4-01 
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Wl> 






l^?jj) 



E3 



E. If the reguestor cwns 
output Q, GET is 
processed. 

LOCK OCT 

A. If track cnt = r set -- 
track for release in 
DUE 



[os] Log OCT entry 



J Qbj Issue GET (LOCK/UNLOCK) 



07) Process track release 



08] Return to ClCS/vs 



DUE 






TDIPRELT 




TDILRELT 


















< ) 


. 




\ / 




SYSTEM 
LOGPILE - 
DPHJ01 







Transient Data - GET 



Diagran - ' 1. 7. 4-02 



OED 



A. OCT is locked to prevent 
extraneous Modification. 

B. If TCECTRQC is 0, TDDCTIOA is 
updated to point to new 
track. 

C. If TDDCTRQC is 0, track is to 
be released. Op date the ONE 
with TDIPRELT, TDILRELT. See 
DWfi DSBCT for field 
descriptions. The release is 
processed by DUE Processor at 
end of task. 

1 05] Por physical recovery, the DCT 
entry is logged with Journal 
Control nacro, then the actual 
track release routine is entered 
prior to the get. 



JQft) GET is pxocessed. 



|07| If the destination is not 

recoverable but is reusable and 
all records of a track have been 



Routine Label 



processed, the track is 
released. 

1 08 1 Set response code in TCAfDTR and 
return to caller. 



transient Data - GET 



Diagraa - 1. 7.1-02 
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Transient Data - GET 



j\) 

—i/l 



A. Process AIDs 

B. Set Queue zero and 
return to CICS/7S 

fTo] Return to caller 



Ip^l 



PAGE J OP J 



Diagraa - 1. 7.«<-0J 









1 










Notes 


Routine 


Label 


Ref i 


Notes 


Routine 


Label 


Ref 


]09] Cancel existing AIDs, reset OCT. 






1 

1 








] 10 j Set response code in TCATDTR, 






1 

1 










unlock OCT entry, and return to 






1 










caller. 






i 

1 
i 

i 
i 
i 

i 

1 
i 
i 

J 











Transient Data - GET 



Diagraa - 1. 7. 4-03 



Section 2 : Method of Operation 



371 



LICENSED MATERIAL — PROPERTY OF IBM 



PAGE 1 OP 2 



DCT 
1DDCTQs"a ]- 



f:L_„ 



JTDDCTQSA |- 
|TDD CTMUA | 



->[«J 



/ V 


— i 


K-J\ 




v / 




Intraparti- 
tion Da-ta 
Set 




DCT 





: - 



f0 7l -| > 



[oTj Check static DCT flag for 
previous PURGE 
specification 

fo2] Check for recovery 

A. Physical 

B. Logical 

C. No recovery 

[ 03] Set purge flag on 
foT) Lock DCT 



r — J ^ r — 1 I 



05 1 Log DCT entry 



0b| Set tracks (TTR) for 
release 



foTj Obtain storage for a DECB 
to scan chain records 

jOe] Update bit nap 



-J 1 — i/ 



L 



L^> 



DCT 




TDDCTPLB | 


DCT 




TDDCTDEL j 






DFHJ01 
DCT 




TDDCTCOA j 


TDDCTHOA \ 


Transient 

Data 

Intraparti- 

tion storage 

Allocation 

flap 




I 







Transient Data PORGE 



Diagram - 1. 7. 5-01 



[ 1 j If TDDCTQSA = 0, then previously 
purged. Issue good return code 
to user. 

[ 02] If destination is LOGICAL or 
PHYSICAL, get Journal Control 
Area. Set dynamic flag in DCT. 

|03) Purge flag is used during 
recovery. 



[0a] DCT is locked to prevent 
extraneous modification. 



|05j DCT is written to the System 
Log. 

[Obj Reset CCT-set tracks for releas 
first track - 1DDCTC0A 
last track - TDDCTBOA 

[07J Allow PORGE on a Q zero 

conditicn for nonreusable Q. 
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PHYSICAL 

RECOVERY 
PORGE 



COHCCN 

FORGE 

PROCESS 



Tracks are unallocated: data is 
left intact. 



SPACE 
HANAGE-fl 
ENT 
RO0TINE 



Transient Data PORGE 
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Transient Data PURGE 



Processing 



Output 
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I — l-^ 
II 0| - 1 > 

\/ -i/ 



09 1 Return to user 



i\ 



10 | Check if requestor is | 
owner cf input queue j 



A. If not owner 



E 



! 

I 

I 

I 



t 12 Locate DWE for input queue |Return 
I — i (to 

ICalier 
r — 'V i 1 

L — i/ V 

I 

1 



TDIPRELT [ 
TDILRELT \ 



Diagran - 1. 7. 5-02 



Notes 


Routine 


Label 


Ref | | Notes 
1 


Routine 


Label 


Ref 


109 | Return code is set. 




TDEXA1 


1 1 

II 
1! 








J 10] If requestor is new process same 


LOGICAL 
RECOVERY 


TDPGRAA 


1 1 

II 

1 1 








as physical - purge is not 


EORGE 




1 1 
1 1 








deferred. 


















1 1 
1 1 








p1| DCT is locked to prevent 






1 1 

11 

1 1 
1 








extraneous modification. 


















1 1 
1 1 








J 12j First and last tracks are set 






II 








for deferred release. 






II 

i! 
II 
1! 
II 

1 1 
1 1 
1 1 
1 1 

II 

1 1 
1 1 
1 1 

1! 
II 

1 1 

1 

1 

1 

i 1 

Jl 









Transient Data P0RGE 



Diagram - 1. 7. 5-02 
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OCT entry 



TDDCTDTL 
Open/Close 

UF fot 



TCATDOI 
Destina- 
tion ID 
address 



Processing 
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TIPE=P01/CIT 



GU 



. > 



Dispose of Acquired Data (Bztrapartiticn) 



j 01 J Check if the destination 
is open 

[££] .ritvre.d the r.cor* ... J^^ .v 

update statistics — — — — •— — — •- 1/ 



7f{S 



03 j Set response code 



7777777777, 



i — ^.[ 
v 

To Caller 



OCT 






TDDCTDS 
Statistics 




TCA 






TCATDTR j 
Resgonse j 









Diagraa - 1. 7.6-01 



J0,1) If the DCB is closed, task is 

terminated with ABEND code ATDD. 

\ 
\02\ A link is nade to the QSAfl 
GET/POT routine. (The sane 
routine is entered for both GET 
and POT requests.) The 
appropriate statistics are then 
updated. 

(03J Either the noraal response code 
or the queue zero response (GET 
requests only) is issued. 



Routine Label 



Dispose of Acquired Data (Extrapartition) 



Diagraa - 1. 7. b-01 
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TTPE=FICV 



TDDCTCTL 

Open/Close 

w "te for 



i 



. — > 



1 1 1 Check if the destination 
is open 

J"o2 j Rewind and unload the tape 
reel 



03 j Set response code 



7?77777777777\^> 



v 

To Caller 



i 

TCA 






TCATDTR 
Response 
code 











Control Processing of Data Set 



Diagram - 1. 7. 7-01 



Botes 



(01 j If the DCB is closed, an error 
response is set and control is 
returned to the caller . 

J02J An operating sjsten supervisor 
call is issued. 

]03J Only the noraal response can be 
issued. 
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Control Processing of Data Set 
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r 



Store Data Betrieve Data Release Data Purge a Message 

1.8.1 1.8.21 i 1.8.3 set 1.8.4. 



Temporary Storage 



Diagran - 1.8-01 
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TCATSTR 
Bequest 
type 



TCA1SDA 
Data 
Add less 



JCSA T 



TSOTFC 

Chain 

address 



TS01HI 
High ID 






— 1\ 



0- 



— >B 



TSOTLI Low i 

I£ _J 



(ISOIEID | 
Data ID 



H--o 



1SHAPCOM |- 
(lax length! 
aux data j 



> C A > 



E- 



>E 



ta- 
rn - 



01 Match the DATAID 



[02^ Check the validity of the I ■ — • J V. 

data length I «— ' — \/ 



J 0.i] Acquire additional unit 
table 

]04J Acquire storage for TSGID 
or record 



zz{>S0zz(> 



1 05 1 Create a unit table entry l\ i — i 



( Obj Check the validity of the | 
request j 



0zz{> 



Store Data 



TSOTPC 

Cham 

Address 



TSOTHI 
High ID 



TSOTLI Lowi 



CSA 



jTSOTEID 
|TS0TBTC~ 



TSCI 

> 

ITSCID Data 
■I/O 



1 1 



TSOTEPTR 
ASA, VSA 
or TSGID 
data 
address 



TSGID 
>^ 

ITSGIDFC 
j Chain 
| address 

ITSGIDTR | | 
I New || 
•records j | 



Diagram - 1. 8. 1-01 



Notes 



[Oil The unit tables are scanned to 
determine if the DATAID was 
entered by a previous POT or 
POTQ. 

j 02 1 The length of a user data record 
must be greater than four bytes 
and, for auxiliary storage 
requests, less than the maximum 
length that can be contained 
within a control interval, 

(oil If an entry already exists in 

the unit table for the specified 
DATAID, go to step t>. Else, if 
no space exists in the unit 
table for creating an entry, 
acquire an additional unit 
table. 

I [o*M Por a POT to main storage, 

acquire storage for the record. 

Por a POTQ, acquire storage for 
a TSGID. 

[6sj Create a unit table entry in 
proper collating sequence with 



j | Notes 



Ob 
I I 



other entries in the table and 
fill in control information. Go 
to step C8- 



Message sets created by PUTQ 
request are restricted to the 
PUTQ, GETQ, and PURGE request 
set. Entries created by a PUT 
request are restricted to the 
GET, PUT-REPLACE, and RELEASE 
request set. Any violation of 
these rules results in an 
invalid request response. With 
no recovery, a PUT request to 
an existing entry results in a 
TSGID being created. With 
recovery, a PUT request to an 
existing entry results in an 
ATSP abend (multiple requests 
must be PUTQ requests) . 
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Store Data 
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y 
v 



JOSATSATA ]j~> 



TSOTPC 

Chain 

address 



ISO mi 
High ID 



TSOTETC 
Type code 



TSOTEPTB 

Auxiliary 

address. 

Virtual 

address 01 

TSGID 

address 



TSGIDPC 

Chain 

address 



TSGIDTR 

HO. 

records 



m- 

>0 (fl- 



>0 



H- 
m— 



-->E 



ISGIOPTR 
AUX Addr, 
Virt Addr 



-~>H 



Zh-> 



">|TSHAPBDA 
Byte aap 



S--> 



— >[i] 



[ 07 j Check the validity of the 
storage facility for 
secondary POTQ request 



fOSj Pind the next available 
pointer slot 

| 09] Acquire storage space for 
record 

A. Main storage - if POTQ 

B. Auxiliary storage - 
allocate sufficient 
space within a control 
interval 



Bzz<> 



zz<>E0zz{> 






B*{> 



10 j Hove data to temporary 
storage and store address 



7(>0 



771 



TSOT CSA 




TSOTPC 

Chain 

address 


^L_|cSATSArA i 


TSOTHI 
High ID 




TSOTLI Low 
ID 




TSOTE 






TSOTEID 
Data ID 




TSOTETC 
Type code 








i 


TSOTEPTR 
AUX Addr, 
Virt Addr, 
TSGID Addr 




i 


rSGID 




TSGIDPC 

Chain 

address 




TSGIDTR 

No. 

records 










TSGIDPTR 

Aux Addr, 
Virt Addr 











Store Data 



Diagraa - 1. 8. J-02 



03 



The initial POTQ reguest 
deteraincs the storage facility 
of the data. A subsequent POTQ 
reguest forces the storage 
facility of the request to 
confora to the facility of the 
original request. 



08 j The next available pointer slot 
is found if a aessage set 
exists. This will contain either 
the virtual storage address 
iVSA) or the auxiliary storage 
address (ASA) of the record. 
Acquire an additional TSGID if 
necessary. If not a aessage set, 
the pointer slot is in the unit 
table entry. 



OB 



A, For aaln storage request, 

acquire storage for record if 
a POTQ request. 

B« Por auxiliary storage 

request, scan the byte aap to 
find a CI that has space 
available to contain the 



Routine Label 



m 



record. If space is not 
available, the task is 
suspended until space becoaes 
available, unless the request 
was conditional. 

Hove the user's data to the 
acquired area. Por an auxiliary 
storage request, update the byte 
aap. If tbe CI is full, write 
it. Store the record address in 
the pointer slot. 



Store Data 



Diagraa - 1. 9* 1-02 
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Inpat 



Store Data 



E—> 



] 1l) Return to caller 



PAGE 3 OF 3 



777777777777 {N 



^ 



:{> 



iTSHAPBDA 
JByteaap 



<T_ |cSATSnr A H 



TCATSTR 

Response 

code 
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Hotes 
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Ref 


Notes 


Routine 


Label 


Ref 


111 j Set response code In the TCA and 
return to caller. 


< 


TSHXIT 













Store Data 
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1CATSTR 
Eeyuest 
type 



1CATSDA 

Data 

address 



(••••I 



— >g 



fcSAlSAIA l r -; 



1S0TFC 

Chain 

address 

1S0THI 
High ID 



1SUTLI LOW 



>0 



0- 

a- 

H- 



l 1 Match the DATAID 



foil Check the validity of the 
request 



03] Find the record address of 
the current (or requested) 
entry 



Betrieve Data 




Diagram - 1.8.2-01 



10 1 j The unit taoles are scanned to 
determine it tne DATAID was 
entered hy a previous POT or 
POT^. If a match is not found, 
the user receives an ID error 
message. 

[02] A GET request is valid only for 
an entry created ny a POT. A 
GETQ request is valid only for a 
message set created by a POTQ. 

("o7| It the data tc ce retrieved is 
an entry of a message set, the 
pointer slot is found. If the 
entry does not -exist, the user 
receives an entry error 
response. 



Routine Label 



Betrieve Data 
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TSOTE 






TSOTEID 
Data ID 




TSOTETC 
Type code 










r TSOTEPTR 
ASA, VSA 
|or TSGID 
j address 

TSGID 


" 




TSGIDPC 

Chain 

Address 




TSG1DCR 
Record No. 










TSG1DPTH 
ASA or VSA 


- 


TCA 






TCAISTE 
Request 
type 




TCATSDA 

Data 

address 


TCAISDI 
Data ID 


TCA1SRN 
Record No. 


. 


ISMAF 






TSBRBPA 
Read 
buffer 
address 


-- 











tfil— 



-->0g:::: 
a— > 



~>QJ 



0— -> 
0— -> 



~~>0 



->G1 
->0 



0— ' 



0—> 



~>0 



1 04 j Read the CI containing the J 



record into the buffer 



05 | Acguire a task input area _. 



|0b| Move data record to task 

input area | 



07 j Check request for 

additional specified 
operations 



08 Return to caller 



ZZZZZZZZZZZZZ^ 
i 

i 



If 



7777777777// 1 



*l 



laddr 



TSIOAVRL 

Field 

length 



[TCATSDA 1 

iData 
address j 
TCATSTR | 
Response | 
) code I 



Retrieve Data 



Diagran - 1. 8. 2-02 



jOaj If the record is in auxiliary 
storage and is not currently in 
either the read of write buffer, I 
the CI containing the record is 
read into the read buffer- 

[05| If the task has not provided an 
input area, temporary storage 
dynanically acquires one. 

lObj Hove data record to task input 
area. 

1 07 1 Release nay be specified in 
conjunction with GET. 

1 08] Set response code in the TCA and 
return to caller 



Retrieve Data 



Diagra* - 1. 8. 2-02 
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I ICATSTR 
I Request 
jtype 



~->0 



[cs" 



::ii_> 



1S0TPC~ 



ISOTHI 
High ID 

ISUTLlTow 



|3_ 



~>00~ 



1S0TETC 
lype code 



»ii ion 

or TSGID 
1 address 



1SGIEPC 

Cnain 

address 

TSGIDTR~ 

No. 

records 



>0 






• — > 
— > 



Q- 



->0 



fISGIO ASA 1- 
or VSA 1 



ra- 

ra- 

>S0- 



0-- 
>0 Q - 



01 Natch the DATAID 



[02 J Check the validity of the 
request 

[03j Pind the record address 
and : 

A. Por a main storage 
entry, free the record 
storage 

B. Por an auxiliary 
storage entry, indicate- 
space available in byte 

map 



0zz{> 



0zz<> 



|7tT> 

mrnrmVA 



H 



Pree TSGID (s) 



[05j Remove entry from unit 
table 

f 06 j Return to caller 



zz(>0 

ZZ<>0 
V 

To caller 



TSOTETC 
Type code 



TSnTEPTR 

Aux 

address, 

vir+ual 

address, 

TSGID 

address 



["tsgidpc ~~| 

(TiGIDPTR I r fc 



TSMAPBDA 
CI byte 
map 



t 



m"l 



Release Data 



1 1 ( The Unit Tables are scanned to 
determine if the DATAID vas 
entered hy a previous POT or 
PUIQ. If a match is not found, 
tne user receives an ID error 
response. 

[o.2 | A Release reguest is valid only 
for an entry created by a POT. A 
Purge reguest is valid only for 
a message set created by a POTQ. 

[03] Pind the record address and free 
the allocated space. 

[oTJ If the data to be released are 
entries of a message set, free 
toe associated ISGID(s) . 

fob ] The unit table entry is removed. 
If this was the last unit table 
entry, the unit table is freed. 

[Ob] Set response code in the TCA and 
return to caller. 



Release Data 



Diagram 
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-— >0 
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ISUIlu 
Code uj- te 



frsuittp ]-, 

JKfcA, AMP, ll 
jdEd TSiiiD j| 



I TSlilD 
L_> r 

ilSOIEFC 



ISGIDCh 
Current 
record 

nuBber 



1SGIDTB 
lotal 
re co id 
count 



bSGIDDEP 
bBA, HHP, 
and FTfa 



0~~ 



— ,0 



0— 
— 



0- 



[oT] Batch the data id 



[02J ChecJt the validity of the 
reyuest 



103] Purge records fee* 
Teaporary Storage 



/i — j v 



SCP 

1.2.2 



JOul Update the ccntrol 
interval bit nap 

/t — 1\ r , 

< |«*| > fBOIBTN ] 

\ f — .,/ j j 

I Analy2e CI status | 

1 j 

foil Update the unit table 



02Z{> 

0zz(> 



/• >\ 

< |..| > 
\ r — -1/ 



[061 Set response code and 

return tc requesting task 



2Z{>0 



zz{>0 ?<> 



7777777777// 



Eutje a Messaje Set 



TSHAP 

[tshIpbda""] 



TSOT 
TSOllD 

tsutcde" 

Ti0TFp"~ 



CSA 
[c£A1£P1a""1 

[csiiiim"] 
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l] Tne unit taoles are scanned to 
— j 

tind a aatcu to tne data LD. It 

a aatcu is not round, the user 

receives an 1C error response. 



EU 



A purge request is valid only 
tor a message set created by a 
PUlt request. 



[oj] Main storage occupied oy the 
records ot a nessage set is 
released. Disk storage occupied 
05 the records o£ a aessage set 
is nade availaole tor reuse. 

[041 i'ne coutrcl interval bit aap 

used in teaporary disk storage 
is updated to rerlect the status 
or tne ci arter the purge. 







Tne aarc storage occupied by tne 
associated TSUICs is released, 
tfnen the records of the aessage 
set are released, the unit table 
entry tnat neid the IE control 
lofcraaticn oeccaes availaole 
tor reuse. 



fioutioel Label 



Routine Latel Bef 



Eurge a Ressage Set 
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JLLttL j 
Label 

record J 

leng tn I 






D?UJCJPP: 

| Ul| Open output file for 
form atting 

1021 Write error message if 
open fails 

1031 Write error message if 
liLXSIZE not supplied by 



\211 



[IE 

H 



..| >|Write Rec One 

| Write record one 
ion everv track of 
[EX TNT 

Write error message if 
formatting tailed and 
terminate processing 

Write message if 
successful formatting 



071 Close journal extent 



Output 
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Journal format 



H1POMAT 1.1 Diagram - 1.9.1-01 



I 

Mutes 


Koutine 


Label 


B 


hessaje to operator: DFH4597 - 
Journal extent not initialized - 
unaule to open DCli. Cneck DLi 
cuiU supyiiea. 




EBR0R1 





Message to operator: DFH4:>9b - 
Journal extent not initialized - 
kLKbi^E not specified on bb card 
ol in DSCb. 




KRR0E2 





uiixy. single, contiguous extents 
are ioraatted. a. record one is 
written on every track, with the 
length of the journal label 

re euro. 

The record consists of binary 
zeios except the appropriate 
positions of the time and date 
in the label record are 
initialized to pacxed zeros. 




WHITER 1 


l^EI 


ttes^age to operator: DFH4S96 - 
Journal extent not initialized - 
i/o error occurred. (Abend code: 
45b) . 




EBROB 


S 


Message to operator: DFd4b99 - 




EXIT 



Journal extent initialized 
nnnnn tracks available. 



Journal i-ormat 
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start 
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storage 
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TCA 



TCAPCAAA 

Facility 

Control 
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| JCOCAECB 
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| ABEND J2CB 



CSA 



CSA JCNA 1 

JCP 
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entry 
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TCA 



TCASCSA 
Storage 
Control 
storage 
address 
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From 

1.9.2 

1.9.i> 
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.X 



L o_ij 



. I > DFHJCKOJ Kick- 
—,/ Journalmg 



Attach special 
task, open journal 
files, attach 
journal tasks 

1.9.2.1 







< |..| >|'DFHJCBSP Bootstrap 
\i 1/ igm 



1.9.2.2 
1.9.5.1 

SIP 



Wait on 

termination of 
Open/Close or get 
journal buffer, 
initialize JCT, 
and wait for work. 
1.9.2.2 
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_■> 

To K9.2.3 
- 1.9.4 
CICS 
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Event 
Control 
address 




TCAKCTTA 
Task ID 


JCTTE 






JCTJTTA 
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task TCA 
address 
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TCAPCAAA 

Facility 

Control 

Area 
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TCAKCTTA 
Task ID 


TCA 






ATCEA | 
Event j 
Control 
address j 


JCT 




JCTBBA 1 
Journal 1 
buffer 
address 1 









Journal i>tart-up/Shut-down 



HIPOMAT 1.1 Diagram - 1.9.2-01 



foTj DPtiJCKOJ gets control via CICS 
link from SIP. After it has 
opened tne journal files and 
attached journal tasks, control 
is returned to SIP. 

All attached tasks are 
transaction ID CSJC. One such 
task has the special purpose of 
waiting on termination of 
DFHJCOCP, the OS-subtask for 
Journal Open/Close* s. The 
others, one per journal, are the 
actual journal tasKs which 
expedite journal output 
processing. 

1 02! hi iUCBSP is the initial program 
executed for all CSJC 
transactions. Depending on the 
field TCAPCAAA, it waits for 
termination of DFHJCOCP or 
passes control to DPHJCP. It 
TCAPCAAA is zero, the program 
waits for termination of 
DPHJCOCP. 



Routine Label 



Journal Start-up/Shut-down 
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JCTJPID 
Joamal 
file ID 




JCTJTTA 

Journal 
task TCA 
address 









Ei 



vX 



\m 



Close all open 
journals, 

terminate journal 
tasks, terainate 
OS 7VS i sabtask 
DFHJCOCP 

1.9.2.3 



7777777777 f/ 



f> 



H> 



EE^l 



V 

CICS/VS 



JCA 






JCAJPTO 
Journal ID 




JCT 






JCTBAECB 
Buffer 
available 
ECB 




JCTJTTA 
Journal 
task TCA 
address 









Journal Start-up/Shutdown 



Diagraa - 1.9.2-02 
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)03) DPHJCSDJ is called fron DPHSTP 
when CICS/VS is closing down. 
Control is returned if 
Journaling was not active. 

It is called fron DPHJCIOB, 
DPHJCBCV, or DPRJCBSP for sone 
error conditions in Journal 
Hanagenent. 
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Routine Label 



Journal Start-op/Stautdcvn 
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JCSATODP 

I Time of 
a ay 



JCOCL 

I JCGCuriCS I --— > [a] fTj > 

|openA'lose| « — ■ • — » 

iuone iCB I 



JcTJT 

Journal 

type 



J CUPID 
journal 

iile ID 



IJCTTKSA | 

|JCTTE | 

Start j 

I address i 



'^> 



01 Establish run start tine 



1021 Attach transaction CSJC as- 
special CICS/VS task to 
wait on OS subtask 
(DFHJCOCP) termination 

1031 bait until task is in 
place 

1041 Get storage for own JCA so 
can issue DPHJC macros. 
Address 1st entry in JCT 

^ Ob | Hove Journal ID into JCA, 
then open for output via 
DPH J C TYPL- (OPEN , OUTPUT) , 
V0LUME=P1HST 



061 Issue message if open r- — »\ • 1 

fails;. Terminate CICS/VS *-l^-i/ V 
if journal CRUCIAL 



(07| Attach CICS/VS journal 
task 



> 


JCT 






JCTST1ME 
Run start 
time 




> 


TCA 






TCAKCTTA 
Task ID 




> 


JCA 






JCAJFID 
Journal 
file ID 




> 


TCA 






TCAFCAAA 

Facility 

Control 

Area 

Address 













Joiiiiiui Kick-ofi 



H1P0J1AT 1.1 Diagram 



1.9.2.1-01 



i u^. | PddLiity Control Area dddiess in 
Tc/d-CaAA xs zero. So CICS/VS 
tai*. waits for termination oi 
DFtUCOCP. 

'ii uiisuction j.D is CSJC for 
initial program DFHJC3SP. Ail 
such l'CA's are identified as 
CicS/VS •system tasKs' oy 
setting field TCAKCCTA to 
characters JJJ. 



Ly±J 



'int. oiossage format is: •bi-rf4501 
- dCs/'S Journal nn not 
availaoie - Initial open 
i allure 1 . If Journal is ChJclAL, 
cics/VS is terminated wita uump: 
US A^LND 150 . 



| l7{ Tht- tasx is attached as under 

s>tt*> ^ except the rield TCAFCAAA 
jlu initialized to tne JCT entry 
ad cress. 

Transaction ID is CSJC for 
initial program DPriJCbSP. All 
such TCAs are identilied as 
CI^-S/VS 'System tasxs 1 oy 
setting field TCAKCTTA to 



Routine Label 



characters JJJ. 
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Journal Kick-off 
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0-- 



[oij Wait until task is in 
place 

[oil If not end of JCT, address 
next JCT entry 

MOj Release JCA, issue message 
and return to SIP 



r»-'l N >ro5i 

1 -,/ \/ 



Diagram - 1.5.2.1-C2 



flOj Ihe message format is: *DFtl4500 
- xx of yy journals successfully 
opened' . 



Journal Kicx-off 
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:sa 
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JCP entry 
address 










ICOCt 








JCOCAECB 
Open/close 
abend bcb 
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Processing 



PAGE 1 Of 2 



01} Hake self 

non -at all-par geable 



ED 



lOJ] If initiated as norial 

journal task, get journal 
buffer. Else go to step t>. 



Oaj initialize JCT tabie-entry- 
buffer pointers 

[ os] Branch directly into 
Journal Control prograa 
(OFHJCP) 



[Ofa] If initialized as special 
journal task, wait for 
nornal or abnormal 
termination of OS/tS 
subtask DFHJCOCP 

J Q7 j Beturn on orderly 
termination 

1 08 1 Post reguest "done" ECB if, 



z(>S 



771 



Journal Tasks Bootstrap 



JCT 






JCTBBA 
beg. addr. 




JCTSIFA 
start I/O 
from 


JCTSHIFA 
Start next 
I/O 


JCTSNLFA 
Start next 
logical 
record 


JCTBLKSI 

Buffer 

size 


JCTBBA 
Buffer end 
addr 


JCTBSOA 
Buffer 
shift up 










Diagran - 1.9.2.2-01 



Motes 



foi] Task is initiated as 'normal* if 
TCAFCAAA is not zero. This field 
contains the JCT entry iJCTTB) 
address. 

|05| Entry point is on label JC2t>8 in 
OFHJCP. Control never returns to 
this program: Journal tasks look 
in DFHJCP. 

Before control is lost, the SIP 
task (actually, prograa DFHJCKOJ 
at this tiie) is reactivated by 
posting JCTBALCB: the • Buffer 
available* ECB. 

fObf Task is initiated as special 
journal task if TCAFCAAA is 
zero. 

]07) Bit one of byte tvo in JCOCAECB 
is zero for orderly termination. 
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Journal tasks Bootstrap 
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JCOCfiBCB 
open/Close 
requested 
ICB 



>H 



any request pendxng on 
abncrial ending 



J09j Then write aessage to. 
operator and link to 
Journaling shutdown 
prograa DPHJCSDJ 



GD 



10 Terainate CICS 



0zz{> 


JCOCL . 




JCOCOECB { 

open/close i 
done ECB [ 


@zz(> 


JCA 




JCAJCRC ( 
Journal j 
return ( 
code j 









Journal Tasks Eootstrap 



Diagraa - 1.9.2.2-02 
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]08l A pending journal request is 
canceled with I/O error return 
code * 

)09] The aessage for* at is: DPH454A 
Journal Control subtask was 
abnoraally terminated. 

[To] CICS/VS/OS terminated with a 
OS/VS 00 (IP aacro instruction. 
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' JCP 
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I open/cio: 
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iter 
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file ID 
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JCTJS 
Journal 
st at us 
code 



0— ■ 
-..-> Q— > 



JCOCL 

fjCOCAECB 
J Open /Close 
ABEND £CB 



JC0C1BA 
Open/Close | 
parameter 
list 



DFHJCSDJ: 

[Oil Return if journaling not 

active or already shutdown 

\02\ Enqueue on' Open/Close 
subtask interface 

f03] Get a JCA and point to 
first JCT table entry 



[£»] 



Close journal file if not 
yet closed 



/ 



7777777777// 



[051 Set journal status 

• notopen' and resume 
journal task for 
termination 



7777777777777^ > 



:(> 



~w, 



f06l Wait for journal task to 

*—• 777777777777 1 

end, then go to step «» to -7 — : — : !/I.J\ 

close next if not end of 
JCT 

[ o7] Waken Open/Close OS/VS 

subtask if still alive and : 
wait for task to end 

[08 j Write message to operator 
and release lockout for 
single thread 



777777777777 



7 \\ 

'A/ 



E=j 
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Beturn to CICS 



[jCAJPID ~~] 
(Journal ID! 



JCTBAECB 
Buffer 
avail. ECB 

JCTJS 

Journal 

status 



[JCTBAECB 
Buffer 
avail. ECB 



JCOCL 

[jCOCJCTA 
(JCT entry 
(address 



] 



Journal Shut-down 



Diagram - 1.9.2.3-01 



|02j This ensures no other Open/Close 
requests or Jcurnaling shutdown 
can be active simultaneously. 

[0^] If the OS/VS Open/Close subtask 
(DfHJCOCP) is already detached, 
an inline CLOSE is issued for 
the journal file. 

[06] Buffer available ECB (JCTBAECB) 
is posted by the terminating 
journal tasK, by code in DFHJCP. 

[07J The OSAS subtask is forced to 
end by setting all bytes in 
JCOCJCTA to X'FF' . 







Message format is: DFB4510 - All 
open journals now closed. 



Journal Shut-down 
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DFHJCP: 

I I Get a JCA if not done before. 

L°JJ 

I I Point to the appropriate Journal Control Table (JCT) 
l ° 2 I by the journal file ID. 

nnri Indicate file ID error if ID not found in JCT. 
rTTJ Analyze type of request. 
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Control 
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I 05 | If this is not a Dynamic Backout task, go to step I 1 
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be logged for Dynamic 
Transaction Backout, 
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Journal Write 




JCA 




Handle journal write 
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request byte 
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Control 
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JCA 






JCAJCRC 
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return code 











DFHJC In-Line Request Processing 



Diagram- 1.9.3-01 



Return on Register 14 if already got the 
JCA. 

User task should be terminated by a 
Program Interrupt if no JCA was 
acquired. (No return code possible if 
no JCA.) 



If TCADBTT in TCADBI is on and 
backout has not already started, i.e. 
TCADBIPM is not on, then Dynamic 
Transaction uackout Logging maybe 
indicated. 



Put request is identical with a write 
request followed by a wait request. 



For other macro requests, see chart 1 .9.5. 



REFERENCE 



ROUTINE LABEL REFERENCE 



DFHJC In-Line Request Processing 
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Set error return code if 
journal not open or task 
is in exclusive control 
mode 



777777777777 



| 02] If any other status 
pending, vait for 
coapletion or set 
conditional return code if 
requested 

JOJJ Compute size of resultant 
journal record 

fog] Set error return code if 
request exceeds buffer 
length and return 
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7777777777/^. 
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Increase buffer full count I' 

if request does not fit --• 

buffer and initiate output 
operation 



Allocate a LECB if it is a. 
nev block 
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full count 
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Journal Write Bequest 



Diagran - 1.9. 3. 1-01 



Oil Record size depends on whether 
or not automatic journalmg and 
user-prefix are supported. 

|05 ] Request is handled again if 
enough buffer available. 



Journal Write Bequest 



Diagram - 1. 9. 3. 1-01 
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and build system prefix in- 
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j"08j Build logical record in 
buffer and save data for 
NOTE reguest 

[oil Return if I/O not 

reguested and buffer not 
full 



< |»«l >| Start I/O 
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Initiate output | 
operation 
_ _ 1. 9.3.3J 



j 11 j «ait fcr completion if 
Wait reguest or Put 
reguest. Otherwise return. 
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Diagram - 1.9. 3. 1-02 
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0--; 



fjcTNILA 
I Next I/O 
I LECB 
j address 



■-»0 



[oil Set gcod return code if 
output already completed 
and return 

[02] Set error return code if 
no data in huffer to be 
output 



?77??7777777?i > 



i> 



Initiate output 
operation 

1.9.3.3 



Toil Picx up address of current 
LECB if I/O was already 
started 

f"05j Pick up address of next 
LECB if we started I/O 

jOfa j Increase LECE use count by 
one and KC-WAIT 

J07 j Set good or error return 
code according to the I/C 
ending status 

(08 1 Decrement IECB use count 
and load exit address 

f09l Branch to free-up LECB 



777/7777777771' \ 

,___; -,/ 



H.9. 3. a 



JCAJCBC 
Journal 
Pet urn 
code 



[jcajcrc j 

(Journal I 



Journal Bait «e guest 



Diagram 



Q3 



BlocJc has neen written if event, 
controx number in JCT and JCA 
are ec^ual. 



Toil Entry ±>oint in hait routine if 
PUT macro request. 



[07] The error is indicated in the 
LECB. 



E3 



Routine Latel Pet 



Journal Wait tfeyuest 
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Start next 
I/O from 
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JCTBBA 
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■1 



1.9. 



1 1 1 Set reguest flag for start_ 
next I/O 



Return if I/O currently 
active 



[03J Shift up buffer if 

required 5 update pointers- 

foiT] Post buffer available if 
anyone waiting on it and 
we are not in error 
recovery node or flushing 
the buffer 

Jo5"j Build label record and 

prepare block for output 

JObj Prepare DECB and link to 
BSAM for Virite 

[oT] Clear request flag 'Start 
next I/O 1 if it was not an : 
error retry. Bake next I/O 
LECB to current I/O LECB 

{oil If executing for user 

task, RESCUE the journal 
task 

J 09 j Return on link register 



tf> 
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fjCTJSIO ] 
Status for 

1^2 J 



JCTBSOC 
Buffer 
shift up 
count 

JCTilPA 
Start 1/0 
from 

jctsnifa" 
Start next 
I/O from 

JCTSNLFA 
Start next 
record 



JCTBAECB 

Buffer 

available 

ECB 



JCTJSIO 
Status for 
I/O 



JCTCILA 
Current 
I/O LECB 
address 



Journal Output Initiation 



Diagram - I.S. 3.3-01 



j 05 j The record format is variable 
and preceded by 'LLbb'. 



Journal Output Initiation 



Diagram - 1.S.3.3-C1' 
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Hrite 1.9.3.1 




GU 




]••••! > 


JCT 


bzzAiy 


Tjctnlecb ] 




| Next LECB 




] adaress j 




JCT 






JC IL FOOL 






LECB 








available 








LECB 








address 






i j 






l — — i / 








1.9.4 


JCT 




Ijctcila j 




current j 




|l/0 LECB 




1 address j 







Processing 
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I Oil Get address of next LECB 
in pool 

[02J Scan LECB pool for an 
available LECB 

[03] Set allocated LECB to 

waiting and save address 
as next I/O LECB 

[<j«] if no LECB available 

increase pocl-full count. 
Set 'available* LECB to 
waiting and wait for free 
LECB 



7777777777777( > 



{> 



1.9.3.1 



7*> 
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j 05 J Get address of current I/O 
LECB if output completed 
and post LECB to waken 
user- task 

106 J Return to caller, if use 
count not zero 

[07] If use count 2ero, make 
LECB available and post 
•LECB available' LECE. 
Then return 



j \ 



JCTNILA 
Next I/O 

LECB 



JCTNLECB 
Next LECB 
in pool, 
address 



JCT 

fjCTLPPC 
I Pool-full 
jcount 



Logical Event Control (LECB) 



HIPOKAT 1.1 Diagram - 1.3.3.Q-01 



Notes 



j 01 j The number of LECB's is 

three times the number of 
journals plus three. 

Meaning of nits: 

= wait cit 

1 = Completion nit 

2 = I/O error 

3-7 = Use count, i.e., count 
of user tasJts waiting on the 
associated aloe*. 

[ 04] The first USCB in pool is used 
as 'LECb available' LECB. It is 
posted available as soon as an 
LECB is availa&le. No wait is 
issued on conditional return. 

foil The journal task gets control 
for output completion 
processing. 



Logical Event Control (LECB) 



Diagram - 1.9.3.Q-01 
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Input 



JCTNILA 
Next I/O 

1 address 



Logical Event Control ElocK (LECB) 



Processing 



• ••I > 



j 08] Increase LECB use count if 
user task issued a KAIT 
and issue Task. Control 
WAIT 

J09J If use count zero, release 
LECB and post •LECE 
available* LECB 

{"10] Return to calling routine 



Output 
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Diagran - 1.9.3-4-02 



otine Label 



Logical Event Control Block. (LECB) 



Diagran - 1.9. 3.4-02 
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JCT 


From Journal 
Task 1.9.2.2 


[jCTBAECB 
j Buffer 
I available 
J ECri 

J CI 








JC IJ s 

Journal 

status 






4 


JCT 






JCTSNIFA 
Start next 
I/O from 
address 

JCTSNL?I — 
Start next 
lo gi ca 1 
record 
from 
address 






' 


CT 








JCTJS ] 
Journal j 
status | 





DFHJCP: 

[oi] Post buffer available ECB 
if an^ ne waiting on it 

fol] Suspend self 

[0'3~\ Hake up shutdown task if IV 

l— J 7777777777777C > 

resumed to terminate. Then 1/ 



(~0al Clear buffer and reset 
pointers if no data in 
buffer 



|05l Suspend self if buffer 
cleared and neither 
status-exchange nor 
involuntary EOV 
outstanding 

[Obj Post buffer flushed ECB 
when status-change 
outstanding and suspend 
self 



777777777777 \ \\ 



777 \\\ 
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JCT 

[jCTBAECB 

(Buffer 

lavailable 

(ECB 

L I 

JCT 






JCTSIPA 
Start I/O 
from 
address 

JCTSNIFA 
Start next 
I/O from 
address 

JCTSNLFA 

Start next 

logical 

record 

from 

address 











Output Event Coopleta.cn Processing 



Diagram 



Buffer is empty if 'Start next 
I/O from address' and 'Start 
next logical record from 
address' are equal. 



Routine Label 



Output Event Completion Processing 



Diagram - 1.9.U-01 
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Input 



Processing 



JCTJSIO 
status for 
VO 

JCTJS 
Journal 
st at us 



Output Event Coapleticn Processing 






EOV Task DFHJCEOV 



Handle EOV if 
indicator on 

1.9.t».1 



foil Prepare for I/O operation 
if data in buffer to be 
output immediately or to 
be output for EOV 



/« — '\ 
\i 1/ 



START I/O 
Operation 



Initiate output • 
operation 

1.9.3.3 



PAGE 2 Of * 



Diagram - 1.9.M-02 



Boutine Label 



Routine Label Ref 



Output Event Coapleticn Processing 



Diagram - 1.S.H-C2 
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Processing 



Output 



PAGE i 0* « 




[To] Wait for I/O completion if 
output was already in 
progress or has just been 
initiated 

Mil If I/O error-free , conpute 
average block size 



M2 j For disk journal, force 



EOV if near to end of 
extent and not the first 
bloc* 



[73") If disk journal, link to 



BSAH for Note and save ; 
data 



7777777777777{ > 



C> 



7777777777// 



77>\ 
/Jl/ 



jl4j Bump counters and pointers, 



for next block 



5 zzzzzzzzzzzzz( N> 



/« — n 

< l..l > 

^ I — t/ 



Logical ECB 



Free logical ECB 
JC266 

1.9. 3. U 



IJCTJS 
Journal 
status 



JCTLB* 
Last block 
written 



JCTTRBAL 

Track 

balance 



JCTBLKN 

Block 

number 

JCTPBC 
Physical 
block cut 



JCTSIPA 
start I/O 
from 
address 



Output Event Completion Processing 



Diagram - 1.9.M-03 



j 10 j An output operation is in 
progress if 'Start I/C from 
address' and 'Start next I/O 
from address' are not egual. 

\~V*\ 'Start next I/O from address 1 is 
moved to the field "Start I/O 
from address' . 



Routine Label 



"t: 



Output Event Completion Processing 



iagram - 1.9.M-03 
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Input 



Processing 
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16 1 Handle next outstanding 
reguest 



01] 



\i — i/ 



I/O Error dfhjcioe 

Handle I/O errors 
JC300 

1.9.H.2 



1 8 J Retry I/O operation if not 
tape EOV 



V 

1.9.3.3 




Output Event Conpletion Processing 



Diagram - 1.9.«l-C«l 



18j Since end of reel on tape can't 
oe predicted by the program, the 
I/O error can be caused by end 
of tape. In this case EOV is 
forced. 



Fef I 



Output Event Completion Processing 



Diagram - 1.S.4-0* ' 
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Input 



ft- 



JCTJFID 
Journal 
tile ID 



> 



JCAJCRC 
Journal 
return 
code 



DFHJCEOV: 

[oT] Move Journal ID to JCA, 

then close currently open 
output volume of the 
journal via appropriate 
DFHJC macro 

102 j Open the next volume (tape 
reel or disk extent) of 
the journal for output, 
via the appropriate DFHJC 
macro 

f03 1 Return to calling program 
if close and open 
successful 

JOi*] Acquire storage for 
message if failed 

("05 1 Write message to master 
terminal and to operator 
console 

[06l Issue FPEEMAIN for message 
area 



Output 
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Journal Output Volume Switching 



Diagram - 1.9. 1. 1-01 



Toil JCT-entry address is the 

Facility Control Address (field 
TCAFCA.aA) of the invoking 
Journal task. 

Note that tne JCA - reguired for 
issuing DfllJC macros - was 
acquired tor journal tasks wnen 
initialized. 

[03] Calling program is actually 

mainline journal Control program 
(DFHJCP) executing for the 
Journal tasjc which had detected 
output JSOV. 

[05] Message format is; DFH452A - 

CICS/VS Journal no longer 

available - output volume- switch 
failure 



Routine latel 



Journal Output Volume Switching 



Diagram - 1 .S.U. 1-01 
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JCT 

[jCTJT 
| Journal 
[^YP^ 



[ 07 j Link to shutdown task and 
OS- ABEND if journal is 
crucial 

[08] Issue DFHJC macro to 

ensure journal left closed 

j09| Reset journal status an 
clear journal task TCA 
pointer in JCT 

Hoi PC-ABEND the journal task 



7777777777777< > 



(> 



JCSJS 

Journal 

status 



JCTBAECB 
Buffer 
avail. ECI 

JCTJTTA 
Journal 
task TCA 

JCTXTTA 
Exclusive 
| task TCA 



Journal Output Volume Switching 



Diagram - 1 .9. a. 1-02 



[o7] OS ABEND code is 452 



03 



CICS/WS ABEND code is AJCB 



Ref 
1.9-2. 

1.9.5. 



Journal Output Volume Switching 



Diagram - 1 .9.4. 1-02 
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IJC1XCA 
Address of 
[current 
(DISCS 



JCTJT 

Journa 

type 



| JCTJS I 

| Status of I 
[journal j 






> 



■01 



DFHJCI0E: 

1011 If error caused by tape 
end-at-reel, set EOV 
switen, reset 1/0 error 
Hag , and return 

j 02 j If journal does not 
request retry 

[ 03 i It so and retry was just 
attempted on last output 
(i.e., recursion) 

JQtj Switch to a new output 
vol u Be by issuing 
appropriate DFHJC macros. 

A. It switch unsuccessful 

[ob[ Set journal status »in I/O. 
error retry 1 to trap 
recursion, then return 

I Ob j Get main storage for 
mess age -build 

[07[ Write message to master 
terminal and operator 
console 

[0fe| Issue FKEEHAIN for message 



7777777777* 






/>0 



E^>0 
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Journal output 1/0 Error Processing 



JCT 






JCTJS 

Journal 

status 




JCT 






Journal 
status 




JCT 






JCTJ S 

Journal 

status 











HIPOMAT 1.1 Diagram - 1. 9. 4. 2-01 



1 o1( heturn is to mainline DFHJCP, to 
tne section which performs 
output I/O completion (under 
journal task. TC As only) . 

(u2J uytfi JCTJT set to JCTJSh for 
journals generated with 
JOUHOPT=RETRr in JCT. 



[bi\ uyte JCTJS Dit JCTJCIOE is 

zeroed after every success! ui 
journal output, and is oniy set 
on later in this program (see 
stq? 5) to cause I/O retry by 
UFJJCf. 

[pb[ heturn is to mainline DFHJCP, to 
the section which performs 
output l/o completion (under 
journal task TCAs only). 

I Obi bnter this routine if output I/O 
erxor considered permanent. 

[07] Betasage rormat is: Dtd1b3h - 
CicS/VS Journal no longer 
avctilaoie - output I/O error. 



Journal output I/O Error Processing 



HIPOMAT 1.1 Diagram - 1.9.4. 2-01 
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I 



Processing 
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JCTJS 

Journal 

type 



JCTCILA 
Current 
1/ti LECB 



JCTHILA 
Next I/O 
LECB 






[oi] If journal type is 
CRUCIAL, link to 
jou dialing shutdown 
transient, then terminate 
C1CS/VS 

| 10| Else issue DFHJC macro to 
ensuie journal left closed 

{ 11 1 Beset status of journal 

[ 12J Post all waiting user 
tasks 



[13| Release any logical ECBs 
with zero use count 

[ 14 1 Terminate task by means of 



Journal Output I/O Error Processing 



JCT 






JCTBAECB 
Buffer 
avail ECu 




JCTBFECB 

Buffer 

flushed 

ECB 


JCTJTTA 
Journal 
task TCA 


JCTXTTA 
Exclusive 
task TCA 


JCSJS 

Journal 

status 









HIPOMAT 1.1 Diagram - 1-9.1*. ^-02 



[ 1*1 JCTCIlA and JCTHILA point at 
L&t£s associated with current 
block (wnich incurred the I/O 
error) , and next block to be 
written to the. journal. 



m 



If use count is not zero the 
LECB is posted with I/O error. 



| W[ Journal task's C1CS/TS AbEML 
code is AJCA 



Routine Label 



Journal Output 1/6 Error Processing 



HIPOBAT 1.1 Diagram - l.b.U.2-02 



Section 2: Method of Operation 



407 



LICENSED MATERIAL — PROPERTY OP IBM 



Input 



Processing 



PAGE 1 OP 2 




j»»| >1 ft* aero-Request 
L — 1/ I Processing 



I Address JCT and 
(analyze request 



I 



On Open/Close request 

wait for completion if l/Cr— 

error retry J 



I7777777?7777{)> 



Set error return code if 
status being changed or -~' 
another task has exclusive 
control 




>Vop< 
DPI 



Open transient to f 

open journal files | 

* 1.9.5.1 



05| Initiate I/O operation if 
close request from macro 
and buffer contains data 
to be written 



JCT 




JCTBAECB f 
buffer | 
available 1 
ECB { 


JCA 




JCAJCRC ( 
Journal | 
return 1 
code j 







Out-of-Line Bacro Re que at Processing 



Dxagram - 1. 9.5-01 



[ 03 J Journal is in change status if 
Program Control link is issued 
to the following tasks: DPHJCC, 
DFHJCO, DPHJCIOE and DPHJCEOV. 

Journal is in transfer-control 
mode if the file is closed by a 
task or SIP has control during 
open for VOL0HE=FIRSr. 



Routine Label 



Rout in e 



Out-of-Line fiacre Requeat Processing 



Diagram - 1.9.5-01 
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JCTEFECB 
Buffer 
flushed 
IECB 



Out-of-Lme Macro Requeat Processing 



> 



i Ob I Wait until buffer flushed 



ED 



Close transient to 

close journal file 

1.9.5.2 



) ! 



/ « ■ \ r— 

< |*«| >|J« 

\| — 1/ £ 



..an die input GE1F, 
GFTB, NOTE, and 



POIHt 
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Diagram - 1.9.5-02 



Label Bef 



Out-of-Lme (lacro Begueat Processing 



Diagra* - 1.9.5-02 
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Validate Open request, 
error code if invalid 



zzzzzzzzzzzzz(/ 



[02] If initiated by Kick-off - 
program, get storage for 
journal buffer and 
initialize buffer pointers 

[oJj Return if tape. Por disk, 
handle VOLUME=PIRST 



fo»*j open output request, ——«.-.— 

I— J ... 777777777777S 

restore output positioning j/j 



in for a at ion and reset DTP 
if journal used for input 
before 

ioi] Validate volume request 



|0bj For VOL0flE=C0RRENT en 
disk, go to open the 
extent if ire are on the 
right extent, otherwise 
handle as VOLOME=NElT 



®> 



JCAJCRC 
Journal 
return 
code 



IJCTBBA 
(Buffe 
j begin 
(address 



H 

iSS 1 



1JCTBEA . 

(Buffer endj 
(address j 

(JCTXTTA XCj 
(Task TCA ( 
j address j 

jJCTJS 1 

j Journal j 
(status ( 



IJCTOPIBA 
(Output 

ipositionin 
g info. 



Journal Open Reguest 



Diagram - 1. 9. 5* 1-01 



Notes 



Routine 1 Label Ref 



\ (61 ( Request , is rejected if journal 

I is not closed. If initiated by 

j Kick-off program, type Bust be 

\ open and VOLOHE=PIRST 

i 

IfoT) For VOL0HE=FIRST, select the 

I more recently used extent At 

I this time, Journal works in 

transfer control mode. 

(qq( If journal was in inpat node a 
VOL=NEXT request is reset and 
V0L=C0RRENT is forced. 

JQ5) Valid relume requests are: NEXT, 
FIRST, and CURRENT. 

fob] Tt it is tape Journal or EOV 
flag is on, the request is 
changed to VOL0BE=NEXT. 



Routine Label 



Journal Open Request 



Diagram - 1- 9. 5. 1-01 
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Output 
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[07 j For VOLUHE=NEXT, reset 
clock number and go to 
Open if not output file 

Toe] If tape journal, save 
volume ID data 

[oil If disk journal, move 

current positioning data 
to previous 

[lo] Go to open file 



[TT] for VOl,0HE = FIFST, 

initialize data for volume 
ID. Then go to open if 
tape journal 

[Til ENQ on VOL0HE=FIRST 

processing and open the 
more recently used disk 
extent 



7777?77777777f 



••I >\rf\ 



fjCTBLKN H 
I Block 
number I 



Journal Open fleyuest 



Diagram 



1 07 j For a flip-flop type of disk 
journal, swap volume sequence 
numuer and the device extent 
data. 

fiol If data aas cnanjed, the volume 
creation dare is updated and, 
for tape, tne volume sequence 
numcer is reset. 

[ill If SIP read tnis journal, free 
buffer storage and reset buffer 
pointer. Inen nandle it as 
VOhUM£=CUBBJ3N2 if disk and as 
VOLUMjs=NEJCI if tape. 

| 12} The more recently used extent is 
recognized fly tne date and time 
in the laflel record of relative 
track zero record one. Control 
is returned if extent had never 
oeen used. 



Journal Ocen Request 



Diagram - i.S»5.*-C2 
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JJCTAED 
(Alternate 
data 



JCLBBLKN 
Block 
I number 



>QQ— > 



CSAJCNA1 
JCP start 
address 



JCOCBECB 
Bequest 
ECB 






0E 



G3 



Initialize JCT and locate • 
last track output on this 
extent 

Save pointers if found, 
DEQ from VOL0HE=FIRST and 
close extent 

Return if VOL0HE=FIRST 
alone, otherwise handle 
second reguest 



|"?6] ENQ on Open/Close list ana_ 
store information for 
Open/Close OS Subtask. 
Waken subtask by posting 
reguest ECB and wait for 
coapletion 



GD 



/« — '\ 

< i" i : 

\r— 1/ 



Open extent in OS 
subtask 

1.9.5.3 



Cf] 



Set indicators if open 
successful and return 
control 



JT 



Journal Open Be guest 



JCTEDPEA 
Previous 
extent 
last block 
address 



JCTEDPET 

Previous 

extent 

last block 

track 

balance 



JCTCED 
Current 
data 



JCTBLKN 

Block 

nuaber 

JCTliw" ~ 
Last block 
written 



JCOCJCAA 

JCA 

address 



JCOCJCTA 

JCTTE 

address 



JCTJS 

Journal 

status 

JCTXTTfTxC 

task 

address 



Diagram - 1.9.5.1-03 



Motes 



)13j The format record one written by 
the Journal Formatting program 
guides to the track which 
contains the latest written 
record. 

jig) If an I/O error occurs during 

Open or reading or the extent is 
full, the appropriate flag is 
turned on and control is 
returned after closing the 
extent. 

[vj] If OS subtask is detached, 
control is returned with I/O 
error flag on. OS subtask 
returns control by posting the 
•done* ECB. 

) 18 j If reguest is issued by the 
kick-off program, the journal 
task is resumed before. 



Routine Label 



Journal Open Reguest 



Diagram - 1.9.5.1-03 
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JCT 



JCTOPIBA 
Output 
position- 
ing info. 



JCATB2 
Type 
request 
byte 



JCTBDPEA 
Prev iou s 
extent 
block addr 



JCTEDPET 

Previous 

extent 

tracK. 

balance 



JCTIXOPI 

Output 
position- 
ing info 



JCTVSM 
Volume 
sequence 
number 



JCTEDH 
Pile naie 
suffix 



JCTABO 
Alternate 
extent 
data 



I 19 1 Open input request: If 

journal was in output mode' 
bef ore, save output 
information and set up JCT 

and LCB 

1 20 j Clear input pointers and - 
validate voluae request 

(2l( Input VOL0HE=HEXT is 

handled nov in the same 
way as output point 7 

[22 1 Por 10LUHB=PBEVIOUS set 
read backward for tape. 
For. disk, make previous 
volume information to 
current. Then open as 
VOLaHE=HBXT point 7 



77777777777771 







i^> 



////////// 77 \ 

I 



%> 



( 23 j Por VOLOHE=C0RBEHT, set 

read backward for tape andr / 

open extent ( / 



[24 j For disk, restore current 
output information and 
select the right extent. 
Swap extent information if 
necessary. Then open 
extent 



■4>® 



0=0 



JCT 




JCTJSIO 
status for 
I/O 




JCTIXOPI 
output 
position- 
ing info 
saved 


JCT 






JCTIXLBA . 

Last 

record 




JCTIXBBA 
Block 
begin 
address 


JCTIXBBA 
Block end 
address 


JCT 




JCTCDCBA 
Current 

DCB 




JCT LB W 
Last block 
written 


JCTTRBAL 

Track 

balance 


JCT 




JCTCDCBA I 
Current j 
DCB ( 


JCT 




JCTOPIBA 
Output 
position- 
ing info 











Journal Open Bequest 



HIPOHAT 1.1 Diagram - 1.9.5.1-04 



Motes 



[ 22J The first nyte of the current 

DCb address contains the OS Open 
indicator. 



Journal Open Bequest 

Section 2: Method of Operation 



HIPOHAT 1.1 Diagram - 1.9.5.1-0* 
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1.9.5.1 

1.9. U.I 
1.9.U.2 



JCTJS 

Journal 

status 






JCAT«2 
Type 
request 
juyfe 



LSAJCNA 1 
JO- start 
address 



JCOCL 

L>, 

IJCOCLBA 
open /Close 
List 



JCOCDECB 
open /Close 



JCOCBECB 

Request 

ECfa 



[Oil Validate journal status 



I 02J Set appropriate close 

option for tape according ' 
to the paraaeter LEAVE 

fo3[ EH^J on Open/Close List for 
single thread 



I 

H Provide data in Open/Close / 
, • . * ■„ rJ ^ „ 7777777777// 

List and waken OS subtask 



ti> 



by posting 'Request* ECB 



GE 



\\ — i/ 



Close tile in OS 
subtask 
1.9.5.3| 



06 DEQ froa Open/Close List. 



Journal Close heguest 



JCA 




JCAJCEC 
Journal 
Return 
Code 




JCT 






JCTCDBA 
Current 
DCB 
address 




JCOCL 






JCOCJCAA 

JCA 

Address 




JCOCJCTA 

JCTTE 

Address 
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Motes 



| u2| Close option for disk and for 
tapa rew/unl is i»80': if tape 
to be left on drxre X»30*. Tape 
in input node is always rewound 
and unloaded. The OS close 
options are set in oyte zero of 
DCB address. 

(05( If OS subtasic is detached, 
return with I/O -err or code. 



Routine Label 



Routine Label 



Journal Close Request 
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JCA 

JCAJCRC 
Journal 
return 
code 

J CI 














JCTBAECB 

Euffer 

available 

ZCB 















07 I If close was successful, 
set indicator 'not open* 
and •XC-mode' and return 

[oil If close failed, F°st 
buffer available ECB if 
not XC-node and net error 
recovery but anyone 
waiting on it. Then return 



777777777777?\ 







JCTJS 

Journal 

status 

JCTXTTA~XC 

TCA 

Address 



Journal Close Keyuest 



Diagram - 1.S.5.2-C2 



utine Label Bef Notes 



Journal Close Keyuest 
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IjipLt 



JCGCHEC3 
Request 

ECB 



Processing 
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CSAJCMA1 | 

JCP start 
address I 



JJcOCJCTA 
| JCTTE 
[address 



(JLOCJCAA 

I JCA 

| address 



JCT 

j JCTCEii I- 

[ Current | 

| extent l 

[data i 



JCA 



IU- 



J E-- ; 



JCaThI I- 
Type 

request [ 

^yte | 



>Q 



DFHJOCP : 

[Oil At initial entry, get 

add r ess able to Open/Close 
List, post 'reguest done 1 
ECB, and wait for next 
reguest 

[02] If culled froB Shutdown 

program to terminate, set 
good OS completion code 
and return to terminate 

I 03 J On normal reguest, get 
addressable to JCT and 
JCA. Then validate reguest 

[01 j On open reguest, get 
device address from 
LD-entry in TIOT in 
supervisor 

1 05 j Tape open output reguest: 
write message to operator 
to get tape mounted. Then 
open xile, notify operator 
of successful open, and 
ret u rn 



Journal open/Close Subtask 



zzzz{> 



M> 



JCAJCHC 

Return 

code 



JCTEDDA 

Device 

address 



HIP0J1AT 1.1 Diagram 



I til bf'HJCGCP works as OS subtask. 

Control is passed to it via the 
•request 1 KLti and returned via 
•done' r.Co. 



ju^i li called to terminate 

oournaling, all bytes of the 
0CT1E address in tne Open/Close 
Lxst are set to X»FF». 

I C4 1 If the device can't oe found, 
the o±.en is xssued to get the 
erior message. 

I obi 11 open fails, control is 
returned with x/O error 
inuication . 



Houtine Label 



Journal Open/Close Subtask 
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iJCATR2 f 
lype 

request | 
byte [ 




JCT 


fjCTBLKU | | 
\tiOCK. | | 

nunner j | 



JCTCDCbA 

uca 

address 



JCTLiSW 
Lost OlOCK 

written 



JCT J T I 
Journal ] 
type [ 



JCA 



JCATK2 
Type 
request 
i>y te 



[Obi Tape open input request: 
Set up the operator 
message tor the 
appropriate volune 
request. Istue aestage and 
vait for operator reply 

[o7| Set error return code if 
reply is 'no'. Otherwise 
open tile and return 

|0d| Disk open input request: 
Open extent and return if 
no positioning needed 

1091 Validate request for 

positioning and set up 
registers for BSAH POINT, 
link to u SAM for POINT and 
retu rn 

1101 Disk open output request: 
Set up messages either 
primary or secondary 
extent. If V0LUHE=NEXT and 
•pause 1 flag is on, write 
message to get operator 
reply when extent is 
available 



Journal Open/Close Subtask 



JCA 






JCAJCriC 

Return 

code 











H1POUAT 1.1 Diagram - 1.9.5.3-02 



(ot>{ Volume specification can be: 
CUfcttENT, NEXT, PREVIOUS, or 
bl'JZUlC input. 

| Obj *o positioning if volume current 
points to block number one. 



I 101 Program loops on the message if 
rejly is not YES. 



Boutinej Label 



uoixnai Cv*»n /Close Suutask 



HIP0H4.T 1.1 Diagram - 1.9.5.3-02 
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Input 



JCT 






JCT JL it W 
Last block 
written 






JCTC DCB A 
Current 
DCB 
address 


JCTB LK M 

Block 

nuacer 


t 


JCA 






JCATB2 
Type 
regu est 
oyte 






. 


ICT 








JCTC DC B A 
Current 
DCS 
address 






. 


JCA 








JCATB2 

Type 

request 






fc 


JCT 






JCTVCD 

creation 

date 




JCTVsa 

Sequence 

number 









Processing 
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— >H 



0- 






[ 11 j Open the extent and issue 
■ess age - extent now open 
for output 

1 12J On request for positioning 
set up registers and link 
to BSAH for POINT 

\ 13 | Issue track Balance SVC 
and return 



\ Tt| Close request: Get new 

device address if switched^- 
by OS •Dynamic Device 
Reconfiguration 1 

IIS J Disk close: Close current 
extent and return 

|"lb~j Tape close output: If 

LEAVE=IES requested, issue 
■essage that file closed 
but still loaded 

j 17 j If tape is unloaded, a 

message is issued to the 
operator which contains 
label information of that 
tape file 



Journal Open/Close Subtask 



JCT 






JCTTHBAL 

Track 

balance 




JCT LB w 
Last block 
written 


JCT 






JCTEDDA 
Dev ice 
address 











HIPOflAT 1.1 Diagram - 1.9.5.3-03 



a 



POIniT is not issued if 
V0LUnij=CUBBEHT and clock numoer 
is one or if the 'last Block 
written* field is zero or if 
VOLJnK=«EXT. t 



[TJ| urior exit is taken if svc 



POIMTBTQ 



Boutine Label 



uouxnal open/Close Sufctask 



HIPOHAT 1.1 Diagram - l. 9.5.3-03 
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Processing 



PAiiF U 01 4 



JCT 








JCTIXfloA 
blocK 
begin 
udaress 




JCLh 






JCLitLbN 
Logical 
flecord 
number 
















03 



Close and return 



[ iy| Tape close input: A 

ness aye which contains 
label intornation of the 
last label record read is 
issued to the operator 

Hio] if no record has been read 
from tae input tape, the 
closing message contains 
the information that the 
tape has never been used 

TilJ Close file, unload tape, 
and return 




Journal Open/Close SubtasK 



HIPOMAT 1.1 Diagram - 1.9. 5.3-04 



Routine Label 



Routine | Label 



Journal Open/Close Sub task 



HIPOHAT 1.1 Diagram - 1.9.5.3-0*4 
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ln±jut 
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m- 



JCTXTTA XC 

1CA 

Address 



JC TJ S 

Journal 

Status 



JCTIXLRA 
Last 
Be cord 
Address 



JC1IXBEA 
Block End 
Address _ 



JC1IXLRA 
Last 
Be cord 
Address 



JCTBBA 
Buffer 
Eegin 
Ad ares s 



I JCTBEA 

Buffer End 
I Address 



| JCTCDCBA 
I Current 
| DCB 
Address 



JCTICA 
| LJBCB 

Aa dress 



DFHJCI: 
[0m Validate input request 



7777777777777( > 



Get-forward request: 
Provide pointers of next 
record for user in JCA. I 
last record of block 
accessed, link to read 
next block 



77777777777? I 



[£!] 



Get -backward reguest: 
Point to the next record 
starting at the end of the 
block. All other handle in 
the way as GETF 

If a new block has been 
read, set up DCB for BSAH 
read on disk or tape. For 
a disk read in backward 
mode, a ES AM POINT is 
performed before each 
read. 



[05] Link to ESAU for read and 
wait for completion 



H> 



77777777777? 



TjCAJCRC 
I Return 
ICode 



JCAADATA 
Oser Data 
Address 

JCALDATA 

Data 

Length 



JCTTXLRA 
Last 

Record ( 
Address 



JCAADATA 
Oser Data 
Address 

JCALDATA - " 

Dat* 

Length 



JCTIXLRA 

Last 

Record 

Address 



Journal Input Request 



i.9.5.«-Oi 







Control is returned with EOF 
indicator on it in backward node 
block one nas been accessed. 
POINT is not issued if first 
access. 



Label 
JC3C0 



Journal Input Bequest 



Routine Latel . *<=f 



Diagram - 1, 9. 5.1-01 
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I Length 



I JCHL 

Eeco 

Ueng 



n 



JCLRJF1D 
Journal 
file ID 



11 



JCT 

Tjcilen 1 

| logical | 
I iecord No. j 

JCA 



JCAVCD 
Wo lu me 
Creation 
Eate 



JCAVSN 
Volume 
Sey. No 



0-- 



[06J Check all records of block 
for expected journal 
format. Set error return 
code if wrcng record or 
1/0 tailed. 

fo?] Initiali2e JCTTE and 
return to caller 

[oa] NOTE-Input request: The 

data for the NOTE request 
are taken from the label 
record of the last block 
read and moved to the JCA. 
Then control is returned. 

j09J Point request: Validate 
point request 



7777777777777J \ 



JT 



777777777777 



777777777777 



jiol For tape, multiple reads 
are issued to get to the 
requested block. For disk, 
the BSAM POINT is issued 
for positioning before the 
block is read. 



JCA 


[jCAJCRC 1 
(Return j 

lE2£f J 


JCT 




JCTIXBBA 
Block 
Begin 
Address 






JCTlXBiA 
Block End 
Address 






JCTIXLRA 
Last 
Record 
Address 




JCA 




JCALRN 
Logical 
Record No. 




JCAPST Run 
Start Time 




JCAJCRC 

Return 
Code 




JCA 






JCAJCRC 

Retuvrn 

Code 




.___ 



Journal Input Bequest 



Diagram - 1.9.5.1-02 



08 j It no reaa has neen issued 

nefore, an error return code is 
set and control is returned. 

09j Tae request data are compared 
against the appropriate data of 
the laoel record. 



utine Label 



Journal Input fleguest 



Diagram - 1.S.5.U-C2 
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JCT 


JCA 






JCTBLKN 

BIOCK 

Number 

JCTLDCBa 
Current 
DCfl 
Address 




JCABLKN 

Block 
Number 

JCALBH 
Last BlocK 
Hrxtten 















Q- 



JCR 

jcrlrn~~ 

logical 
fie cord 
. Number 

j JCRLL 
j fie co rd 
j Length 



->a 



— »b 



[7T] Scan blcck tc find the 
wanted record and 
initialize the JCT 



un* 



eturn centre! 



Journal ln^ut Reyuest 





ICT 

JCTIXLFA 
Last 
■Record 
Address 




JCTLRN 
Logical 
Record 
Number 









Diagram - 1.9.5.0-03 



Notes 



l" 10 j Control is returned with error 
indicator on it block numoer is 
not found. 

f lT] Control is returned with error 
indicator on if o lock numoer is 
not found. 



Routine Label 



Journal Input Request 



Diagram - i.S.5.«-03 
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Sync Point 

Program 

(DFHSPP) 

1.10.1 
































Build Loggable 
DWE Chain 

1.10.1.1 




Write DWE 
Log Data 

1,10.1.2 




End 

1.10.1.3 



Visual Index - Sync Point Program 



Diagram - 1.10.0-01 
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IBJPUT 



PROCESS 



DFHSP TYPE = KCP 
TYPE = USER 



^> 



^> 



:> 



^D 



^ 



DFHSPP: 

01 Ensure against runaway 

02 J Checks if sync point process required 

03 Ensure against stall purge 
I 04 I Save user register 

| 05 | Check for DL/I scheduled 

| O 6 I Check for rollback request 

[07J Point to first DWE 

I 08 | If none 

09 If processed or cancelled 



[to] 'f loggable 



Exit to DWE Processor 



izD<3 



To 
1.10.1.2 

E33 



To 
1.10.1.1 



OUTPUT 



Page 1 of 2 



Sync Point Program (DFHSPP) 



Diagram - 1.10.1-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


|~oT| DFHIC TYPE = ENTER, 
1 ' CLASS = CICS/VS 

[03~| DFHKC TYPE = NO PURGE 

05 Issue a call to DL/I task termination, if 
1 ' DL/I scheduled 

[ 06 | invokes DFHDBP to modify or reverse all 
changes to protected resources 


ENTRY 


DFHSPPEP 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Sync Point Program (DFHSPP) 

424 



Diagram - 1.10.1-01 



CICS/OS/VS Program Logic : Description 



LICENSED MATERIAL — PROPERTY OP IBM 



Pate 2 of 2 



INPUT 



| DWECHAM | 



| DWEDWLBA 



PROCESS 



:> 



:> 



12£J 


Unchain DWE 


S 


Free DWE 





Go to 


R 


Point to first DWE 




A. None 



B. Processed or cancelled 



C. Loggable 



OUTPUT 



ED© 



I.IU.l.t 

ED(3 



To 
1.10.1.1 



Sync Point Program (DFHSPP) 



Diagram - 1.10.1-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


[~12~j DFHSC TYPE = FREEMAIN 




SPP02100 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Sync Point Program (DFHSPP) 



Diagram- 1.10.102 
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input 



Processing 



Build Loggable DWE Chain (DFHSPP) 



GU 



[Oil Reset loggable indicator 



02] Remo7e from DWE chain 



03) Pat on loggable chain 







To 
1.10.1 



PAGE 1 OP 1 



[d? 



[tcadwlba ] 
[tcazlgca "J 



Diagram - 1.10.1.1-01 



01 | Reset the log indicator. 



I 02 Remove from chain TCADWLBA. 



1 3j Put on special log chain 
TCAZLGCA. 



0« Return. 



LOG 

CHAIN 

B0ILD 



Build Loggabl* DWE Chain (DFHSPP) 



Diagram - 1.10.1.1-01 
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Processing 



PAG* 1 OP 2 



Proa 1.10.1 






["tcatcucn 2] ■ 



DPHSPP: 
foTj If no log chain 



021 Write start op STHC to 
Systea Log 



I0JJ Hove log chain to DWE 
chain 



1 00 V Log DWP data to Syst#« Log- 



To 
1.10.1.3' 



051 Tf no dynaiic log. 



1.10.1.2-02 



[06] Purge only non-durable 
— data for user sync points 



j07l Reinitialize rtynanic log 
buffer. 

[o8j Scan ISC TCTTEs . 

Send Request Commit 
to all but last. 
Send Commit to last. 



\ 
/ 






— — — ■-— — — -I 




JCAJRTID 






JCALDATA 




JOUDATA 




\ 
/ 








^CADHLBA 




\ 
/ 






JCAJRTID 








-1CALDATA 




JCAADATA 


\ 
/ 


DPHDBLDS 






PBLLAST 






nPLHXT 




nppfSRN 











Write DWE Log Data (DFHSPP) 



Diagram - 1.10.1.2-01 



]02 | DPHJC TTPK=WRITE 

foT| DPHJC TYPB=iRITE 

Toi] DFHTC CTYPE=PREPARE 

I 1 

DFHTC CTYPE=*COMMIT 



Write DWE Log Data (DFHSPP) 



Diagraa - 1.10.1.2-01 
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*>*GE 2 OP 2 



Write DWE Log Data (DFHSPP) 



09 1 tog P0TK to System Log 



10 J Reset -journal ID fields 



1,11 j Set END OF SYNC 



'.121 Reset SOTK in3icator 







Issue DPHJC TYPE=»MT 



1.10.1 



\JCAtSTFG I 



WCASEOSK 1 



|"tcazsc 



Diagran - 1. 10.1.2-02 



1 091 DPHJC TYPEWRITE 



131 Journal Control 



Write DWE Log Data (DFHSPP) 



Label Ref 



Diagraa - 1.10.1.2-02 
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?*OB 1.10-1. 1_ 

1.10.1.2 






DPHSPP: 
[oT] Reset OWE in- flight 



02 1 Pree all resources 



03 j Turn off runaway task 
indicators 



04 1 Restore user registers 



05 Exit via register 1«» 




End (DFHSPP) 



Diagram - 1.10.1.3-01 



(01( Reset indicator 
( 2 j DPHKC TTPE=DEQALL 
rbTI DPHIC TYPE=EXIT 



Label 
SPPOJ000 



End (DFHSPP) 



Diagram - 1.10.1.3-01 
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INPUT 



PROCESS 



OUTPUT 





TCA 




TCALCDSA 




Registers 








TCA 




TCALCBOS 
TCALCEOS 
TCALCMAX 







From 
DFHLFA 



^> 



01 Update current TCA LI FO stack control values 



02 Determine if there are overflow segments to be 

' ' freed. If so, call DFHSC to free them. 



Determine if there is sufficient space in current 
LIFO stack to satisfy request. 
If not, issue DFHSC TYPE = GETMAIN 
to obtain new stack. 

Chain new stack to old stack. Update TCA pointers 
and maximum length of stack values. 



05 Return to caller 



^> 



% 





TCA 






TCALCBOS 
TCALCEOS 
TCALCMAX 











LIFO Overflow (DFHLFO) 



Diagram -1.11.1-01 







DFHLFO is entered whenever it appears 
there is no space in the current LI FO 
stack for the requesting module. 
Arguments are passed directly in registers. 
Registers are not saved as there is no 
space in which to save them. 



There may already be LIFO overflow 
segments in existance which are not 
currently in use. 



Required space is now available in the 
LIFO stack. 



LABEL REFERENCE 



LIFO Overflow (DFHLFO) 



Diagram -1.11.1-01 
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Trace 
Management 



2.1 



Turn Trace 
ON/OFF 

2.1.1 



User Trace 

2.1.2 



FE Trace 



2.1.3 



System Trace 
2.1.4 



Turn Auxiliary 
Trace on 

2.1.5 



Close Auxiliary 
Trace 

2.1.6 



Write Auxiliary 
Trace Record 

2.1.7 



Program Exit 

2.1.8 



Trace Management 



Diagram -2.1.0-01 
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r CSATRTBA 

I (Trace 
I Table 
I I Address 



I Trace Header 

L> [z: 



TYPE=OH/0*J 



}'\ 



-J 



CSA 



CSATEMF1 f 

Trace j 

Master | 

Flags I 

CSATRMF2 | 

Trace | 

Master | 

Flags j 

CSATRKFd j 

Trace • | 

Master l 

Flags ( 



TCAIRMF 
Task 
Master 
Flag 



TCATRTR | 

Trace Typej 
Request ( 






DFHTRP: 

j Ol] Find and clear the next 
entry in the table 

[02] Insert the task ID 



03 1 Build remainder of entry 



0<4| Go to EXIT (2.1.5) 



7777777777777\ 

— |/r 

I 1/ 

1 V 



7777777777// 

I 1/ 
7777777777/ A 



1=1 




Turn Trace ON/OFF 



Diagram - 2. 1. 1-01 



This module is entered via a 
DFHTR TYPE=ON/OFF, 
STYPE=USER/SYSTEM FE macro, 
DFHTRACE macro, or DFHLFM 
macro . 



L 02J 



|0J| TIPE=ON/OFF 



STYPE=0SER 



STYPE=SISTEM 



The macro instruction expansion 
performs the turning ON or OFF 
of the trace flags in the CSA 
and TCA. 



Routine Label Ref 



Turn Trace OH/ OFF 



Diagram - 2. 1. 1-01 
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CSATBTBA 
Trace 
Table 
Address 



Trace Header 



STYPE=USER 






TCATHF1 
Data field 

1 



Ji 



1 01 \ Find and clear next entry , y y ///p yy py^) ^ 
in table ' TT-^f 



on 



Insert task ID 



ZZZZZZZZZ/ 



03 J Build remainder of entry 



oa GO to EXIT 



\ 



ZZZZZZZZ2. 



A . 



E^ni 



\ / 

v 

2.1.8. 




Trace Management - User Trace 



Diagram - 2. 1.2-01 



fo71 



Routine Label I Bef 



Trace Management - Oser Trace 



Diagram - 2.1.2-01 
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Trace Header 



TCATRID1 
PE trace 
ID 



TCATP.P2 
Data field' 



if 



J01) Pind and clear next entry — 
in Trace Table. 

foT| Insert task ID 

)03J Build reiainder of entry 

J0a| Go to EXIT 



Trace Hanageaent - PE Trace 




Diagraa - 2.1.3-01 



floutine' Label Hef 



Trace (fanageaent - PE Trace 



Diagraa - 2.1.3-01 
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STTPE=STSTEfl 




}01| FinS and clear next entry 
in Trace Table 

| 02 | Insert task ID 

|03| Buiia renainaer of entry 

jog { Go to EXIT 




Trace Management - System Trace 



Diagram - 2. 1.4-01 



FoTI Data fieias are taken from the 
TCA basea on the ID ana type 
request. 



Trace Management - System Trace 



Diagram - 2. I.o-oi 
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INPUT 



PROCESS 



OUTPUT 



TCATRTR 

Request 

Code 



Trace Header 



DCB 
Address 



I 01 I Open Auxiliary Trace File 
and put DCB address in 
trace header 



02 Put Auxiliary Trace header 
record in output buffer 



03 Set return code and trace 

master flag 



z> 



ib 



% 





Trace Header 






DCB 
Address 






Output 
Buffer 






Trace 

Header 

Record 






CAS 






CASTRMF1 
X'08' 






TCA 






TCATRTR 

Return 

Code 











Turn Auxiliary Trace On , 



Diagram -2.1.5-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


I 01 I If OPEN fails a return code of 
' ' X'EQ' is returned. 

@ 

I 03 I If OPEN successful, return code 
' ' is X'OO'. 




TRAXOPEN 
TRAXOPOK 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Turn Auxiliary Trace On 



Diagram -2.1.5-01 
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Trace Header 



liUx 



jOl) Check Open status and '\, — , n - 

• — J ,/jaUa)- 

return bad return code if I *-—• <-_i 



J02l Put end of data record in ■ 
output buffer 



03 Write last buffer 



04 Close DPHAUXTR file 



1 05 j Clear DCB address, reset 
Trace master flag, set 
return code 



^>B 



u 






TCA 






TCAT^TP 

Peturn 

Code 




Output 

Buffer 

I End of 
Data 
record 


] 


DFHAOXT* 






Sgueaid 
.xle 






Trace 

Header DCB 
address 




CSA 






CSATP1F1 
Aux Trace 
Indicator 


1 



Close Auxiliary Trace 



Diagram - 2. 1.6-01 



E 



A check is issued if a previous 
WRITE is outstanding. The last 
HPITE is started and a check 
issued to wait for conpletion. 



GO 



Routine Label 



Close Auxiliary Trace 
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CSATRHP1 
Aux, Tract 
Indicator 



s 



Trace 

Header 

Current 



_S^< 



^> a Q— > 



Baffffer 

Control 

Switches 



Urlte Auxiliary Trace Record 



J01| if Auxiliary Trace not 
active, exit 



1 02 1 Pat Trace entry in output 
buffer 



[03] If buffer not full, exit. 
Else, issue Check for 
outstanding Urlte. . 

]0*{ Start Write of current 
buffer. 



| 05) Switch buffer pointer to 
alternate buffer 






] 2.1.8.; 



Output 
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Lr- 1 ' 



EH=2l ; 



V 

2.1.8.1 



Buffer 

Control 

Switches 
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Rotes 


Routine 


Label 


Ref 


Rotes 


1 
Routine' 


Label 


Ref 


E3- 




TRAXEHT 






1 


1 




[02] if current entry is X«P0» no 
















records are POT. If previous 




1 












entry is 1C»PD» both the previous 










1 






and current records are POT. 






' 










Otherwise, the current entry is 
















POT. All entries are 
















tlae-staaped with the contents 
















of bits 13-4* of STCK. 










1 






[55] 


1 


1 


1 




1 






1 




TRA0XP0T 

l 












]05| Double buffering is used. . 
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Trace Taole 



[IZIZT 



Program Exit 






[oT] Incranent the duplication 
count, if necessary 

j"02l Change header information, 
if necessary 

[03J Return to calling program 



77777777777771 



\ / 

V 

To Caller 



Trace Table 



3 



Diagram - 2.1.8-0' 



01] Tne count is incremented if tne 
current entry is the sane as a 
previous entry. 

02J If new entry has been built, 
update header xnf ormation to 
snow new current entry. 



m 



Lafcei 
TREX1T 



Poutine Label . Ret 



Program Exit 
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Dump Control 

Interface with 

CICS/VS 

2.2.1 



Dump Control 
Program 

2.2.1.1 



Dump Control 

Program 
(DCWRIDR) 

2.2.1.1.1 



Visual Index - Dump Control 



Diagram - 2.2.0-01 
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TCADCNB 
Number of 
bytes 



TCADCSA 
Storage 
address 



TCADCDC 

Dump 

identifier 



CICS/VS 

Prograns 



CICS/VS 
control 
blocks 



(DCDTF.BLS 
•Length 



ISU 



H : 



0= 



j DCDTFI \—^-» / jT) 
j Dun ay ECB J l-J 



DPHDCP: 
|0l] Dump requested 



02] Set runaway task 



Oil Request trace 



04| Request lock of dump 
facility 



>[ ~ 

I Perform output of 
(identification 
(records and data 

| r€COrdS 2.2.1.1 



j 0I 

=0ra 

I L ' r-i ' ^ 

=^0 



Ob] Release lock of dump 
facility 

07] Reset and test runaway 
task 

[ 08J Provide NOTE information 
and get last record 
indicator 



00 



'l!J 



••••i > 



TCI 






DPfUC 
Req«*sts 




TCASTHID 
Nodule ID 
service 


TCALCKAD 
Locked 
source 
address 








JDCDTFI= 
ICSA0OLA 
[ Dummy ECB 

Sequential 
Data Set 






Data ID 
record 




Data 




Data ID 
record 




Data 


, , 



Dump Control Interface with CICS/VS 



Diagram - 2.2.1-01 



^01 1 All dump requests supply TCADCTR 
and TCADCD. Optionally, TCADCHE 
and TCADCSA must be provided 

joi] Output of data identification 

records occurs from a fixed area 
in Dump Control prcgran. 

Output of data records occurs 

from area which data normally 

occupies. Storage address and 

length of data records are 

contained in the registers 

IDCADRREG and DCLNGREG). 



Routine | Label 



outine Label 



Dump control Interface with CICS/VS 



Diagram - 2.2.1-01 
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JCSAP 



11!"'/ 



;>q 



0= 



TCATDTB 



TCAOCOC 
Duap code 



TCADCHB 
Nuiber of 
bytes 



TCADCSA 

Starting 

address 



.0— V 



0~ 



=^>S 



|01 j Save registers and obtain • 
note inforaation 

foil Save pxograa check, 
registers and PSW 

[oj] Write heading inforaation • 



[ 04] krite TCA (Oser ana 
System) 

] 05 1 Write prograa check 
registers and PSW 

]0b) write CSA and CWA 
|07| write Trace Table 
1 8 1 Write segment storage 



>0 
>0 
>0 

>0 



Output 
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DCP 

) DCREGSAV~~| 



Duap Control Program 



Diagram - 2.2.1.1-01 



[08] Conditionally perforaed based en 
code in 1CADCTR 



Routine Label Ref 



Duap Control Prograa 



Diagram - 2.2.1.1-01 
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Storage 



r^gHJ— > 



0=3 



:>s 



i 
0-0 

— js 

— V 



[ 09) Write transaction storage iS r~lL£J ' ' 

T 

J 10| Write facility control ' N J~I 

area I ' U 

,-,- I 

Mil Write terminal storage *^n 

i 

[TJl Write prograa and RSA '^r~\ 

storage | «— » 

I U{ Write systea control '^r— 1 r— - J > 

[lT| Provide NOTE information 
and set last record 
indicator 

J15J Hestore registers 



i:l 



DCWRIDR 



Perf ora 
output of 
ID and 
data 
record 



ildentifica 
I tion 

I record fori 
jnext data 
(record 1 



Data Record 

> 1 1 



J DC HOTE ] 



Duip Control Erogram 



Diagram - 2.2.1.1-02 



foVj Conditionally performed based en 
code in TCACTR 

I 10] Conditionally performed based on 
code in 1CACTR 

) 1l) Conditionally performed based on 
code in TCADCTR 



J 12 j Conditionally performed based on 
code in TCADCTR 

[idj Conditionally performed based en 
code in TCADCTR 



j 14] In case of BOP, the NOTE 
information will net be 
provided. A Dump data set closed 
indicator iDCDTFCLI) will be set 
instead. 



Routine Label 



Routine Label 



Damp Control Program 
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IDCIRTSI 

iData type 



0— ,/ 



r , — j \ r ~, ("17 

i DCBL Data * " * J 

length 



IDCBA Data j 
J add ress I 



: 



1\ 

< 



DCOOT ID 
rec crd 
length 



H : - : 



— j\ 



J=i>0 



>ra 



E3 



01) Make validity tests 



02 i Request SAM output for ID — 



J [ Request SAM output for 
Data record 



01 j Return 



^0 



J\r-i 



G==l 
V 

To Caller 



Set 
flD Record 



(Data 
record 



Dump Control Program (DCWRIDR) 



Diagram - 2.2.1.1.1-01 
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Notes 
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Notes 
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| joij Validate storage accounting. 
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1 
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Dump Control frograa (CCHRIDR) 
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I Bun away Tds 



j SPIE Inter iace 
I j.1.2 



(STAE Interface 1 Initialization: 
3 .1 .3 I STAE and SP1E 

1 3.1. a 



m 



r { 

'ESTAE Retry I 
! 3.1.3.2 ! 



STAE 

I natialization 
3.1.4.1 



Sy^-tea faecovery 
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Processing 




JFSM, 
*e yi st er s | 

ll'Jl J I r—z 



Q— ; 



ICSAICRNX | >(TI 

j tmnaway I «-_J 

| tasK AB£NE 
j linkage 



DFhSRP: 
[oil Save required information 



[02j Restore overlayed 
instruction 

[oTj Exit via the linkage in 
the CSA 



E=l 



[pISAVE 1 

iSavp area 
I for SPIR I 



iiuiiaway lasx 



Diagram - 3 . 1 . l-P 



Notes 
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tafcel I *ef 
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|01j in*: System aecovery program is 




PIPSTARr 
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I 


entered as a result of a program 












1 


cneck caused ny tne Timer 












1 


interrupt routine. (One 












1 


instruction is caanged to a 












I 


NOP.) 'line op coae and the 












1 


address or tne overlayed 












1 


instruction are saved. The PSh 












1 


ana tne registers are also 












1 


saved. 












1 
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I 
1 
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foj] The tasx will later be 




PIPRNTK 








1 

i 


annoriaaily terminated. 
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!PSH S 1- 
Hegisters 1 
U5 I 



••••I J 



CSA 






II 



0~~ 



M 






CSAPCNAC , 
JrCP entry ( ; 
address 



1CAPCAC 
lasJc ABEND 
code 

TCASYABI~~ 
lasJc ABEND 
indicators 



— »0 



[oT] Save required inforaation "\ 



be 



Find the caller 



03 Prepare and issue any 



[04J Exit to Prograa Control 
through OS/VS 



7777777777// 



E~l 



l> 



7 i> 

/ 
/ 



TCAPCTR 
PCP type 
of request 



TCAPCAC 
Task ABEND 
code 



Diagram 



The PSK and the registers are 
saved. 



] 02 j If the Systea Recovery program 
was entered during storage 
verification, the Storage 
Control program (SCP) sets a 
flag in the hi^h- order byte in 
CSASCNAC. Control is now 
transferred bac* to SCP f roa 
sap. Tne return address is given 
in the fullword which preceded 
the SCP entry point. 

If SEP was entered for any otner 
reason, processing is continued. 

| 03 j If a systea tasx is in control, 
aessage DFH0601 and OS/VS ABEND 
601 are issued. 

If a recursive prograa check 
occurred, message DFH06 02 and 
OS/VS ABEND 602 are issued/ 

If a prograa check occurred in a 
SIAE exit routine , aessage 
DFH0615 and OS/VS ABEND 615 are 
issued. 



Otherwise, a task ABEND is 
prepared with ABEND code ASRA. 



SPIE Interface 



Diagram - ,3.1.2-d 
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r | L6A(jfc£-LA 1 

I iftiaturGj j 

I J xxtt 

I i aUllLtiiiS ( 

I t- ' 

I 
I 

i UiiL 

( | tri'i entry j 

| Liififl* J 



i i 
-Li 



SlAZ/uSlAt. xliteiiact 



[oT] Chec* whether STAE/ESTAE 
is fcemg reentered. 



(0^1 Save required information 

IF) 



save ABEND code 



Oil 

(E3 



Continue ABEND in 
termination situations 
(ISTAE only) . 

Match ABEND code and 
transaction class and save 
required information 



__j\ r 

••I >|STA3CFD 



| it match found, 
l schedule 
jbTAE/ESTAE retrv 
| routine 
j 3. 1. 3. 1 



SRP 

fsRSAvi 
(Save area 
jfor 
JSTAE/ESTAE 



TCAPCPSV 

psw at 
tine of 
ABEND 



Diagran - 3.1.3-01 



[o"l] rtessa 3 u DiriiUol* and U5/VS ktittiD 
b }*. are xusaeu 

[u<ij iuicrwaticn is ta*on from 

o'lAfc/r-bXAr. woif. area unless 
xnsurrxcieiit cote available and 
then lejs o ana 1 provide some 
Liitortfatj.cn. 



El 





IL t,iCd Xi jexiij rorcea to close 
down ux tiie SjJlUk, message 
ujrctbl/ ia xoijutu ana no atteff.pt 
to LtLOVel li UiaUc. 



j05l 'ihe i*M taLit ib searched tor a 
uiatcnxnj cede- ui ST At systems a 
ujtj entry xn tnt bid wilx xie 
ijncrta unless xt has neeu 
atlibZLateij je ue rated oj tne 
user. 

JU*>] ii AutiiU occurred xu system 

tasK, xssue iDessa^e OirriOoU and 
jc to ste^ 7. netry routine is 
scatduxtu l^ returning to oj/VS 



with its address in reg 0, and a 
4 in reg 15. 



blkt/tSlikL liltelLaCe 



Diagran 
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S£kt/t.i»lki. iutenaCc 



vcocessih i 
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|^7l Tti.1 cpeiat-or of ABEND 

jOb] iAu* tc Keypoint program 

/<■—. i\ f 

,,._,/ 

l L 3 L U 

[09] Continue ABEND 



Diagrai - 2.1.3-C2 



07] ML'ito un-iba-jt; JrtiuoUb. 
I Ob] Link to Kit- .1.1. u>,afcjtea m 



I Ua l lnaicdcfc MbiiNL to continue cy U 

111 Lti d 1t>. 



STAii/fiiiiAfc luteilact 



Routine Label Fet 



Diagraa - 3.1. 3-C2 
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|*iaj nits 



l tt J" 

fiCAPCAhU ] 
MtJiiNL | 

lie co very | 
jc^tion j 



{••••I > 



> 



DFhSkP: 
Toil free the work area 

[oi] Keestablish SPIE and STAE 
exits 

[odl Execute specified recovery 
lcjic 

[0t\ Abnormally terminate the 
task and cancel exits as 
speciried 



r— J\ 
••I > 



3 



E5SH! 



Diagram - 3.1.3.1-01 



foil An oS/Va IrittflAiN i£ issued 11 a 
Sxkl wor*. drea was acquired. 

fu^j ii'lAfc exits ait restablisheu via 
Lue stais .initialization routine. 



IUjI Hecovery lojic cmi be a yrograo 
to iiuk to or a routine to 
itrancn to. In uotn cases a value 
or ieto it passed in register 1. 
tor routines an indicator is 
yasseu in register J showinj 
tnat tuis is a S1'A£ system. 

foi] A ProjfaB. contirci AktUD is 

issued. {HcruhL code is ASHB.J 



Diagram - 3. 1.3. 1-01 
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■ i 1 \ 



I ta IF ws I 
iridj Dits I 



(lCAPCAHO } 

UotHC i 

jiecovery } 

[cpticn j 



DFbSHP: 
[ol] Reestablish SEIE 

[02? Execute specified recovery 
lojic 







Free the work area 



[04] Awnornally terninate the 
tasK and cancel exits as 
speciiied 



(••I > 






Diagram - 3.1.3.2-01 



T01] si'Ab exits act testabiisned via 
cue SiAr. initiaiiAation routine. 



E3 



Recovery iojxc can be a pro gran 
to xi.uk to, or a routine to 
nrancn to. in uctn cases tne 
hSTAr; hoik area address is 
passed in register 1. For 
routines an inaicator is passed 
iu Ee^istec s suotoing that tnis 
is an tbTAt system. 



OJi Au CS/VS irhahhAlh is issued it 
an bSl'Hc. nor* aLea uas acquired. 



E3 



a Program Loutroi AfcEND is 
issued. lAbriNU coae is ASttB.) 



Label Bet 



tSl'Afc detcy 
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from 4. I. 1 1 






initialization: lU'A-c/tJiAi ana oP IE 



To 1 J initialize pointers and 

indicators 

J02j hstdoiish SPIE linkage 
[oj] Initialize SPIE 



[On] issue STAE/ESTAE 

initialization message and- 
save STAE/ESTAE address 



zz(>0 jt{) 



7777777777// 



0Z2{> 



EJ 



(>ra 



To Caller 



Initialize 
STAE/ESTAE 



SIP U. 1.11 



CSAPIPSS 
Save area 
address 

csapica 
SPIE entry 
address 



PIPIPIN 

First-time 

switch 



PICSAAC 
CSA 

address 
for SPIE 



SRCSAAC 

CSA 

address 

for 

STAE/ESTAE 



Diagram - 3.1.H-01 



Noted 



10 1 J ccnttoi it leceived tcotu System 
initialization tiojrauj to 
estdiilisti i>t»ic diiu SIAii/hiTAi. 
exits- iht iitiit-tiiie switch is 
set ana tne Si-it address is 



EI 



|0<4] Messaje uinlsuu is writ tea. 



Initialization; br At/rblAE auu SPIii 



Routine Label Bet 



Diagram - 3.1.4-01 
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SlAb/£^TAh initialization 



■I. 



DjyhSRE: 
[oT] Initialize STAE/ESTAE 

[02] Pertorm processing fcr an 
unsuccessful 
initialization attempt 

A. Send message tc 

operator and vait for a 
re t ly 

ti. Process the operator's 
reply 



E~l 



Diagrai - 3.1.0.1-01 



[o"l] au C6/Vj SZAb/u&XkiL macro 
instruction is issued. 

ir tuccessiui, control is 
returueu to the caller. 



A. iiic operator is askeu to 
specu? eitner lie or canckl 
cr cANCiA., oUMjt. ttessajes 
DraOuU* auu LiuOtoOb are 
issued. 

o. Ir nU is speciiied, 

initialization continues. If 
CANCEL or OtNCjiL, DUMP IS 
specineu, '-iCi/VS is 
abnormally terminatou witn 
aoaiu bos men or without tne 
LUtttf paLauieter, depending ou 
tne operator's reply. 



Routine Label Eef 



STAti/bolAc initialization 



Diagrai - 3.1.».1-C1 
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| Abnormal | 

(Condition j 

I Program j 

I 3.2| 



| Task ABEND 



I | Terminal Error | 
11 | 3.2.21 



Abnormal Condition Program 



Diagram - 3.2-01 
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"ll.3.6 



CZZH 



]] 



JJ 



•...1 > 



[01] Reset PCP RP-i?»IO request 

byte I 



I 02 1 Prepare Message 



|03J Write Message to terminal 
operator 



104] Write nessaqe to Raster 
terainal operator 



E3 



Return to caller 




Task ABEND 
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Ref 


J02J DFH220X aessages are issued for 
















Dynaaic Transaction Backout 
















tasks that have abended. 
















J 01] Bypass writinq to terainal 
















operator if: 
















- Facility is not a terainal 
















- Facility Control Address is 
















zero 
















- Terainal is out of service 
















- Switched line is not connected 
















- Terainal type is 3735, 
















Systea/7, or 7770 
















- This is a 3790 running DIP . 
















\oT\ Bypass writing to aaster 
















terainal operator if ABEND is 
















due to stall ourge. 

















Task ABEND 
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From 1.1.1. and 

4.12.1. PROCESS 



Page 1 of 1 







Move Transaction ID and error code to the message 



If this is a disconnect request and the line is switched, 
disconnect the line and exit from AOP 



I I Write the message to the terminal operator 

I 04 | Write the message to the master terminal operator 

I nc . I Return to caller 



D^ 





TOA 












TWA 






TIOA 



















Terminal Error 



Diagram - 3.2.2-01 



HD 



If the line is out of service, return from 
AOP: otherwise, issue a DFHTC TYPE= 
(DISC, WAIT). 



Terminal Error 



ROUTINE LABEL REFERENCE 



Diagram - 3.2.2-01 
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PAGI 1 C* 1 



u 



[iCAFCAAA ] 



■ ['ICI'LEECA ] 



I XACLE 

l >r , 

r I ICILEPCH 

i IctlIpfl~j j 



[lCTLEP*2 ]- 



IACLE 
[iCTLEPCH \ 



iTi_v 

1/ 



flCTLEPFL 1 t/0 

j_ICILEPF2 j 



Toil Locate last TACLE on prror 
chain 

J02] Generate output message 
and perform error 
processing 

[Oil EstaDlish default 

corrective action to be 
performed 



7777777777777( > 



[OaJ Call DPHTEP and pass 
address of curren 
to field TCAFCAAA 



7777777777-V7I 1 \ 

address of current TAC1E —7 1/ 



< l—l > 

\ r— 1 / 



DFHTEP 



|05l Perform corrective action 
established by steps 3 and 



06 Return to caller 



[ms-j Out. nut] 
Iquouf! ' ) 

L_ J 



TACLE 

ITC^LiEci+21 
1 j 

TCA 

[tcafcaaa 1 



Terminal Aonormal Condition Program 



Diagram - 'J.'j-C' 



Notes 



[01] The last TACLE entry is flagged 
oy zero in tne ICTLEPCH field. 
Since tnis field is used to 
store tne address of a worK 
area, the TCIECHLji bit is set on 
in the TCTi£PE2 tie Id to 
indicate the last entry on the 
chain. The chain end location 
routine cnecks tor eitner of 
tnese end-of-caain indicators. 

f02j Processing at tins time depends 
on the type cf error that 
occurred. Beier to Table I for 
tae processing routines and 
their order of execution. 

|0j] Default action depends on the 

type of error, fieler to tanle I 
for tne default actions for eacn 
error code. 

j04| DFHTEP is a user-supplied module 
for additional error anal/sis 
and correction. 



Routine Label 



fioutinel Label 1 P^f 



Terminal Abnormal Condition Program 



Ciagrair - i . 3-r ' 



Section 2s Method of Operation 



457 



LICENSED MATERIAL — PROPERTY OF IBM 

ERROR CODES 





8 8 8 
1 2 3 


8 8 8 
4 5 6 


8 8 8 
7 8 9 


8 8 8 

A B C 


8 8 8 
D E F 


9 9 9 
1 2 


9 9 9 
3 4 5 


9 9 9 
6 7 8 


9 9 9 
9 A B 


9 9 9 
C D E 


9 A A 
F 1 


A 
B 
C 
D 


3 

2 


2 




















E 
F 
G 
H 




2 


2 


2 
2 
















I 
J 
K 
L 










2 
2 
2 




2 










N 

N 

P 


3 


3 3 3 


3 5 3 


3 3 5 


3 3 3 


3 3 


4 5 


2 

3 3 3 


3 3 3 


3 3 3 
2 


3 4 4 


Q 
R 
S 

T 


5 3 

4 

2 1 


4 

5 6 


4 7 4 


4 
4 7 


4 4 
4 


4 
4 


5 6 


4 4 4 


4 4 4 


4 4 4 


5 5 
4 


U 
V 

w 

X 


1 1 


1 1 1 
2 


1 1 1 

3 

4 


1 1 1 

3 

4 


1 1 1 


1 1 


1 1 

3 3 


1 1 1 


1 1 1 


1 1 1 


1 1 1 


Y 
Z 

AA 
AB 












2 
2 










2 


AC 
AD 
AE 
AF 


2 

4 


4 
5 


















3 


BA 
BB 
BC 
BD 




4 


6 


6 






2 
4 


2 






3 


BE 
BF 
CA 
CB 






2 










2 


2 
2 






CC 
CD 
CE 
CF 


















2 


2 

2 




DA 
DB 
DC 
DD 






2 


2 
















DE 
OF 






















2 
2 



The matrix defines the selection of message routines based on error 
code. The sequence in which the routines are executed is indicated by 
the number in the column corresponding to the error code. For example, 
for error code X'88 1 , the processing routines are executed in the 
following order: U r F, W, X, N, BA, S. Refer to Figure 2-4 for a list 
of the processing routines. 

OPL6 

Figure 2—3. TACP Message Construction Matrix 
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Routine Function 



A Generate message "DFH2501 MSG TO LONG, PLEASE RESUBMIT" 

B Not used 

C Generate message "DFH2503 AUTO OUTPUT HAS BEEN REQ, 

PLEASE PREPARE TO RECEIVE" 
D Generate message prefix "DFH2502 TCT SEARCH ERROR" 

E Generate message prefix "DFH2505 POLLING LIST ERROR" 

F Generate message prefix "DFH2507 INPUT EVENT REJ" 

G Generate message prefix "DFH2512 OUTPUT BUFFER EXCEEDED" 

H Generate message prefix "DFH2506 OUTPUT EVENT REJ" 

I Generate message prefix "DFH2513 OUTPUT LENGTH ZERO" 

J Generate message prefix "DFH2514 NO OUTPUT AREA PROVIDED" 

K Generate message prefix "DFH2515 OUTPUT AREA EXCEEDED" 

L Generate message prefix "DFH2517 UNIT CHECK SNS=" 

M Generate message prefix "DFH2519 UNIT EXCEPTION S.N.O." 

N Generate message suffix "AT TERM xxxx, TRANS yyyy, hh.mm.ss" 

or "ON LINE W/TERM, R.EL LINE zz, hh.mm.ss" 

or "ON LINE W/TERM, hh.mm.ss" 
Generate message suffix 

"LINE, CNTRL, TERM xxxx, [ REL LINE zz, ] hh.mm.ss." 

or "LINE, CNTRL W/TERM xxxx, [REL LINE zz, ] hh.mm.ss" 

or "LINE, .TERM xxxx, [REL LINE zz , ] hh.mm.ss" 

or "LINE W/TERM xxxx, [ REL LINE zz,] hh.mm.ss" 

or "CNTRL, TERMxxxx, hh.mm.ss" 

or "CNTRL W/TERM xxxx, hh.mm.ss" 

or "TERM xxxx, hh.mm.ss" 
P Generate message prefix "DFH2508 UNAVAILABLE PRINTER" 

Q Write to terminal causing error. 

R Write to Destination "CSTL" 

S Write to Destination "CSMT" 

T Obtain terminal main storage area (message build area) 

U Obtain transient data main storage 

V Generate message prefix "DFH2531 INVALID WRITE REQUEST" 
W Generate message infix "RETURN CODE xx" 

X Converts hexadecimal byte into two printable characters 

Y Generate message prefix "DFH2513 PRINT QUEUED" 
Z Generate message prefix "DFH2531 1C FAILURE X" 

where X may be "IOERROR" or "TRNIDER" or 
"TRMIDER" or "INVREQ" 
AA Not used 

AB Generate message "DFH2534 INVALID DESTINATION" 

AC Set terminal out of service 

AD Set line out of service 

AE Generate message prefix "DFH2 504" 

AF Obtain terminal statistics 

BA Obtain line statistics 

BB Generate message prefix "DFH2516 UNH CHECK SNS=" 

BC Generate message prefix "DFH2518 UNIT EXCEPTION" 

BD Generate message infix ", S.N.O." 

BE Generate message prefix "DFH2520 NEGATIVE RESPONSE" 

BF Generate message prefix "DFH2521 UNDETERMINED UNIT ERROR" 

CA Generate message prefix "DFH2522 INTERCEPT REQUIRED" 

CB Generate message prefix "DFH2526 INTERV ON PRINTER" 

or "DFH25 27 INTERV REQ" 

or "DFH2528 ERROR STATUS MSG XXXX RECEIVED" 
CC Not used 

CD Generate message prefix "DFH2523 INVALID COPY REQ" 

CE Generate message prefix "DFH2524 INVALID MSG BLOCK" 

CF Generate message prefix "DFH2525 INCMPLT MSG" 

DA Generate message prefix "DFH2510 TIME OUT" 

DB Generate message prefix "DFH2529 UNSOLICITED INPUT" 

DC Not used 

DD Not used 

DE Generate message prefix "DFH2530 INVALID READ REQUEST" 

DF Generate message prefix "DFH2509 INVALID DISC REQUEST" 

Note: Output messages may be composed of up to three parts in the form 
of "PREFIX INFIX SUFFIX". These three parts are put together by the 
various routines and then output to one of three possible destinations 
depending on the type of error. 

OPL7 

Figure 2—4, TACP Message Routines 
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ROUTINE ORDER 



E 
R 
R 
O 
R 

C 
O 
D 
E 
S 



81 


8 


1 


2 


7 


83 


7 








84 


3 


1/2 


7 




85 


1 


2 


7 




86 


2 


7 






87 


2 


7 






88 


5 


1 


2 


7 


89 


6 


1 


2 


7 


8A 


8 


1 


2 


7 


8B 


1 


2 


7 




8C 


5 


1 


2 


7 


8D 


1 


2 


7 




8E 


1 


2 


7 




8F 


1 


2 


7 




90 


4 


7 






91 


9 


2 


7 




94 


6 


1 


2 


7 


95 


6 


1 


2 


7 


96 


6 


1 


2 


7 


97 


6 


1 


2 


7 


98 


6 


1 


2 


7 


99 


5 


1 


2 


7 


9A 


7 








9B 


1 


2 


7 




9C 


6 


1 


2 


7 


9D 


6 


1 


2 


7 


9E 


2 


7 






A0 


1 


2 


7 




A1 


2 


7 







ROUTINE DESCRIPTION 

1. Abend transaction 

2. LinktoDFHTEP 

3. Put line in/out of service, as required 

4. Unavailable printer processing 

5. Put line or printer out of service 

6. I/O error test 

7. Test line for next operation 

8. Set line disconnect required 

9. Unavailable printer interval control error 



Notes: 

• The information given above is a generalization of TACP's default error handling. 

• The left-hand column contains the error code. 

• The right-hand column shows the routines used and the order in which they are used. 



0PL82 



Figure 2— 5« TACP Default Error Handling 
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PAGE 1 OF 1 



Keypoint 
Program 



Save Table 
(Entries for 

PPT- PCT. OCT. 
jFCT, ana TCT 

3. a. 2 



Save DCT Bit 
nap Data 

3.4.4 



and j 

hid 



Save BCAs and 
WREs 

3.4.6 



Save TS data I Save TS Bit map 

3.4.7 IData 
1 i 3.4. 81 



I Write RSD Save Data from Write Restart Bead Restart Save TCTTE's 
IControl Record \ TCAs Data Set data Data Set data 3.4.13 

1 3.4.9 " 3.4.10 3.4.11 3.4.12 



Keypoint Program 



HTPOHAT 1.1 Diagram - 3.4.-01 
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Input 



Processing 



PAGE 1 OP 



[iCAKPRB 



j 1CAKPRB 
1 TC AKPsiT 
I iCAKPEi2~ 



L, 



JO 1 j Prevent runaway, save 
registers 

[02] Exaoiine type of request 
and exit to appropriate 
routine 



tutry Analysis 




Diagram - 'i . U. 1-C 1 



Notes 


Routine 


Lahei 


Ref 


Notes 


Routine 


Label 


[213 




DFHKPPNA 










[02] For wara Key^oint 






3. a. 2 








for activity Keipoint: 














of OCX 






J.U.2 








or tca 






3-a. 10 








of . TCTTh's 






3.4. 13 








of all (OCX) 






3.U.2 








For write Restart Data Set data 






3. 4. 11 








ror Read Restart Data Set data 






3. a. 12 









intry Analysis 



Diagram - 3.U.1-C1 
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INPUT 






PROCESS 






CSA 




• I 

• • • • J 


DFHKPP: 

| 01 I Locate first entry 

I02J Start first block 

03 Move entry to keypoint buffer 

Locate next entry and repeat 

| 04 | Write the block 

fo5~] Exit 










CSAPPTBA 
PPT Beg 
address 




N 


CSAPCTBA 
PCT Beg 
address 


'//////////, 


\> 


CSATCTBA 
TCT Beg 
address 




CSADCTBA 
DCT Beg 
address 




CSAFCTBA 
FCT Beg 
address 








PPT-, 
PCT-, 

TCT-, FCT- 
and 
DCT-Entry 


> 










I I 


3.4.3 or 3.4.4 



OUTPUT 







Control 
Record 



Keypoint 
Buffer 



Save Table Entries (PPT, PCT, DCT, FCT, TCT) 



Diagram - 3.4.2-01 



NOTES 



I 01 I This logic is common for: 

- PPT 

- PCT 

- DCT 

- FCT 
-TCT 

If no entry, the facility is marked 
absent in the control record and exit 
is taken. 







KPPPT 
KPPCT 
KPDCT 
KPDCT 
KPDCT 



REFERENCE 



Saw Table Entries (PPT, PCT, DCT, FCT, TCT) 
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Input 
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CSASBTI 
Region 
exit tine 



CSAICSIC 
Stall tiae 
interval 



CSAICRIC 
Runaway 
tine 
interval 



CSASCHB 

Storage 
cushion 
size 



CSAKCHT 
Hax task 
value 



CSAUHQID 
Onique ID 



CSABCHXT 
ATP nax 

task 



CSABCHXB 
Hax batch 
task 



[oT| Start first block j 



02 J | Move CSA fields to keypoint buffer , 



03 Write block 



L~ v 



^ 



Save CSA Data 



DFHKPDDS 






KPCSAICY 




KPCSAICR ' 


KPCSASCS 


KPCSAICS • 


KPCSAHTT 


KPCSATPT ; 


KPCSATPB 


KPCSAOWQ 









Diagraa - 3.0.3-01 



J02J If ATP is not present, KPCSATPT 
and KPCSATPB are set to zeros 



Save CSA Data 



Diagraa - 3.4.3-01 
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Processing 



CSADCTBA 
Address to 
DCT 



[?L_, 



- 12 

Address to 
map 



> 



J 



> 



>' 



IpcT at aap] ; 



— r 



> 



Save DCT Bit Hap 



DPHKPP: 
|01 \ Locate bit aap 

} 02 J start first block 



[ 03 1 Calculate map length and 
placein keypoint buffer 



|Qttj Hove nap to buffer 



05 j If buffer full, write and 
repeat 



Output 



PAGE 1 OP 1 



E^ 



' KPDCHL 
Length of 
map 



KPDCHBAD 
DCT bit i 
map 



Diagram - 3. 4. 4-01 



Save DCT Bit Hap 



Diagram - 3.4.1-01 
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Processing 



CSAICEBA 
ICE Beg 
address 



CSAAIDBA 
AID Beg 
address 



— • 



i i- 



Output 



PAGE 1 OP 1 



DPHKPP: 
1 ^ I I Locate the control block 



02! Start first block 



103 1 Move control block to keypoint buffer 

|oa] Locate next control block 
and repeat 

[b*5] Write last block 
]06j Exit 




Save ICEs and AIDs 



Diagram - 3. a. 5-01 



Hotes 


Pontine 


Label 


Pef 


Hotes 


Poutine 


Label 


Hef 


joT] This logic is common for ICEs 
















and AIDs 
















- Por ICEs 




RPICE 






, 






- Por AIDs 




KPAID 












If regaest is from DPHSTP, the 
















addresses are in the TWA. 
















If either types of control 
















blocks are absent, this is 
















indicated in the control record 
















and exit is taken. 
















[03] In case of ICE r the jalian date 




1 




1 


1 






is also moved to the buffer.. 


1 


I 


• 


1 1 
1 









Save ICEs and AIDs 



Diagram - 3.9.5-01 



466 



CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL — PROPERTY OF IBM 



Processing 



PAGE 1 OF 1 



CSAOPFLA 
{Optional 
•Features 

List 



fcSAATP AT*>| 
(Extension I 



Idfhatpds 



(CSABCABA 
| BCA Beg 
address 



[dfhbc ads 'j >[a] 



Q-- 

0~ 

0- 
0~ 




i _ i m 

I [bcach ain ""| -1~>|c|L£I 



1 DFHWREDS 

L> , 

|WRECHAIN I — 
pext URE I ' 



-»0 



DFHKPP: 
I Oil Locate first BCA 



02 Start first block 



j 03 j Move BCA to keypoint buffer 



Locate first WRE 



|0a Move WRE to buffer 



1 05 1 Locate next WRE ana repeat 
move of WRE 



l06j Locate next BCA an3 repeat 
move of BCA 



0] 



Write last block 



^ 



1 3.H.7 



\ 

/ 


KPBOF 






Kevpoint 
buffer 













Sive BCAs an3 WREs 



Diagram - 3.H.6-01 



joT) If request from DFHSTP, aaaress 
is in THA. If BCA not present, 
so is inaicatea in the control 
recora, ana exit taken. 



Routine Label Ref 



Save BCAs ana WREs 



Diagram - 3.4.6-01 
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Processing 



PAGE 1 OF 1 



CSATSHTA 
TS Unit 
Table 



Ik 



| 01 j Locate first auxiliary I 



Temporary Storage 
destination in TSOT 



02 Start first block 



03 j Move entry to key point buffer 



I04 Collect RBAs in buffer 



|05j Locate next entry in TSOT 
and repeat 



06 Write last block 



1 






1 









G3 



*l 



Save Temporary Storage Data 




Diagram - 3.1.7-01 



\ 

Notes 


Routine 


Label 


Ref 


Notes 


Routine 


Label 


Ref 


ToTj If no TS in system, indicate 






' 










this in the control record and 
















exit. 
















The locate is done by scanning 




KPTST00A 












the unit tables. 
















If no aax entry found, this is 
















indicated in the control record. 
















and exit is taken (bit map data 








" 








collection is also bypassed) . 


• 






* 








[03J For single-RBA-dest. 




KPTST02A 












For mult-RBA-dest. 




KPTST05A 












J0«n Only in case of 




KPT ST 07 




' 








mult-RBA-dest ination. 




' 




• 









Sa»e Temporary Storage Data 



Diagram - 3.4.7-01 



468 



CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL — PROPERTY OF IBM 



INPUT 



PROCESS 



OUTPUT 





CSATSATA 

TSMap 

Address 






' 


DFHTSMAP 






TSMAPEAD 




End 
Address 






TSMAPBDA 






Beg 
Address 



E- 



DFHKPP 




ED 


Start first block 


@ 


Locate TS bit map 





Calculate and move map 


length to keypoint buffer 





Move map to buffer 


E 


If buffer full, write and 


repeat move 


0- 


Exit 



IP 



1 





DFHKPDDS 
KPTSML 












Map Length 




KPTSMBAD 










Map Beg 
Address 











Save TS Bit Map Data 



Diagram - 3.4.8-01 



Save TS Bit Map Data 
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Diagram - 3.4.8-01 
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Processing 



PAGt 1 0* 



K PC XL EEC 

(Control 
i ftecord 



mite DrrinsD control jjecord 



L, 






DPIiKPP: 

[01J Time-stamp the control 
record 

foil point to *irst record area 
on restart data set 

[03J Write the block 

foul Return to calling program 



7777777777777( > 



i> 



EE-j 



v 
To Caller 



KPCTIWE 1 
Timp of I 
dav I 



Diagram - 3.M.S-C1 



1 j Time taxen ay issuing operating 
system macro. 



OJJ Sucroutin*: 



03 



houtine Lafcel Ref 



J I. 



Label 'cf I 



•write DFH«S0 Control record 



Diagram - 3 - « . S-0 » 
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In^ut 






I 


C5A 


Prom 3. a. 1 




CSAACTBA 
Active DCA 
chain 

CSAACTOF™ 
Active TCA 
en ai n 

CSASUSBA 
Suspend 
CCA chain 

OS AS OS OF 
Suspend 
ICA chain 

CCA 

TCAKCTTA 
lasK ID 










ICAZLUHD 
flags 

ICAKCTI 
Irans ID 






[CITE 








ICTIET1 1 — 
lera ID | 







Processing 



DFHKPP: 
[oT] Locate first TCA entry 

[02] Start first block 

[03 J Move entry to buffer, 
locate next entry, and 
repeat until all "ICAs have 
been moved 



PAGI 1 0? 1 



s 



Write the block 



05 Return 



v 

To Caller 



KPBHFPTR 
[TCA~buff er 



TCA buffer] 



Save Data rroa TCAs 



__J 



Diagram - 3.U. 10-\(M 



[oT] Tais logic is used to K/P all 



jO/j Suoroutine 

foil Only TCA' s wnicn nave written 
anything to cue system log, or 
are in DUE processing are taken. 

]otj A conditional Journal Control 
request is issued. If not 
-satisfied, a KC-cnap is issued 
to cause a tas* switch, so that 
the Journal nuxier will oe 
emptied. Tne collection of TCA's 
iS'tnen repeated. 



tsU 



"ont.ino Lafcel 



save Data frou ICAs 



Diagram - 3. U. 10-01 
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Processing 



PACT- 1 OF i 



ICA 

[icAKPDEA 
I Da ta 
{address ] 



From 3. 4. 1 



DfnKPP 
[KthhTTE 



[Kt-hHTTRN ] 



f:l- 



> 



— > 



DFHKPP: 
[oT] Start first, output block 

[02] Move data tc buffer 
[03] Write block 

[ou] Update TTF 
[oil Return 



zzzzzzz 7 zz 777|J x> 



=jU 



EE~[ 



\ / 

V 
To Caller 



KPCTLFSC 




KPCTBOC 
TTP for 
data 


* PCTBCC 

ttp for 
control 


TP 


KFCBCC 
ttp for 
control 


FP. 


KPCfBCC 
TTP. for 

control 


HP 


KACDBCC 
ttp for 
control 


nn 


kpbhf 
("iT/p'tuff 


irl 


KPCTLREC 


[kpcttrm 





DFriKPP write he start Data Set Data 



Notes 



[£l 



01| Tnis lo^ic is usea to write data 
records, tae Iransaction dackout 
Tame, the ifile aackout Taole, 
toe DL/j. aacicout and tae Message 
dacKout Taai.es to the Restart 
data set. Depending on which 
tanle is written, the 
corresponding Tlh-slot in the 
control record is primed. 

jOz] it user-record-size exceeds 

bufrer space, t tie record will oe 
written out scanned into more 
pnysical clocks. 

JO 3] Subroutine 

[01] Next availaoie II B is updated. 

HE 



Routine Latel 



DFhKPP write nestart Data SetData 



Diagram - 'i.u. 11-C 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OF IBM 



Processing 



KiCl'LBEC 




Prom 3. 4. 1 

••••1 > 
hrin^ 




KPCIBDC 
KPCTBCC ~~ 
KPCPBCC 
KPCHbCC 
KPCDECC 






TCA 






flCAKPDBA 







•Output 



PAGE 1 OF 



DFHKPP: 
foTl Start TTR slot 



02 Read data 



[Oil Obtain user storage and 
place address in TCA 

[04 1 Deblock data into user 
area 

(05 j Set return code 








BE"-} 



\ / 

v 
To Caller 



[rTR-slot ] 

KPBH? 
[K/p'haff er] 

TCA 

ftCAKPDiA | 
Buffer 
[address j 



TCA 

Ftcakprb^ I 



DPBKPP Bead liestart Data Set Data 



Diagram - 3.H.12-C1 



Motes 



| 1 j Inis logic is the sane for all 
ttead-re^uests. Ine starting 
TTfi-address is picked up 
depending on tae request. For 
read or 

tbodata 

IdOCTL 
FBOC1L 
HBOCTL 



Oil Subroutine 

foil Issue Storage Control nacro - 
DFHSC TYPii=G£2ttAlN # CLASS = USER 

[ohI ir record is scanned over more 
tnaii one pnysical olocks, 
several I/O operations nay be 
required to give the whole 
record to tne user area. 



utine Label Bef 



KPBIBD 
KPR1BS 
KPBFBC 
KPSNBC 



Notes 



[05j X«00« - good 

X»01» - I/O error 

X'02» - EOF 

[«1 



DPHAPt icead Restart Data Set Data 



Diagran - a. a. 12-0 
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LICENSED MATERIAL 



PROPERTY OF IBM 



Input 



PAG1 1 0* 



[CSATCTBA 1 
1C I- prefix | 



••••I > 
L - 1/ 



fcSAKPCNT 1- 
[KP -count I 

ophictpx i j 

Iictvroq 1 
Outstandinj 
g response] 



.H|= 



' ra- 
ta- 



[icifirL to] 
be logged I 



ICTSEQOL 
Outbound 
sequence 
nunber 



rn~ 



. 1 J a > 

ICIVSRQ ) j r~l 

aa.- 1 L_Jlz:> 

DfHTCTTE 

— >0 



DPHKPP: 
[b~T] Start first block 



102 J Collect entries from 
•OUTST.RESP' - chain 



|03J Collect entries from 

'T0-B£-L0GGED« - chain 



[Oaj Collect entries from NACP 
chain 



05 Back to caller 






EE«1 



v 

To caller 



TEIKPC 1 
cycle 

if J 



TCTEIKPC 
KP c * 
bits 



Save TCTTE's 



Diagram - 3.M. 13-01 



01 ( Subroutine 

02J Hhen collecting an entry, the 
Keypoint cycle bit is set to 
reflect if the entry is taken 
during an odd or even Keypoint. 
If I/O is required to collect 
all entries, tne scan of the 
chain is restarted from the 
neginning, and an entry already 
taken is tnen bypassed. 

Entries are collected at label 
KPICTCOL for Steps 2 and 3, and 
at label KPICNC0L for step <t. 

[oTl See note 2. 



S 



See note 2. 



Routine Label Fcf 



Save ICTIE*s 



Diagram - 3.H. 13-0* 
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Processing 



Output 



PAGE 1 n* 





1 





-j 


tion ID 




■•••1 > 


DFHAKP: 


-1/ 


ToiJ Single-thread use of 




pro gran 




/' — J\ 








DPHKCP 

ENC 

1. 1.3 












[02] Set to highest priority 




/1 — j\ 

< !••! > 

Nr— -./ 


DFHKCP 






CHAP 

1.1.5 






[03J Establish ABEND exit 




<s> 


DPHPCP "J 

SETXIT 

1.3.7J 




[04] Write start of AKF to 




system log 




< !••! > 
\r— i/ 


DFHJCP ~| 

WHITE 

1.9.3J 




foil Key point TCA's 




/« '\ 

Nr — 1/ 








DFHKPP 








3.4.10 














Activity Key±»oint Program 



Diagram - 3. "5. i-C 1 



03] Auend exit laDeied AKPABclHD is 
active tor entire duration of 
task. 



Poutin*? Label I £■= + 



Activity Keypoint Program 



Diagram - "i. 1 : . 1-C 1 
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LICENSED MATERIAL — PROPERTY OP IBM 



Input 



Activity Keypoint Program 



Keypoint DCTs 



DFHFP° 
DCT 



3.U.UJ 



[07J Keypoint TCTTFs 



DFHKPP 
TCTTE 



3. a. 13 



S 



Conditional link to user's 
Activity Keypoint program 
(DFHUAKP) 



— J\ 
••I > 



DFHFCF 
LINK 



Write end of AKP to system 
log 



••| > DFHJCP 



ii 9 " 3 J 



PAGF 2 OF 



Diagram - 3.5. 1-C2 



houtine Lafcel Ref 



Activity Keypoint Program 



Magran - 3.5. 1-C2 
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Processing 



CSA 
[cSAKPCHr"~] - 



j CSAJYDP J 

[csakJfh3~] 




101 Increment keypoint counter- 



03 



Put CSMT keypoint message 





DPHTDP 


.___ 


\f — l/ 


POT 


—i 


[li] initialize keypoint 


activity counter 


and 


release single-thread 


control 




/i-.S 






DFHKCP 




\r — i/ 


___ 


1. 1.U 


Q3] Terminate 




/• — *v 

< l..l > 

\l 1/ 






DFHPCP 




BETOFN 


1.3.6 



Output 



FAGF 3 CT 



e™l 



[cSAKPCNT "1 



[cSAKPACT"] 



Activity Keypoint Pro gran 



Oiagran - 3.5. 1-C3 



[l1 ] Bypassed it it is the initial 
AKP taken during systea 
initialization. 

It ID-PUT tails tne AKP tasK is 
aonormally terminated (AAKP) 
atter releasing the ABfiND exit. 



Routine Lafcel 3<?t 



Activity Keypoint Program 



Diagram - 3.5. 1-C3 
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LICENSED MATERIAL — PROPERTY OP IBM 



Input 



Processing 



Output 



PAGE I OP 1 







DPHAKP: 

[oT] Disable warn shutdown 
during abnormal 
termination 

[ 02] Send nessage to console 
operator and terainate 
CICS 



G=l 




Activity Keypcint Prograa - ABEND exit 



Diagraa - 3. 5.2-01 



(02*7 Message DPH5802. 



Activity Kaypcint Program - ABEND exit 



Routine Label Ref 



Diagram - J. 5.2-01 
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GICS/OS/VS Program Logic: Description 
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System 
Initialization 
4.1.0 



Start - Up 
(DFHSIP) 

4.1.1 



Overlay 
Supervisor 
4.1.2 



Initialize 

Constants 

DFHSIA1 



4.1.3 



Initialize 
Nucleus DFHSIB1 

4.1.4 



Initialize 
Program Control 
Facilities 
(DFHSIC1) 

4.1.5 



Attach Subtasks 
Build Dynamic 
Pool (DFHSIF1) 
4.1.10 



Page Fix/Free 

Interface 

(DFHCSVC) 

4.1.10.1 



Initialize 
Transient Data 
Facilities 
(DFHSID1) 

4.1.6 



Initialize 
Temporary 
Storage Control 
Block PLT 
Process 
(DFHSII1) 
4.1.11 



Storage Chopper 
4.1.13 



Get Directory 
Information 

.4.1.14 



Initialize File 
Control 
Facilities 
(DFHSIE1) 

4.1.7 



Initialize 

Terminal 

Control 

Facilities 

(DFHSIF1) 



4.1.8 



Initialize 

Temporary 

Storage 

Facilities 

(DFHSIG1) 

4.1.9 



Initialize 
Restart Dataset 
4.1.12 



Start Up 

Terminal Control 
(DFHDCSA) 
4.1.12.1 



Keypoint READ 
4.1.15 



Program Loader 
4.1.16 



Console WRITE 
4.1.17 



System Initialization 



Diagram -4.1.0-01 
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LICENSED MATERIAL 



PROPERTY OF IBM 



Page 1 of 1 



INPUT 



Keyword 



Override 



SYS IN and/or 
System console 



Override 
Parameter 



PROCESS 



//EXEC 
PGM=DFHSIP 



=> 



I 01 l Test timer facilities 

I 02 I Obtain storage facilities 

I 03 I Obtain storage for the nucleus build area 



04 



• Issue start-up message 



1 05 | Build override parameter list 

I 06 I Load System Initialization Table (SIT) 



07 Allocate and format storage for temporary CSA 



OUTPUT 



^> 



% 



To Overlay 
Supervisor 4.1.2 











Save In Root 
Phase DFHSIP 












Override 
Parameter 






SIT 




■* 








CSA 




L- 


CSASITBA 
SIT address 










r 


CSAOPFLA 
OPFL address 




L 


CSAOPFL 






Optional Feature 
| List 











Start-Up (DFHSIP) 



Diagram -4.1.1-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





A STI M E R macro is issued for Vz 
second. If interval expiration is not 
signalled within 5 seconds, message 
DFH1570A is issued. If TOD clock 
js not set (cc#) after STCK instruction) 
message DFH1569C is issued followed 
by ABEND 1569. 








® 


SIP obtains between 34K and 16 
megabytes or storage via a variable 
condition GETMAIN. It then releases 
10K via a FREEMAI N to allow for VS 
working space. 




SIGTMAIN 







Message DFH1500 is issued. 




SIGOTCOR 


4.1.17 


E 


Read override parameter from the 
parameter area and/or from SYSIN 
and/or from the system console 


OPENPARM 
SIPCONSL 






a 


The storage needed to load the table 
is obtained. 


STORAGE 
CHOPPER 


SITCQNS 


4.1.13 




The information required is obtained 


BLDL 




4.1.14 




System Initialization Table is loaded 
MSGDFH1501 is issued. 


PGM 
LOADER 




4.1.16 







Storage is allocated for a temporary 
CSA at the high-end of the partition 
(just below the SIT). The storage is 
cleared and various fields are initialized. 



STORAGE 
CHOPPER 



REFERENCE 



4.1.13 



Start-Up (DFHSIP) 



Diagram — 4.1.1-01 
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Input 



PAGE 1 OP 1 






SITSIMOD 
Suffix 
displace- 
ment 



SINODS 
Systea 
Init. 
Modules 



[*oT| Build overlay naae 

1 02 j Link to BLDL subroutine 

f 03) Link to prograa loader 

[oo] Exit 



f^n 



To Loaded 
Overlay 



Overlay Supervisor 



Oiagraa - «. J. 2-01 



E3' 



The overlay name is foraed by 
appending a two-character suffix 
to the basic name DFHSI. The 
suffix is located in a 
variable -length table and its 
displacement is given by a 
halfword index (SITSIMOD) . 

The index Is increased by two 
upon exit to point to the next 
initialization routine. 

If DL/I is included, the overlay 
supervisor calls overlay 
(OPHSIDL) -> the OS/DLI' overlay 
after DFHSIDI. 

( 02 | Locate overlay in library. Issue 
LOAD Til*HO macro Instruction to 
OS/VS. 

| 03] Register is used as the 

overlay area pointer. Issue LOAD 
macro instruction to OS/VS. 

(ba( The overlay base registers are 
loaded and the overlay 
supervisor transfers control to 
the next Systea Initialisation 



routine by branching to its 
entry point. 



Routine Label Ref 



Overlay Supervisor 



Olagraa - 4.1.2-01 
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LICENSED MATERIAL — PROPERTY OP IBM 



INPUT 



PROCESS 



OUTPUT 



Parameter 
Area 



From Overlay 

Supervisor 

4.1.2, 



DFHSIP: 

1 01 I Accept valid override parameters 

1 02 I Initialize constants 



% 



To Overlay 
Supervisor 
4.1.2 





SIT 














CSA 






CSA SITBA 

SIT 

address 














CSAOPFLA 

OPFL 

address 






CSAOPFL 






CSA-APT 






CSA-APT 





















Initialize Constant (DFHSIA) 



Diagram - 4.1.3-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


r^l Either message DFH1502 or DFH1503 

I I is issued if the keyword or keyword data 

are invalid 

rrr"| DL/I, CSA, and CSA - ATP constants 
LZJ are initialized 


Console 
WRITE 


INVDTWRT 
INVKEY 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Initialize Constant (DFHSIA) 



Diagram - 4.1.3-01 
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Page 1 of 1 



INPUT 





CSA 




CSASITBA 

SIT 

address 




SIT 




I I 




Q 

CICS/VS 
Program 
Library 




PROCESS 



OUTPUT 



DFHSIP 







Build nucleus name list using SIT suffixes 


s 


Build optional module nucleus name list 





Build CICS/VS nucleus 





Initialize addresses and data areas 


H 


Copy CSA fields 





Build HPO control blocks 





Return remaining storage to OS using OS FREEMAIN 





Open restart data set (emergency restart only) 


@ 


Check Link Pack Area and open program library 



^> 



v//////fo 



Initialization (DFHSIBI) 



To Overlay 
Supervisor 
4.1.2 



• 


i 


L 


CSA 




CSAKCNAC etc 








CSATRTBA 

TRT 

address 




TRT 


■ 





Diagram -4,1.4-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





Message DFH 15000 is issued 


Console 
WRITE 


DFHSIBNA 




@ 


The Nucleus Name List is an internal 
table that controls the names of 
modules loaded into the CICS/VS 
nucleus. The list is constructed by 
appending suffixes to modules where 
needed and by deleting modules not 
needed by the system. 








@ 


If required, a nucleus load table is loaded 
to control the load sequence of nucleus 
modules. The Internal default table is used 
to drive the loader to load the CICS nucleus, 
and to initialize addresses in CSA and CSA 
external. For HPO, certain modules are 
loaded into protected memory. 


SIPBLDL 

NUCBD 

SIPCORE 

SIPLDER 


SIN BOO 







Storage is obtained for other system data 
areas, and certain additional Mink edif 
functions performed to interconnect 
nuclues modules and tables. The latter 
function applies to JCP, BMS modules, 
SCP, FCP,TCP, DLIandTRP. 

• If 7770 suport is included DFHRWP70 
is loaded. 

• If keypoints are required a keypoint 
buffer is allocated and its address 
placed in KPP, or, if there is no system 
log, CICS abends with message 
DFH1563 

• The trace table is initialized and its 
address placed in CSATRTBA 









Copy addresses from the temporary 
CSA allocated by DFHSIP into the 
real CSA loaded by DFHSIB1 



If SITIND is not blank the restart data 
set is opened 

If PL/I shared library specified check 
that IBMBPSLA/IBMBPSMA are in 
link pack area. 



REFERENCE 



Initialization (DFHSIBI) 



Section 2: Method of Operation 



Diagram -4. 1.4-01 
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LICENSED MATERIAL 



PROPERTY OF IBM 



Processing 



Output 



PAGE 1 OP 1 



Prom Overlay 
j Supervisor 
U. 1.2 



~Y"! 



CICS/VS 
Program 
Library 



—A 

/ I 






DPHSIP: 
r oT) Initialize the PPT 



021 Initialize the PCT 



r'00— ; > 



I •* V r-i 



l£if 



[oo] Perform warn start for the~-~ »\r— • 
PCT "* L.J 



05 1 Locate CSAC transaction 



T w 



|To Overlay 
(Supervisor 
14.1.2 



Initialize Program Control Pacilitiss (0FHS1C1) 




Diagram - 4. 1. 5--01 



-- — - 




• ----—--—- 




i 










Notes 


Routine 
BLCL 


Label 


Ref 1 
a. 1. 1«| 

4 

! 
1 

1 


Rotes 


Routine 


Label 


Ref 




The directory information is 
read frcm the EPL. 


STPPTLD 




is scanned and the matching 
entry is flagged as being 
disabled. If no warm start 










Error messages that may be 
issued are DPH159ba, DFH1594, 
and/or 0FH1505. 






"•' 


information was supplied, the 
PCT is cold started and message 
DPH1508 is issued. 








l££J 


The disable flags for invalid 
transactions ara set. 


I SIPLDPCT 

I 


i 

i 
1 


[°B 


If the CSAC transaction cannot 
be found, message DFH159 7 is 
issued. Also, the disable flag 


Console 
WRITE 


CSACSCN 
















ON and the FPT pointer set to 








'(oi,; 


The keypomted PPT entry flag is 


Kejtcint 


PPThARM 


». I.isl 




zeros are checked in the PCT and 










checked for disabled status as 




1 




message DFH1510 is issued. 










it is read from the restart data 






1 














set. If the entry was keypointel 




















in a disabled condition, the PPT 




















is scanned and the matching 






i 














entry is flagged as being 






| 














disabled, if no warm start 






\ 














information was supplied, the 






| 














PPT is cold started, and 






1 














messages DPH15C7 and DPH1511 are 






! 














issued. 






i 












H 


The Jteypomted PCT entry flag is 


Reycoint 
REU 


SIPfiCTfc 


i 

4. 1. is| 














checked for disabled status as 




1 














it is read from the restart data 






| 














set. If the entry was keypomtei 






1 














in a disabled condition, the PCI 








._ 











initialize Program Control Pacilities (DFH5IC1) 



Diagram - a. 1.5-01 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OF IBM 



output 



PAGE 1 DP 



Prcn Overlay 
Supervisor 
a. 1.2 



[jL-js 



i 1 




/ 


\ 


h— 


..A 


\ 


/ 


•— — — 


— • 


Hestart 
Set 


Data 



— r 






Intraparti- 
tion Data 
Set 



1 1 ] Open Transient Data data \ 
sets and issue nessage j 



102 1 Perform warn start fcr 
Transient Data 



] j"j Initialize intrapartition ■ 



c 

r 



storage and issue message | 



E^El 



I To Overlay 
| Supervisor 
14.1.2 



Intraparti- 
tion Data 
Set 



Initialize Transient Data Facilities (DPHS1E1) 



Diagram - q. 1. b-01 



(01 1 Message DFH1500 is issued. 

(02? The keypcinted OCT entry is read 
from the restart data set. The 
OCT table is scanned and the 
keypointed information is stored 
in the matching entry. If no 
warm start information was 
supplied, the OCT is cold 
started and messages DFHISbO and 
DPHl5b1 are issued. 

}03J Message DPH1500 is issued. 

The control record itrack 
record 1) of intrapartition data 
set is read and no 
initialization is done if the 
control record can be read. 
(Track, is reserved for the 
control record.) 



Eoutinei Label 



Keyroint 

Conscle 
WHITE 



Routine | Label 



Initialize Transient Data Pacilities (CPHS3C1) 



Diagram - a. 1.b-01 
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LICENSED MATERIAL 



PROPERTY OP IBM 



Processing 



Proi Overlay 

Supervisor 

1.1.2 



{--J 



1^/ 



^>> 



> 



Initialize Pile Control Facilities (DPBSIE1) 



foij Perfora vara start for the 



1 021 Process VSaH shared ?CT 
entries. 



\03\ Open Pile Control data 
sets and issue aessage 

f 6 5] Initialize VSA* PCT 
entries 



Si 



To Overlay 
Supervisor 
1.1.2 



Buffer 


Pool 


1 \ 


Buffer 


poo i a 


! ! 


PPT 


i i 



Diagraa .- o. 1.7-ni 



Votes 


Foutine 


Label 


Ref 


Notes 


Routine 


Label 


Ref 


[01] The keypointed PCT entry is read 
f roa the restart data set. The 


Keypoint 
RPAD and 
Console 

WRITE 


PCTGETF 

AHD 

PCT1574 


a.i.m 










PCT table is then scanned and 














the keypointed control 
















inforaation is stored in the 
















aatching entry. If no wara start 
















inforaation is supplied, the PCT 
















is cold started, and aessages 
















DFB1573 and DFH1570.are issued. 
















(02j Scan the PCT for VS11H shared 
















entries. For each entry that is 
















found, calculate the buffer 
















ouaber, aaziaua key length, and 
















a running total of the string 
















value specified. 
















|0 3( Message DFB1500 is issued. 




PCTOPFH 


a. 1.17 










pjjj SH01CB aacro instruction is 

issued forkey length, logical 






























record length, and relative key 
















position. This inforaation is 
















stored in the PCT. 

















Initialize File Control Facilities (DPBSIB1) 



Diagraa - «. 1.7-01 
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LICENSED MATERIAL 



PROPERTY OF IBM 



Output 



PAGE 1 OP 1 



From Overlay 
Supervisor 
a. 1.2 

t-^4 



v / 



,-->S 



E--> 

> 



01 J open BTAN Terminal Control 
daia sees I 

[02] Open VTA» ACB 



[03i Perform warm start for the- 




Initialize Terminal Control Facilities (EFHS1P1) 



Diagram - 4. 1.8-01 



|[oT] Message DFH1500 is issued. 

If DPHTCP was not loaded, bypass 
loading of BTAM terminal control 
data sets. 

[02 ] Open VTAH ACB if generated. If 
open is not successful, issue 
message DJH157 2; fellow with 
message DPH150 5. Issue message 
DPH.1571 if both VTAM and BTAM 
are not available. 

foil The Keypointed TCT entry is read 
from the restart data set. The 
TCT is scanned and the 
keypointed status information is 
stored in the matching entry. If 
no warm start information was 
supplied, the TCI is cold 
started, and messages 0PH1577 
and DFH1575 are issued. 



Roctine Label 



Routine Label 



Initialize Terminal Control Facilities iCfESlFl) 



Diagram - a. 1.8-01 
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LICENSED MATERIAL 



PROPERTY OF IBM 



Prcm C* 
Supervi 
a. 1.2 



Tempora 
Storage 
Set 



Da 



J\ | DPHSIP: 



••I >l 
— 1/ I 



[01] Open Dump data set and 
issue message 



Obtain Temporary Storage 
Control interval buffers 
and issue message 



m 



Raad Temporary Storage 
control record 



-iFJ) 



->| |04j Format or extend Temporary- 
I Storage data set 



Write Temporary Storage 
control record 



Reopen Temporary Storage 
data set using TSP ACE 



1 

1 

1 

1 


i 

1 

L 


"l 1 

1 1 

1 1 

t * 




1 i 
1 1 

i 1 




!__._! 





1 — i:i 
! V 

|To Overlay 
I Supervisor 
14.1.2 



A 






A 



Initialize Temporary Storage Facilities (DFHSIG1) 



Diagram - 4. 1. 9-01 



Notes 



jot f Message DPH1500 is issued. 

[02] Message DPH1500 is issued. 

1 3 1 The first control interval of 
the Temporary Storage data set 
is reserved for control 
information. 

(04 | If a format error occurred, 
message 0fHl57b is issued. 
Format is done by writing dummy 
records to determine high 
relative byte address. 



Routine! Label 



Initialize Temporary Storage Facilities (DFESIG1) 



Diagram - 4. 1.9-01 
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01 j Load resident application 
modules and issue message 



< !••! >JDFHCSVC 



Page fix resident 
application and 
CICS/VS nucleus 

4. 1. 13 



|03j Attach Journal Control 

subtasJc and issue message 



i 04 j Build Temporary Storage 

and Transient Data bit I 

maps I 

1 

057 Build Temporary Storage | 

Request Parameter List j 

r-l " I 
|0bj Build Page Allocation Map 



I v 

(To Overlay 
j Supervisor 
14.1.2 



Dynamic 
Storage 

[Resident f 
j Applica- j 
Jtion | 
(programs | 

Dynamic 
Storage 

(Temporary { 
j Storage | 
jaliocation) 
(map f 




Transient l 
Data I 
allocation | 
map | 


Dynamic 
Storage 




Page j 
Allocation 1 
Map ( 







Build Dynamic Subpool iDPHSlHIj 



Diagram - 4.1 . 10-01 



| Notes 
i 
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Routine 
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|f02| Resident applications are fixed. 


DPHSVC ILDRESFX 


II 
1 1 

II 

1 1 
II 








j The CICS/vs nucleus may also be 










j fixed at this time. 

! 










1 If a page fix error occurs, 




i i 
1 1 








1 message DFH1582 is issued. 




i 
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1 1 04 f Message DFH1500 is issued. 
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Build Dynamic Subpool (DPHSIHI) 
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INPUT 



PROCESS 



OUTPUT 



Function 
Code 




From SI H1 
4.1.10 

• I 

• L__ N. 

• • • • y 




v 




D-n 




Parameter 
List 









Reg1 | 






ECB 






F1 Start Addr 




F2 End Addr +1 






F1, F2 are stand 
-ard OS paging 
SVC virtual 
subarea list flag 
bytes 

or 














Reg! 


















L^ 


OPEN/CLOSE 
file list 






TCB 






TCBUSER | 






SRX 






|SRXTCBU | 













DFHSIP 

| 01 J Set up parameter list and enable interrupts 

1 02 | Perform entry analysis and go to step 3, 5 or 6 accord- 
ing to function code 

03 I Issue operating system page-fix/free/load SVC 
1 04 | Wait for request completion 



I 05 1 Free SRB block in SQA storage 
I 06 I OPEN or CLOSE specified data sets 



To caller 



% 

To caller 



TCB 
TCBUSER 



Page Fix/Free Interface (DFHCSVC ) 



Diagram -4.1.10.1 -01 



| 01 | The system mask is set for VS1. (It is 
assumed to be set for VS2.) 



1 02 | Request codes in reg may be: 
Paging Request 
4 HPO release SRB block request 
8 OPEN files 
12 CLOSE files 

I I For MVS register forms of input to 
LEU the system paging SVC are used. The 
arguments to this SVC are loaded 
from the input parameter list 
(addressed by reg 1) where they were 
set up by the caller, usually by means 
of the DFHPAGE macro. ForSVS 
and VS1, where the multiple-page 
register form of paging SVC is not 
available, page load assumes that the 
input parameter list is already page 
fixed, and issues a virtual subarea 
list form of paging SVC. For page 
fix/free the register form is used and 
the request performed one page at a 
time 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


s 


For page fix requests a wait is issued, 








if necessary, until the fix is complete. 










For page load the caller is responsible 










for the wait. 










In either case, on return, register 15 










contains the standard operating system 










paging SVC return code (loaded from 










the ECB if a page fix load to wait). 








s 


For MVS/HPO the SRB in SQA storage 




CSVC300 




addressed by the TCBUSER field 










in the TCB is freed, and the TCBUSER 










field restored to its orginal value 








H 


An OPEN/CLOSE interface is provided 




CSVC400 




here for MVS/HPO to permit the 




CSVC500 






requests to be issued in superviser state, 










which is necessary to allow VSAM to 










fix control blocks for ICIP 









u Fix/Free Interface (DFHCSVC) 



Diagram -4.1.10.1-01 



490 



CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OF IBM 



Output 
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I Oil Establish STIXIT AB/PC 
interface 



[02j Establish time-of-aay 
clocks 

|03j Perform warn start for the— 
Temporary Storage unit 
table 

[04] Perform warm start for 
ICEs and AIOs, and 
initialize ICP 

[oil Perform warm start for ATP 



Obi Perform warm start for CSA— 



1 07 ) Wait for DPHTEOP subtask 
completion (Emergency 
restart only) 



Initialize Temporary Storage Control Blocks (0PHSII1) 



Diagram - 4.1.1 1-01 



Notes 


Routine 


Label 


Ref | 


Notes 


Routine 


Labsl 


Ref 


foTj 


STIXIT AB/PC macro instruction 


Conscle 
*RI1E 


DFHSII1B 


1 


H 


Restore the following control 








are issued. Message DPH1500 is 








fields in the CSA with the 










also issued. 






! 




Keypcinted CSA data: 








03 


Issue DPHTC TYPE=RESET to 
establish the time-of-day 
clocks. If an error occurs, 
issue message DFH154J. 






I 
1 
1 
1 
1 
1 

1 




CSAKCMT - Max. tasks 
CSASBTI - Region time 
CSAICBIC - Bunaway time int. 








El 


Bead Keypcinted Temporary 
Storage entry from Restart data 
set. Setup all associated P.BAs 
with the entry, then issue DPHIS 
TYPE=BESTOBE to have TSP rebuild 
the Temporary Storage unit 
table. 






1 

1 
1 

1 

1 

1 

1 

1 

1 

! 

| 




CSAICSIC - Stall tima int. 

CSASCNB - Storage cushion 
size 

CSAONQID - CSA uaig.ua ID 

CSABCMXT - ATP max. tasks 











Read Keypointed AID entries from 
Restart data set and build AID 
control blocks. Read Keypointed 






1 
1 
1 




CSABCMXB - ATP max. batch 










ICE entries from Restart data 
set and build ICE control 






1 
1 
| 


till 


If emergency restart and system 
log is on tape, wait foe 


Console 
WRITE 


CSAEXIT 






blocks. 






1 

! 




completion of DPHTEOP. If 
DPHTEOP subtask fails, issue 








[°0 


Read Keypointed ATP control 
blocks from Restart data set and 
build BCA and WRE control 
blocks. 






i 

1 
1 

! 
1 




message DFH1535. 









Initialize Temporary Storage Control Blccks (DPHSII1) 



Diagram - 4.1.1 1-01 
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PLT 


r~ "_xj 


i 
i 

i 

1 
( 

i 

L_ 1 



Link to OFHEUP (Emergency 
restart only) . 



09 | Open journal data sets 



j"Tb" 1 Link to DPHTBP if recovery | 



fill Load and execute 

post-initialization 
programs 



G™[ 



r. 

V 

To Overlay 



Initialize Temporary Storage Control Blocks (DPHSII1) 



Diagram - 4.1.11-02 



)08 j Issue OPHPC TYPE=LINK to DPHROP 
if emergency restart. If Link 
fails issue message DFH156t>. 

froi") Message DPH1500 is issued. 

(TT| flessages 0PH1578 and DFH1579 are 
issued. 



Initialize Temporary Storage Control Blocks iDFHSIII) 



Diagram - 4.1.1 1-02 
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INPUT 



PROCESS 



OUTPUT 





TCA 




TCAOCIC 
TCAOCTR 







From Overlay 

Supervisor 

4.1.2 



=> 



DFHSIP: 

J Oij Open Restart data set and issue message 

I 02 j Write track capacity record 

| 03 | Pre-format the Restart data set 

04 Write the control record 



05 Open ICIP files 



<n^ 



DFHOC Open macro 



EX>. 




4. 1. 12. 1 



=> 





Q 

Restart Data 
Set 

TCA 






TCAOCIC 




TCAOCTR 






- 



Initialize Restart Data Set (DFHSIJ1) 



Diagram -4.1.12 -01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


|~q7] Messages DFH1500, DFH1506 and 
DFH1 504 are issued 

03 The block size specified in system 

generation of KPP is used to pre-format 
the Restart data set into fixed-length 
blocks of an undefined-length data set 

| Q5 | Message 'DFH1500-ICIP Files being 
opened' is issued 


Console 
WRITE 


RSDCLDST 
SIPEKAB 

AND 
EKPSYNAD 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Initialize Restart Data Set (DFHSIJ1) 



Diagram -4.1.12 -01 
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DFHSIP: 
foil Sa?e TCT start addres; 



[02 j Set up base register for 
Terainal Control 



Issue start-up message 



Start Up Terainal Control (DFHDCSA) 



-Hi 



Terainal 
Control's 

TCA 

[tcatcbF - ^] 



Diagraa - a. 1.12.1-01 



Notes 


fioutine 


Label 


Hef 


Notes 


Routine 


Label 


Per 


ft)3] Message D*il1500 is issued. 




DFHDCSEA 









Start Up Terminal Control (DFHDCSA) 
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[Nunber of 7 
j by tes J 



Storage Chopper 



i 

I 

\l\ 1\ J DFHSIP: 

' 1/ I 



Oil Save registers 



-> j j 02 j Round request to 
I doubleuords 



[03 j Obtain storage 



04 1 Restore registers 



PAGE 1 OP 1 



77777777777771 > 

... , 



i:l 



V 

To Caller 



Diagran - 4.1. 13-01 



J01j Save caller^s registers 

foJ] The storage is allocated by SIP 
Storage Ccntrcl is HOT called. 
If the request cannot ba 
satisfied, ABEHD code 1599 is 
issued. 

j04| All registers except Register 
renain unchanged. 



Storage Chopper 



Routine | Label 



Routine | Label i Ref 
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SICOM 

TIlLlST 1 | 

|System | 

Init. List | 



,.L — j\ 



DFHSIP: 
I 1 1 Save all registers 

foJ] Get required information 

j 03 | Restore registers 



*l 



I To Caller 
I 




Get Directory Information about a Program 



Diagram - 4.1 . 14-01 



Routine | Label 



2| An operating system LOAD with no 
text information is issued, 
pointing to the SI list which is 
an internal list in SIP. if the 
BLDL is unsuccessful and the 
program is not an application 
program, AEEND code 159b is 
issued. 



Get Directory Information about a Program 



Routine! Label 
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foT| Save registers 



1 02 j Get control infornation If 
necessary 

[ojj Find keypoint ID if 
necessary 

jb<*l Retrieve next logical 
record 



05 j Restore registers 



I 
1=1 



(sipukp ra [ 



Keypoint READ 



Diagram - 4.1.15-01 



1 02 { The conttcl record is read only 
for the first request. The 
infornation is placed in an area 
in the Keypoint prcgran. 

| 03) The Keypcint ID table is 

searched for GETFIBST requests 
only. (SICOfl is an internal 
coaaunication area in SIP.} 

i 04 | The keypcint records are 

deblocked and the next logical 
record is retrieved. 



BE 



Routinei Label Ref 



Keypoint READ 



Diagram - 4.1 . 15-01 



Section 2: Method of Operation 



497 



LICENSED MATERIAL — PROPERTY OF IBM 



Processing 



PAGE 1 OF 1 



SI LI ST 






SILISTTB 

OASO 

address 















DPHSIP: 
|oi| Save registers 

foJ] Issue OS/fS LOAD eacro 
instruction. 

)6a\ Post CICS/VS complete. 
[0«>] Bestore registers 



^l 



V 

lo Caller 











Load, 
■odule 











Program Loader 



Diagraa - 4.1. 16-01 



Rotes 


Routine 


Label 


Bef 


Hotes 


Routine 


Label 


Ref ' 



















fxefrae Loader 
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ISITMSGLV 

I Message | 
lev el J 



Processing 



••••I 5 



> 



DFHSIP: 
[oTl Save registers 

,02| Checlc the message level 
indicator and write the 
message 

i 031 Restore registers 



PAGE 1 OF 1 



f~ 



/!/ >-7) 
1 v / // 

I s — -v 



Console 



Console WRITE 



Diagram - 4.1 . 17-01 



Notes 



02 | If the nessage level is zero, no 
message is written. The message 
is written only if the message 
level is one. 

The message level is identified 
in the SIT. 



Routine| Label 

I 



Console WRITE 
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System 
Termination 

1.2.0 



Determine Type} lLoafl 

of Shutdown I 1 Transaction i 

^l2* 1 J l List Tab l e « * LT ' 



Load Prograa 
List Table, PLT 



Execute PLT 
Prograa 



Break 

• Storage Chains j 



Pinal 
Processing 



Change Task 
Status 

U.2.4.T 



Systea Teraioation 



Diagraa - 4.2-01 
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CSt.1 SHOTCN | 



ra i 

|.i <\ | DPHSTP: 

— <l >l 



1 , / 



foil Determine the type of the 
shutdown 

102 1 Load the Transaction List 
Table, XLT 

1 03 1 Load the Program List 
Table, PLT 

1 04 I Quiesce terminal activity 



A. Wait to be the only 
task in the system 

l 5 1 Execute the programs in 
the first portion of the 
PLT 

jObj Cancel exits and break 
storage chains 

107 | Execute the programs in 

the second portion of the 
PLT 

foi"] Perform final processing 



I w 

|TO OS/VS 




System Termination Overview 



Diagram - 4. 2. 0-01 




Ref 
4. 2. 1 

5TXLTLD 14. 2. 2 

I 

STPLTLD 14.2.3 



4. 2.4 

4. 2.4. 
1 

4. 2.5 



System Termination Overview 



Diagram - 4. 2.0-01 
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TIOA 

["tioatdl" I 

Data I 

{length j 



Determine Type of Shutdown 



Processing 



Output 
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0PHS1P: 
[oil Prevent runaway and stall 



(02 j Determine the type of 
shutdown 

foX] Set indicators and 
response codes 

| pq] Process immediate shutdown 
reguests 

A. Give the task the 

highest priority value 



77777777777771 > 



Ej/ 



M> 



cancel ABIND exits 
and break storage 
chains 

4.2. b 



V 

To 4.2.2 



TCASVflID 
Service 
module ID 



TCAPOHGI 

Task purge 
indicator 



1CSASSI2 
jSystem 
(status 
jind. 



Diagram - 4. 2. 1-01 



Notes 



1 02 1 If the data length is zero, 

i.e., the shutdown type was not 
supplied, the operator is asked 
(by message DPH170 0) to supply 

it. 

[Pi] If the shutdown is not 

immediate, the busy-switch is 
set. 

One of aessages DPH1701, 
DPH1702, DFH170J, or DFH1704 IS 
sent to the operator 



Determine Type of Shutdown 
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Prca 4.2.1 



\f 



JSITXLTSP 
JILT suffi 



Address of 

loaded 

module 



L___ _ j\ 



i Oil Initialize the XLT address__j \ 
field 



[ 02 j Determine which XLT to 
load 



] 0J) Load the XLT 

)04J Save the XLT address 



2z{>smzz{> 



777777777777, 



72(>B 



^l 



V 

To 4.2.J 



CSA 






CSftTLTRA 
address 




TCA 






TCAPCPI 
Prograa ID 











Load Transaction List Table, XLT 



Diagram - 4. 2. 2-01 



I Notes 


Routine 


Label 


Ref 


| Notes 
I 


Routine 


Label 


Ref 


I joij The XLT address field is set tc 
1 zero. 




STXLTLD 




t 
i 








1 [02| The XLT suffix supplied in the 

I shutdown reguest deter nines 

1 which XLT to lead. If no suffix 

1 vas given, the one specified by 

1 the XLT= operand of the DPHSIT 

i is used. 

1 








I 
I 

! 

i 
i 
i 

i 








I If XLT-NO was specified, i.e., 
1 no table was supplied, the XLT 
1 load is bypassed. 








i 








j [oTj If the table was not found, 
( nessage DPH1750 is issued. 

! 
! 

| 




STXLTLD1 




! 

i 

i 

i 

! 

I 








i 
I 
1 

1 

1 
I 

I . . . . 








I 
1 

1 

1 
1 

1 
1 
1 









Load Transaction List Table, XLT 
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lPrcm q.2.J 



1\ 



TCAPCLA j 
Address of | 
loaded j 

module , [ 






I Oil Initialize the PLT address.^ V ^, r^t i _,_,] \ 
field 



;s IV nn I V 

ZZt/lillilSf,' 



! 02 j Determine which PLT to 



|03l Load the PLT 



|04| Save the PLT address 



! //I > 



22<>0 
! 

V 

TO 4.2.4 



DPHSTP 


1 

I 


ISTPLTAD 

(PLT 

l address 

TCA 


j 

i 


Itcapcpi 
j Program ID 


| 




1 

1 
1 

1 

! 
i 

i 

i 

i 

i 

i 
i 



Load Program List Table, PLT 



Diagram - 4. 2. 3-01 



| 1 l The PLT address field is set to 
zero. 

|07 | The PLT suffix supplied in the 
shutdown request determines 
which PLT to load. If no suffix 
was given, the one specified by 
PLTSD= operand of the DPHSIT 
initialization request is used. 

If PLT=N0 was specified, i.e., 
no table was supplied, the PLT 
load is bypassed. 



1 03 j if the table was not found, 
oessage DFH1750 is issued. 



Load Program List Table, PLT 
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Processing 
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Prc« 4.2.3 



••••I > 
• ■ / 



Pcee the terainal and set 
indicators 



Halt to be _. 
only task In 
systei 



7777777777777^ > 



the | 
n the j 

4.2.4.1 j 



nil 
V 

.2.5 



H> 



CSASSI2 

Systen 

status 

indicator 



TCAPCAAA 
Pacility 
control 
address 



| TCTTECA I 
ITCA | 
[address j 



Quiesce Terminals 



Diagraa - 4. 2.4-01 



[01] The fields belonging to the 

freed teninal are set to zero. 
The terainal quiesce indicator 
is turned on. 



Routine Label Ref 



Routine Label Ref 



Quiesce Terminals 



Diagram - 4. 2. 4-01 
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{tcakctta ~"j 

JTask ID J 



Prcm 4.2.4 



■••••I > 



. > 



CSAKCCT 
I Task 
laccumlator 



—I 



> 



Change Task Status 



■ 1 1 Give task the lowest 
priority value 



[021 Count the Journal Control 
tasks 



j 03 j Determine which tasks 
remain 



lOoj Wait for tasks to 
terminate 



# 



7/77777777/ A 



< (••! > KCP 1.1.0 



-vd 



CSAKCNAC 
KCP entry 
address 



Diagram - 4. 2. 4. 1-01 



[Oli The priority value is set to 
zero tc lake this task, i.e.. 
System Termination, the last 
task in the system. 



E3 



The active TCA chain and the 
suspended TCA chain are scanned. 
Bach task having JJJ as its ID 
is counted. 

If only the System Termination 
task and Journal Control tasks 
remain, i.e., the value 
calculated in Step 2 eguals the 
value accumulated in CSAKCTT, no 
WAIT is issued. 



[04] If any tasks other than Journal 
Control tasks remain, the ECBs 
posted fcy Task Control for CICS 
DETACH reguests are turned off 
and a WAIT is issued. When the 
WAIT is posted complete, this 
routine is re-entered. 



Change Task Status 



Diagram - 4.2. 4. 1-01 



506 



CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL — PROPERTY OF IBM 



INPUT 



Execute PLT Program 



PROCESS 



OUTPUT 




Set ABEND exit for the PLT 
programs 



02 Link to PLT programs 



Cancel ABEND exit for the 
PLT programs 



To 4.2.6 or 
4.2.7 



Diagram - 4.2.5-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 




01 


The PLT, if one exists, may be 
divided into two portions. 










02 


A Program Control LINK is 
issued. If a program error 
occurs, message DFH1780 is 
issued. If a program is not 
found, message DFH1752 is 
issued. The linking stops either 
when the DFHDELIM program is 
encountered or when the end of 
the PLT is reached. 




STPLTLNK 
for 
first 
portion 

STPLT2 
for 

second 
portion 






The above processing is 
performed twice consecutively, 
once for each portion. If no 
table was loaded, this 
processing is bypassed. If only 
one portion exists, this 
processing is performed only 
once. 










03 












04 


After executing the first 
portion of the PLT programs, the 
exit is to Chart 4.2.6. 










After executing the second 









Execute PLT Program 



portion of the PLT programs, the 
exit is to Chart 4.2.7. 



REFERENCE 
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rPrcm 4.2. 1 or 



:L.s 



r CSAOPFLA 
Optional 
Peatures 
List 



IcSAICEBA | | 



j address 



CSAAIDBA 
| AID Beg 
(address 



■ fcSAATP*" j 
[ATP*^~e xt | 



CSAELABA 
BCA - Beg 
address 



E--> 



~->0 



01| Break storage chains 



zzzzzzzzzzzzzC/ 



Process immediate shutdown 
reguests 



jOJJ Process non-*imaediate 
shutdown reguests 

A. Prevent nev input 

B. Halt for the completion 
cf all pending output 
events 



ITo 4.2.7 



7777777777, 



r 



\EE& 








ICA-TWA 




Saved i 
addresses j 


CSA 




CSASSI2 
System j 
status | 
indicator | 





Cancel Exits and Break Storage Chains 



Oiagran - 4. 2. t>-01 



Routine/ Label Ref } 



Notes 



(6'Tf The starting addresses of the 
BCA, AIC, and ICE chains are 
saved in the master terminals 
TwA* The original pointers are 
then set tc zeros. 

Joij The ignore input switch is set 
to prevent new inputs. 

When Terminal Control has served 
its last output, it posts this 
in the CSA. 



Routine Label Ref 



Cancel Exits and Break Storage Chains 
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fcSAKPNAC 
IKPP entry 
jaddress 



Pinal Processing 



f:Uv 

....I > 
« 1/ 



DPHSTP: 

foil 



< |>«| > STDLIDHN 



I Shutdown OL/I 
[facilities 



OJ Prepare to get statistics 



Get statistics 



05 { Cancel SPIE and STAB exits 



foZ] Close system and user file. 
I — — « If shutdown is immediate 
bypass VTAM close. 

fo 7 1 Dump if so requested 



1=1 
I V 

I os/vs 



(tcapcaaa I 
1 Facility 
(Control 
(address 



Diagram - a. 2. 7-01 



(01; A File Control TYPEfDL/I,(JNLD is 
issued. 

[oil A Program Control LINK is issued 
for DFHJCSDJ. 

[oTJ The Pacility Control address is 
set to zero. It is used to 
indicate all statistics. 

1 04 1 A Progran Control LINK is issued 
for DFHSTKC. 

}0t>j A warn Keypoint is requested. 
Opon return, one of the 
following messages is issued: 
DPH1790, DPH1792, DPH1794, or 
DPH1790. 

J 07 1 If a dump was requested, message 
OPH1798 is issued. If a dump was 
not requested, message DPH1799 
is issued. 



Pinal Processing 



Diagram - 4. 2. 7-01 
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1 1 i Per fori general OS/VS 
housekeeping 



[02 j OS/OPEN input and output 
data s-ets 



OJj Read and process the input. 



ZZ77777777//I 
I 







sVX > 



fbV] OS /CLOSE I data sets and 

return to operating system 



V 

To OS/VS 











Data Set 
to be used 
as input 
toy * 
assembler 











HLL Preprocessor 



Diagram - 4. j-01 



Notes 


Roctine 


Label 


Ref 


Notes 


Routine 


Label 


Ref 


G3- 




DFHPRNA 




found, the END statement is 
written. 








(E 




OOCPBP02 












[Qjj The OPSI byte is checked to see 
if the •strip 1 function is 




READ 

DFHOPEN 

PRSTRIPN 












desired. If so 81 byte input is 
















converted to 80 byte output. The 
















first lb columns are scanned for 
















DPH or CALL. 
















If the input is not a CICS macro 
















instruction or a DL/i call, the 
















source record and REPRO are 
















written. 
















DL/I calls are changed to CICS 




NOTCICS 












calls, and REPRO and a new 
















source record are punched. 
















CICS macro instructions are left 




CICS 












unchanged, unless INiTlflG or 
















CTLCHAB are found. In this case. 
















the hex code is converted to 
















decimal for ease of 
















manipulation. 
















|0»] whan the end of the input is 




EOD or 
PHSTRIPI 













ILL ffrmprocmaior 
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Command 
Translator 



4.3A.1 



Scan Input 
Text 



4.3A.2 



Tokenize 
Input String 



4.3A.3 



Analyze 
Command 



4.3A.4 



Process 

Command 

Options 

4.3A.5 



Generate 

Replacement 

Text 

4.3A.6 



Visual Index — Command Translator 



Diagram - 4.3A.0-01 
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INPUT 



FROM SYSTEM PROCESS 



OUTPUT 









INPUT 
data set 







:> 



=> 



DFHECP: 
DFHEPP: 



04 



06 



Perform general system housekeeping and initialization. 



Open INPUT, PUNCH and LISTING data sets. 



Process options. 



Print options, if required. 



qJH Process start of program. 
Scan input text. 



OXH 



SCAN INPUT TEXT 
4.3A.2 



Hyf] Print options, if required. 

Print cross-reference, if required. 



08 



09 



LlH 



Print diagnostic messages. 



Close data sets. 



Return to system. 



^ 



^> 



Command Translator 



1 



To system 











LISTING 
data set 












PUNCH 
data set 











Diagram 4.3A.1-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





System housekeeping 

1 ) Obtain all storage available. 

2) Determine time and date. 

3) Set up error exit routine. 


DFHEN001 









If LISTING data set cannot be opened 
write' to operator (OS only) and abend. 
If any data set cannot be opened 
terminate translation. 


DFHEN315 









Options derived from 

1) EXEC card (OS only). 

2) "PROCESS or CBL cards. 
When all options have been collected 
they are checked for consistency. 


DFHEN005 
DFHEN007 
DFHEN008 









Options printed at head of listing for 
PL/I if OPTIONS option set. 


DFHEN009 









For PL/I if input source start with a 
procedure statement specifying OPTIONS 
(MAIN) then an extra parameter is inserted 
at beginning of parameter list and a % 
INCLUDE statement generated to include 
the EIB definition. 

For COBOL if input source starts with 
IDENTIFICATION DIVISION then 
extra parameters are inserted in the 
linkage section and a COPY statement 
included in the working storage 
section. 


DFHEN010 









Options printed after input source for 
COBOL. 


DFHEN009 









Cross-reference of all functions 
correctly used is printed if XREF 
option set. 


DFHEN025 







NOTES 







Diagnostic messages of severity greater 
or equal to. FLAG value are printed. 
For PL/I they are sorted by severity 
order. For both PL/I and COBOL they 
are printed in lexical order. 
For Assembler they are included as , 
comments in the output, immediately 
following the commands to which they 
apply. They then appear as part of the 
assembly listing. 

Close data sets. 



For OS only a return code is generated 
according to highest level diagnostic 
issued. All storage is released. 



DFHEN415 



REFERENCE 



Command Translator 
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INPUT 



PROCESS 



OUTPUT 



I/O buffer 



Replacement 
text 








Extract each 


atom' in input text 




K 


<n> 






Tokenize 
Input Text 


4.3A.3 

When 'EXEC or 'EXECUTE' found 
analyze the command 




CO 






Analyze 
command 


4.3A.4 
Generate replacement text for the command 


CX> 






Generate 
replacement text 




4.3A.6 




Insert replacement text into I/O buffer in place of 


> 


EXEC CICS command. 















BUF 




I/O buffer 









Scan Input Text 



Diagram 4.3A.2-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


H 


Input text regarded as a contiguous 


SCANTXT 






sequence of 'atoms' Read-in routine 










copes with Cobol continuation con- 










ventions. NOTE statements and NOTE 










paragraphs must not be searched for 










'EXEC or 'EXECUTE' 










For Assembler only complete EXEC 










commands are placed in BUF and 










tokenized. Other text is separately 










analyzed. 








@ 


'EXEC may or may not be followed by 


DFHEN019 






'CICS'. If 'CICS' appears then analysis 










successful even if command is to be 










deleted. If 'CICS' does not appear then 










analysis fails and no change is made to 










I/O buffer. 











If analysis successful generate replacement 


DFHEN021 






text for command analysed. 











Changed I/O buffer will be punched out 


DFHEN018 






when next card read in or when end of 










file encontered. 










All text is maintained as card images 










for Assembler. Whenever analysis of a 










series of cards is complete they are 










punched out. The replacement string 










is also punched out directly without 










being placed in BUF. Diagnostics, if 










any, are then generated and punched out. 









ROUTINE LABEL REFERENCE 



Scan Input Text 
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INPUT 



PROCESS 



OUTPUT 




I 01 I Analyze text in I/O buffer starting at current cursor 
' — -* position to extract next atom. 



[02J 

nsi 



At end of I/O buffer obtain more input. 
Print card read. 



I 04 If not analyzing an EXEC CICS command punch 

' * onrrant I/O hi rffar nnntpntc 



current I/O buffer contents. 



I 05 1 Concatenate card into I/O buffer. 



=> 



:> 



LISTING 
data set 



PUNCH 
data set 



I/O buffer 



Tokenize Input String 



Diagram 4.3A.3-01 



NOTES 


ROUTINE 


LABEL 
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Blanks and comments are skipped over. 


DFHEN011 






If atomization is successful the starting 










point and ending point of the atom are 










noted together with the atom type. The 










cursor is moved to the end of the atom. 










For Assembler this is all the atomization 










routine does. It does not control input 










and output of text. When the routine 










attempts to look beyond the end of 










BUF a condition code is set and return 










is made to the caller. 








@ 


When the atomization routine attempts 


DFHEN014 






to access the first character beyond the 










end of the I/O buffer the read-in 










routine is invoked to provide more 










input. 








® 


If more input is required and is available 
the next card is read in and a statement 
identifier is generated for this card. If a 
source listing is required then the statement 
identifier and card image are printed. 
If not analyzing update current statement 
identifier. 


DFHEN015 
DFHEN115 









If not EXEC command there is no further 


DFHEN017 






use for the contents of the I/O buffer 










which are therefore formatted into card 










images and punched out. 








@ 


Continuation conventions are dealt 


DFHEN215 






with so that contents pf card data 










area can be concatenated into I/O 










buffer to provide a contiguous data 










stream so that atomization can 










continue from where it left off. 









Tokenize Input String 
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INPUT 






PROCESS 












1 1 Check that EXEC CICS command has been found. 

r~T| Check that verb is valid and locate corresponding 
LEU table of adverbs. 

(TT1 Scan entire statement noting if adverb found.. 


BUF 






I/O buffer 




VBINFO 






Verb 

information 

table 




ADVINFO 






Adverb 

information 

table 








1 1 Locate function information table. 

[04j 

1 1 Rescan request analyzing options. 




<n> 






Process options 
4.3A.5. 


rrr~] Check options processing completed successfully. 
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OUTPUT 



:> 











FNPTR 




pointer to 
function 
information 
table 









Analyze Command 



Diagram 4.3A.4-01 







Once EXEC CICS found routine com- 
mitted to successful analysis 



Check verb in verb table and is supported 
by this version of the translator. If verb 
not found then attempt spelling correction. 



The whole of the EXEC CICS command 
up to a correct command delimiter is 
scanned to ensure that whole statement 
is held as a contigious unmovable string 
in the input buffer. During the scan 
each option is checked against allowed 
adverbs list until a match is found. No 
spelling correction is done during this 
process. 

For Assembler there is no delimiter 
but the whole command and only the 
command is already in the buffer. 



The verb-adverb combination uniquely 
defines a function information table 
which completely describes the allowed 
syntax for the command. 



The EXEC CICS command is now 
rescan ned noting options and argument 
values. 



If options processing fails then command 
is deleted. 



ROUTINE LABEL REFERENCE 



Analyze Command 
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INPUT 



PROCESS 



OUTPUT 















Pick up next word in command 

Search table of keywords and options for a match 

For a keyword operand analyze and note keyword 
argument 

Check for inconsistencies between this keyword/option 
and keywords/options already processed. 

Set bit in option bit strip to note that this keyword/ 
option appears. 


I 


BUF | 










FNINFO 






Function 

Information 

Table 








FNDSCR 


Function 

Description 

Structure 


















ARGVALS 




Argument 

value 

information 







=> 











ARGVAUS 




Argument 

value 

information 










FNDSCR 




Function 

description 

structure 









Process Command Options 



Diagram 4.3A.5-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





If next atom in text is not an identifier 
or statement delimiter an error has 
occurred. 


DFHEN020 









If no option matches then spelling 
correction is attempted. 
If a match is found check that corres- 
ponding option or keyword is supported 
by this version of translator 


SRCHOPT 









If option has associated argument 
Note 1) value of argument 

2) syntactic type of argument 

3) what keyword sets this 
argument 











Function information table contains a 
list of pairs of options which are 
mutually exclusive. This list is scanned 
to see if current option keyword appears. 
If it does the option which is forbidden 
is examined and if it has already been 
noted as appearing then the current 
option is ignored. 


CHKNIM 









For an option that sets an option bit 
check that the appropriate bit has not 
already been set to opposite value by 
another option that has already been 
processed. If it has then ignore this' 
option. If not then set bit to appropriate 
value and note which option set the bit. 

If next atom in text is not an identifier 
or statement delimiter a system error 
has occurred. 









Process Command Options 
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OUTPUT 



Function 

Information 

Table 



ARGVALS 



Argument 

value 

information 



Function 

description 

structure 



:0 



:> 



ITn Invoke special case code if required. 



Scan list of arguments found to check 
all present and correct 



Generate call to appropriate entry point. 



Generate argument zero specifying function required, 
arguments set, options set. 



Generate rest of argument list. 



I 05 I If generation process fails then the EXEC CICS 
' ' statement is simply deleted. 



=> 











REPL 




Replacement 
string 









Generate Replacement Text 



Diagram 4.3A.6-01 



NOTES 



The function information table contains 
an entry point for special case code 
routine for this function. These entry 
points are all entry points to a single 
module which contains all the special 
case code 



The function information table contains 
an argument description list which specifies 
which arguments must appear in the 
call statement This list is scanned in 
reverse order comparing with the 
arguments found to determine how 
many arguments must appear in the 
CALL statement 

The argument description list is then 
scaned forward; 

A. To check that all arguments that 
must exist do exist 

B. To default arguments that are 
optional and do not exist, 

C To check that mutually dependent 
arguments have been specified, 

D. To give error messages for man- 
datory keyword arguments, that are 
missing. 



The generated call statement is built up 
in an adjustable length character string 
variable, beginning with 'call entry-point'. 
For Assembler a macro DFHEICAL 
is generated, with two sub-lists. The 
first is a list of codes which indicates 
what Assembler instructions should 
be generated by DFflEICAL for each 
argument 



ROUTINE 



DFHEN021 
DFHEN022 



Generate Replacement Text 



Argument zero consists of 

1 . a 2-byte encoding of the function 
required 

2. a 24-bit bitstrip which specifies 
which arguments are genuine and which 
arguments are merely place holders 

3. a bitstrip containing option 
settings. 



The whole is represented by a character 
string argument, or for Assembler a 
hexadecimal string argument. 

Each argument, which has already been 
evaluated and checked for consistency, 
is generated into the replacement string 



Generation may fail because; 

1. analysis failed 

2. inconsistency found between 
arguments 

3. mandatory argument missing 
For Assembler the replacement string is 
formatted and punched out. 



REFERENCE 



Section 2 : Method of Operation 



Diagram 4.3A.6-01 

517 



LICENSED MATERIAL 
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Processing 



) Prcn , OS/VS 



:L, 



]••••! > 



ID fiecord 
Data Type 



Data 
Length 



0=0 



0- 



output 



PAGE 1 OP 1 



)01j Deteralne device type and 
spacxng reguireaents 

J02J Deteralne record type . 

| 03 ] For Bat page heading 

J04.| Poraat data type heading - 

J 05| Poraat duplicate lines 

| Ob] Poraat data lines 

A.- Convert to Hezadeclaal 

B. Calculate addresses and 
dlsplaceaents 






i 



Exit to Systea 



Page Reading 




Indicative 
info. 




Datatype 
Beading 






Address 
and Length 




Duplicate 
Lines Ind. 






Address 
and 

Displace- 
ment 




Data Lines 






Address 
and 

Displace- 
ment 




Hexadec- 
imal 
Represent a 


Character 

Bepresenta 

tidn 









Duap Otility Prcgraa 



Diagraa - «.a-01 



Botes 



[OH When DJBBOP is assembled to 
support more than one device 
type, DPBDOP sends a message to 
the operator console for 
defining the input device type. 
The OPS! byte is integrated to 
deteralne if single spacing is 
required. 



Routine Label 



Routine Label 



Damp Otility Prograa 



Diagram - ••t-Ot 
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] Proa Os/VS 



Processing 



Output 
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Hbi>l 



rojtf) 



]0l| Open aessage flata set and 
console 

A. ,If open not successful, 
write aessage and 
terminate prograa 

I 02 j Write beading Message 



Ei>^ 



|o3| Get storage for 32K and 
clear area to binary zero 

A. .If storage is not 
available, write 
aessage and terninate 
prograa 

Too] Open log voluae 



e3>^ 



Ej>igi 



A. .If open not saccessfal, 
write aessage and 
terainate prograa 



Poraat Tape 




Diagraa - a. 5-01 



"' ""' ' " 

Rotes 


Pontine 


Label 


Ref 


Potes 


Pontine 


Label 


Pef 


foT] Check DCBOPLGS for XM0« - 
successful open 








i 








A. . DPH6101I unable to open 


" 






f 








aessage data set (prograaaer) 
















J02J DPH6100 foraat tape (aessage 
















data set) 


i 






' 








foil Issue an OS/YS conflltion GBTHAIH 




ILGETSTG 












for 32K of storage. .Check return 






' 










code in register 15 for GBTHAIK 










i 






status. 










i 
i 






A. DPH6102 unable to allocate 




( 












working storage - prograa 














aborted (aessage data set) 










i 






foo] Check DCBOPLGS for IMOi - 


( 


ILOPBLOG 












successful open. . 


( 


l 












A. DPH6103 unable to open log 


i 








i 
i 






volaae - prograa aborted 


< 








i 






(aessage data set} 


' 
















i 
( 

( 


( 






i 

i 
( 

' 

i 


i 





Poraat Tape 
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05 j Write record on log volume 

A. If I/O successful, 
continue write 
operation 

B. If I/O not successful, 
check status in the DTF 

C. If status is unit 
exception, go to EOV 
handler 

D. If status is unit 
check, go to I/O error 
handler 

E. If status is neither 
unit exception or 
check, go to 
unrecoverable handler 

[Ob] I/O error - issue error 
message to both operator 
and message data set. 

Close log volume and 
reguest for more volumes 

A. If response is I, 

reopen log volume ' 




Format Tape 



Diagram - a. 5-02 



EE 



write 3^K binary zeros record to 
log data set. Check posted 
status in D£C* (ILDECB) for a 
X'.7P' (successful I/O). 

If post status is not X'7F' r 
locate address o£ IOB froa the 
DiCi and checx status of CSH. 



Routine Label 



ILSINBTti 



Format Tape 



Diagram - 4.5-02 
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B. If response is N, 
terminate prograa 


Eyfoii 


1071-1 > 
V -1/ 


ED 


Unrecoverable error - 
issue nessage and 
terminate program 


1 


loaNi > 


G3 


EOV - increment volume 


i ( 


, 



I — -I— * ^ 

|09|«| > 
V -1/ 



count request for more 
volumes 

A. If response is 1, 
reopen log volume 

B. If response is N, 
terminate program 

09J Issue termination message 






•l 



— d:l 
V 

Exit to OS/VS 




Format Tape 



Diagram - 4.5-03 



ED 



Load sense data xxoe the IOB and 
set up sense data as an index 
value into table ILBHBTXT to 
insert error text into the error 
message. 

DPB61041 discontinued processing 
on current log tolume due to - 
XXXXXXXX - error, proceeding to 
next volume (operator and 
message data set) 

DPB6110* aore volumes to o« 
initialized - X or M (operator) 



foTJ DPH6105 unrecoverable I/'O error 
occurred - program ahorted 
(message data set) 



03 



Increment field ILTOLCMT oy 1. 
This field is used to keep a 
count of volumes that have Been 
successfully initialized. 

0PU6110A more volumes to ne 
initialized - l or M (operator) 



09 1 Convert volume count in to 



termination aessage DFH6199. 
Close message and log data sets 
and return to OS/VS. 

DFH6199 HNHH voluae(s) 
initialized - log initialized 
completed (message data set) 



Rou+m« Label 



Pormat Tape 



Diagram - u. 5-03 
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Input 



Tape End of File 



i i 
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INPOT AREA) 



DPHTEOP: 
|oT] Open console DTP 

foTj Krite heading message 



jOdj Establish addressability 
to label and log record 
input area 

[oT] Open log voluae 



05] Bead vcluie label 



ED 



Save volume label 



L_ 



Ej>isji 



H* 



INPOT AREA 



jIMPOT AREA) 



INPOT AREA 



Diagraa - 4. t>. 1-01 



02) DPH2900I tape end of file 
program 



Tape End of File 
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[07j Write volume label to 
operator 

and verify label 



A. If response is Y 



[••"i N >roTl 

I---,/ V 
JTo 4.b.4 

[••"I N >roTi 



B. If response is N, issue | 
message | 

C. If response is Y, closer — J\ , — t 

r ]••! >104 

log I—-,/ V 



0. If response is N, issue 
message and terninate 



[Til Read record froa log 

volume (3) and search for 
. last valid record written 

Update record JCLR area if- 
record label valid 

A. If an I/O error occurs 
and the next reccrd 
read is valid, notify 
operator of this 
condition 

B. If response is 1, r 
update record JCL6 area*- 

C. If response is N, issue 
message and terminate 



ik> 



ii=:: 



•i >io7i 

-i/ v 



INPUT AREA1 



INPUT AREAI 



Tape End of File 



Diagram - 4. t>. 1-02 
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Notes 


Routine 


Label 


Ref 


1 

j Notes 


Rout-i.ne 


Label 


Ref 


[04] DFH290bI volume label 








j current label. 








verification (operator) 








1 An I/O error is indicated by 








DPH290 7I label information - 
volume number TYDDD/NNN run 
HH.MM. SS block hh. nn.ss 








1 testing the PTBSPSK field for a 
j X'02 1 . If the test proves to be 
| positive and the comparison 
1 between the volume label and the 








DPH2908A is log volume valid - Y 
or N 








1 next rec label after the I/O 
1 error had occurred is valid, a 














j valid I/O error has occurred and 








B. OPH2904A swap volume Y or N 
(operator) 








1 the information is presented to 
1 the operator and the PTBSPSH 
1 reset to indicate no error 








D. DPH2918 negative response to 








1 occurred. 








volume verification - program 
aborted 








1 A. DFH2905I I/O error on 

1 previous rec - next record 

1 label valid 








1 05 | Read log record and verify the 




FTSCHEOF 












record JCL to the volume JCL in 








1 DFH2907I label information - 








the following sequence: 
















- Volume creation date (JCLRVCD) 








1 DFH2909A continue processing 
1 - Y or N 








- Volume seguence iJCLRVSN) 








1 

C. DIH2910I I/O error occurred. 








- Run start time (JCLRRST) 








j program terminated 








If the fields are valid, update 




PTMOVBLK 




1 

1 








the record JCLR area with the 








1 

L _ _ ■ _ _ .. 









Tape End of Pile 



Diagram - 4. t>. 1-02 
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i 091 Verify last valid record 
label (FTCONV - 4. to. J) 
with operator (FTWTOB - 
4.b.4) 

A. If response is Y 

B. If response is N, issue 
message and exit 

[ 10] Backspace to record 

following the last valid 
record and close the log 
volume 

[TT] Terminate program 



hiylH] 



Tape End of Bile 



Diagram - 4. t>. 1-03 



I fob] A record is considered the last 

i valid record when: 

I 

I - two consecutive I/O errors 

I 

I occur 

I 

I 

I - unequal compare of the label 

I fields between the record JCL 

t and the volume JCL 

I 

I The record label is then written 

I to the operator for 

I verification. 

1 DPH291CI record label 

I verification 

I 
I 

| DFH2907I label information - 

I . etc. 

I 
I 

I DFH2912A is record label valid - 

\ Y or N 

I 

I B. DFH2913I neg rsp to record 

I label verification - program 

I aborted 

i 

I 

I j 07 | The amount of records to be 

I backspaced is kept in the field 



|08 j 0FH2901I successful completion 
DFHTEOP 



Routinei Label 



^ape End of File 



Diagram - 4. *>. 1-03 
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Tape End of File 



From l.fc. 1 






/ 
i 

PTDECB 
IOB 



I CSM 



1 



|02l«1 > 
V -i/ 



FTGETREC: | 

joi] Read record into input 

area and wait for | 

completion ' | 

A. If I/O was successful, | 
return to caller j 

B. If I/O unsuccessful, | 
check status condition | 



- If status is unit 
exception . 

- If status is unit 
check 



'as r _, 

[ — 1 >|02| 

f-*"I v >roTi 
*■—■ i/ v 



- If status is none of r — -»\ i — i 



the above 



[02] Handle EOD condition, 
close log volume and 
notify operator of 
condition 



A. If response is Y 



r^ J t s >rTo] 

N, issue •■ — -,/ V 



B. If response is 
message and exit 



[031 Check FTBSPSW if an I/O | 

error has already occurred | 



A. If an I/O error has 
already occurred 



|To 4.b 



i" 1 /^ 1 



INPUT AREAI 



Diagram - 4.6.2-01 



[01] Check error status in the DTP 
for type cf ertcr occurred. 

1 02 1 If error occurs during volume 
label processing issue: 

DFH2919I EOD - no volume label / 
invalid volume mounted 

DPH2914I EOD occurred - last 
record label verification 

DFH2907I label information ... 

DFH2915A is proper volume 
mounted - Y or N 

B. DFH2920I EOD occurred - 
request program terminated 

\03 X \ Check FTBSPSW for a previous I/O 
error. If qn error has 
previously occurred, go to 
verify last valid record with 
operator. If an error has not 
previously occurred, set up 
error condition in message 
DFH2905I and indicate error in 
FTBSPSW. Then read next record 



on log volume. 



Tape End of Pile 



Diagram - 4. t>. 2-01 
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Input. 



PAGE 2 OF 2 



V --1/ 



B. If an I/O error has not- 
cccurred, indicate 
first error. 

[oT} Write error message 



Tape End of File 



Diagram - 4.6.2-02 



|[04j DFH291t>I unrecoverable I/O error | 
I occurred - program terminated 



Routine! Label Ref 



Tape End of Pile 



_J l_ 



Diagram - 4. t>. 2-02 



526 



CICS/OS/VS Program Logic: Description 
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"lfroo <«.<>. 1 



Tape End of Jile 



ITU 



[ 01 j Convert the following 
fields to EBCDIC: 



and insert data into 
message DPH&207I 



[ 02 j Issue message to operator 
and return to caller 



Output 



PAGE 1 OP 1 



Diagram - a. b.3-01 



Notes 



01| Convert packed decimal to 

printable characters and insert 
values into message. 

E. DFH29C7I label information - 
volume number YYDDD/NNH run 
HH.MS.SS block HH.Hfl.SS 



02) See Note 1E. 



Routinei Label 



I I 



Tape End of File 
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Prcm 4.b. 1 



IDFHXXXXA. 



:xa. . j- 






J0 1 I issue message to operator 
and waat for response 

A. If response is Y, 
return to caller via 
register • PTLKAR' 

B. If response is N, 
return to caller via 
register 'PTLKAR «• «♦ 

C. If response is neither 
Y nor N, notify 
operator of invalid 
reply and reissue 
message 







Tape End of Pile 



Diagram - a. to. 4-01 



1 1 1 Anticipate invalid response frcm | 
operator: therefore save address | 
of caller message area passed to | 
this routine. 1 

; Issue message to operator and | 
wait for response. 

If response is neither Y nor N, 
insert invalid response 
character in message DFH2917I, 
issue message to operator, 
restore caller's message 
address, and reissue message. 

C. DPH29 17I incorrect reply - ? 



Tape End of File 



Diagram - 4. t>. 4-01 
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V 


37 

8 


o 


S 


ft 


CO 

3 





C 


P 




ro 


3 


•• 






O 




CO 








0) 


3 


3 


(0 




& 




a 





•8 

ft 


S3 



RUINITBR 

Initialization 

routine 

4.7.1 



RURDLOGR 
Read system 
log routine 

4.7.2 



RUPRUSER 
User update 
routine 

4.7.6 



RULABELR 
Label 

processing 
routine 4.7.3 



RUPRDBDR 
Date base 
update routine 
4.7.6.1 



RUPRLOGR 
Process data base 
user log 
record 4.7.6.3 



RUWRMSGR 



processing 
routine 4.7.6.2 



RUUTSTR 
Update TST 
Routine 

4.7.6.5 



RUDLIPRR 
DL/I Update 
Routine 

4.7.6.6 



RUUPDCTR 
DCT update 
routine 

4.7.5 



RUWRRSDR 
Write restart 
data set 

4.7.9 



RUSYNCHR 
Sync update 
routine 

4.7.4 



RUPRSOTR 
Start-of-task 
processing 
routine 4.7.8 



RUPRKPR 
Keypoint 
update routine 
4.7.7 



RUTERMR 
Termination 
routine 

4.7.10 



to 2 



RUWRSINR 
Statistics 
processing 
routine 4.7.11 



H 
O 

w 
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2 



o 
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LICENSE^ MATF.PT2XT. 



Processing 



Cut put 
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PrcD CfHSJE 




DFHROP: 




013 


Allocate storage for Sync 
Point, Dynamic, and 
Activity fables 

A. If storage is net 

allocated, issue error 
message and ABEND 




ED 


Allocate storage for 
Journal Control Area: 




ED 


Open log volume for 
backward reading 

A. If open fails, issue 
error message and 
terminate 




E3 










what log records are to be 


' 




recovered. Create backout 






tables. 

L 




;....nn 


^il 






V 

TO 4.7.2 




RUINITBR - Initialization Routine 



Diagram - 4. 7. 1-01 



Notes 


Routine 


Label 


Ref 


Notes 


Routine 


Label 


Ref 


[Olj Allocate 2K of storage for each 
table, initialize the first 4 
words of the table with the 
following pointers: 




ROINITBR 




factor in the JIDTAB table to 
prevent tfanching to the 
particular update processor. 
This causes branching to the 
user's update routine 








Word 1 - pointer to next block 








ROPROStR. 








of entries 








B. If recovery is to be 








Word 2 - pointer tc beginning of 
block 








performed, allocate 2K bytes 
of storage for backout 
tables. 








Word 5 - pointer to available 
















slot in the block 
















word m -: pointer tc last entry 
















in block 
















A. DPK28C4I... AEEND code 2804 
















© 
















A. DPH280iI... ABEND code 280J 








1 








[04] Scan option fields for X«04«, in 
















the SIT, indicating that 
















recovery should be performed. 
















A. If recovery is not to be 
















performed, zero the indexing 






— . i 











ROINITBR - initialization Routine 



Diagram - 4. 7. 1-01 
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laptt 



Processing 



Output. 
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Prcm a. 7. I 



(••••I ) 



[oTj Issue DFHJC macro. 

TYPE=GETB to r«ad log 
records 

A. If an I/O error cccurs, 
issue message and 
ternmate 

B. If end-of-file occurs, 
close volume and open 
for previous volume 

C. If any other errors 
occur, issue nessage 
and terminate 

[ 02] The system ID in field 
JCRSTRID cf the prefix 
portion of the log record 
is used as an index to 
branch to the appropriate 
update routine. See chart 
4.7. 











1 


p JJCRSTBID 

JIOTAB 
|IM0. 

R0BRT00 






JB XXXX 






] B XXXX 




IB XXXX 


. 









R0R0LOGR - Read Leg Routine 



Diagram - 4. 7.2-01 



A. DPH2801I... ABEND code 2801 
C. DFH2805I. .. ABEND code 2805 

[ 02] DSECT DfHJCR is used to overlay 
the log record. At location 
JCRSTRin ♦ 1 is the function ID 
that is utilized as an index 
value to retrieve another index 
value that is used to execute 
the appropriate branch 
instruction to the update 
processor. 



Routine Label 



RURDLOGR 



ROROLOGR - Read Log Routine 



Diagram - •». 7. 2-01 
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Block Label I » — —,/ 
Record | r — — J V 

(-—-pi / 



[oTj Verifies the block label 
to be in seguential 
descending order 

A. If not in sequence, 

issue error message and 
terainate 

fl. If in sequence, return 
to RORDLOGR 



EI 






V 

•4.7.2 



ROLABELR - Label Verlficationfioutine 



Diagram - 4. 7.3-01 



[oij The first block label data is 
saved in fields: 

- ROR0NTBE - run start time 

- RODATE - date of run 

- ROBLKTHE - time block record 
was written 

Thereof all other block label 
data is compared against this 
1 field. 

A. DFH2802I... ABEND code 2802 



Routine Label Ref 



ROLABELR - Latsl Verif icationRoutme 



Diagram - a. 7. i-01 
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Processing 



CI 

I . L , \ 

J\ 



IX'FT = 
(start of 
ISync 
I iSOSY) 

i x"«7~=™ 

I logical 
lend o£ 
Itask 
I (I.ECTK) 

IX'FS' = 
I physical 
lend of 
I task 

(FECTK) 



[oTj Check for type of Sync | 

record | 

I 

A. If EOTK l^nd-of-Task) , 

inserts pertinent | 

information into the | 

Sync Table | 

B. If SOSY | 
iStart-of-SyncJ , | 
searches 3ync Table for | 
match entry I 

C. If natch found, insert | 
entry into Dynamic | 
Table if required | 

D. If match not found, | 
perform no update | 

I 

[oij Checks for start-of-task ] 

iSOTK) indicator \ 

A. If SOTK, branch to | 

FUPESOTR | 



i:::: 



B. If not SOTK, exit via 



r— «\ 
j — l > 



ITASK ID 



I FLAGS 
ICOUNT 



RUSYNCHR - Sync Processing Routine 



Diagram - 4. 7. 4-01 



j 1 j When a SOSY record is found the 
Dynamic Table is scanned for a 
matching entry. This search is 
by task ID. The entry is 
inserted into the Dynamic Table 
if an entry is net found in the 
Dynamic Table with the same task 
ID. 

1 02 1 SOTK is determine by checking 

the prefix portion of the record 
in the fieia JCSPF1 for a X«02' 
or X»04« . 



I No 



ROSYNCHR - Sync Erocessirg Routine 



Diagram - 4. 7. 4-01 
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V -1/ 



[oJ] Checks for keypoint 
processed indication 

A. If processed, btanc 
ROTERMR 

B. If not processed, 
return to RORDLOGR 



. 1 \ 

[••••I > 

7a77Mo 
[••••I > 



RUSYNCHR - Sync Processitg Routine 



Diagram - a. 7. 4-02 









i 








Notes 


Routine 


Label 


Ref | 
j 


Motes 


Routine 


Label 


Ref 


fojj Keypoint processed is determine 
by check •EOSTATOS 1 byte for a 






1 
1 
1 
| 










X«02«. 






1 
1 
1 
1 
1 
1 
1 

I 
1 

( 

i 

1 










1 






i 

i 

i 

i 
i 

i 

i 
i 
i 

i 

• 

i 

i 

j 











RUSYNCHR - Sync Processing Routine 



Diagram - 4. 7. 4-02 
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Output 
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F.L« 



x«pai2« = 
logical 
purge task 



X»8112« = 

physical 

output, 



X«8212« = 
physical 
input 



Phys; 
tele 



X f 84l2« = 
physical 
purge 



DPHRUP: 
roTI Cht 



cks if logged DCT entry- 
part of a Sync sequence 

If part of Sync, scans 
Sync Table for Hatching 
entry by task ID 

If entry is founa, 
processes the logged 
DCT data 

If entry is not fcund, 
exits to ROPRSOTR 

If not part of Sync 
sequence, this 
indicates physical 
recovery and the DCT is 
updated 



ROOPDCTB - Update DCT Entry Routine 




If the logged DCT is part of the 
Sync sequence and a matching 
task ID is found in the Sync 
table, tte resident DCT table is 
search for the Batching 
destination ID. Depending on tbe 
type of record being processed, 
the appropriate TlBs are moved 
fron the legged record to the 
resident DCT entry. 

Por logical input task, the 
physical input pointer and the 
logical output pointer are 
retrieved and set in the 
resident DCT. 

For logical output task, the 
physical output pointer and the 
logical input pointer are set 
into the resident OCT. 

Eor physical recovery, the input 
pointer is recovered and gueue 
start is determined by gueue 
type. 

After tie entry has been 
completely processed, a X , 80 l is 
set in the input pointer of the 



Routine 


Label 




RUOPDCTR 




R0UPD100 




RUPD200 




RUUPDoOO 



DCT entry to prevent any further 
updates to the entry. 



ROUpnCTR - update DCT Entry Routine 



Diagram - «t. 7.5-01 
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jprcm a. 7. 2 



JCRS1RID | * -,/ 

contains: | r ■• ~*\ 

rz ' . *\* u t-~""I — y — " — ---"l/ 



user Log Update Routine (DPHRUP) 



foTj Test for user leg record. 
[02j Test for ARB user record. 



^ ■ •■ \ r— 

< |-»| >)R 



Process Log Record) 



4.7.8 



Diagram - 4. 7.6-01 



]01j The test for user log record is 
by testing the JCRSTRID-M 
location for X«00«, If the field 
is non-zero, this log record is 
not a user log record, but one 
narked as not to be recovered 
idetermined earlier in 
RUINITEH). 

foi] Test for user ASP record is CS KP 
in JCSPtRAN field or TCP in 
JCSPTASK of journal prefix. If 
any of these conditions are net 
and the end KP record has been 
processed but the KP previously 
flag is not set the record is 
written to the Restart Data Set. 

[03] BAL to R0PRLOGR routine to 
process user log record. 



Routine Label 



Routine Label 



User Log Update Routine iDPHRUP) 



Diagram - <4. 7. b-01 
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Processing 



PAGE 1 OP 



f?B0 ""TabIe~~ ]- 



.r— 






~j\|foT] Test fcr entry in dynamic 

I table. 

I 



I <' f\ >rH0PRLOGR 
I Si 1/ ' 



1 



(Scan table and j 
I 1 write to Restart. | 

j I tl b J 

~»\|[02] Test for entry in Pile 

I BacKout Table. 



03 j Update statistics aata. 



Data Base Update Routine (OPHhUP) 




Diagram - a. 7. t>. 1-01 



^0 1 1 BAL to RUPRLOGF routine to scan 
for Batching entry in Dynamic 
Table. Check for return code 
from RUPBLOGR. 

102 1 If return code is non-zero, scan 
Pile Backout Table iFBO) for 
match. If no entry is found, 
create an entry in FBO table. 

[o7| Update counters ty record type 
(i.e., write, add, read, update, 
etc.) . 



Routinei Label 
I 



Data Rase Update Routine iDPHRUP) 



Routine] Label 



Diagram - 4. 7. t>. 1-01 
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[jcstrid" 



X'8110« - 
Input asg 

X»8010« - 
All resync 
data 

X'PJIO* - 
Committed 
output asg 

X«F110« - 
output nsg 

X«F0 10« - 
Resync data 

X'8M10' - 

Positive 

response 



foTl Process Input flossage. 



02 | Process Output Message. 



|0d| Process positive response. 




Message Update Routine (DPAROPJ 



Diagram - 4. 7. t>. 2-01 



(bl| Scan Dynamic Table for matching 
entry. 

If nt)t found, write message 
to restart data set. 

' Scan ABC Table for Batching 
terainal entry and insert 
pertinent data. 

i02| Scan Sync Table for matching 
entry. 

If entry found, scan HBO 
tabic and insert pertinent 
lnforaation. 

If entry not found, exit. 

If not feotk indicator, write 
to Restart data set. 



|0ii Scan ABC table for matching 
terainal entry. 

If entry found, test for 
positive response bit. 

If set, exit. 



If not set, set positive 
response and reset awaiting 
indicator. 

If entry not found, execute 
entry in MBO Table and sst 
ewaiting indicator. 



Routine Label 



Message Update Routine (DPAROP) 



Diagraa - a. 7. t>. 2-01 
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[01 ] Scan Dynaaic Table for 
natciiing entry. 

J02J Write data basa or user 

log record to Restart Cata 
Set. 

[Oij Set return code. 



-r=: 



To 4.7.b 
a. 7.o. 1 




Process Data Ease/Oser Leg Becord iDPHROP) 



Diagraa - 4.7.0.3-01 



)01J Scan Dynaiic Table for Batching 
entry. If entry is not found, 
create entry. 

[02| If no end-of-tasK flag set in 
Dynaaic Table entry, write Log 
Becord to Restart data set. 



]03j Set non-zero return code if log 
record written to restart data 
set and return to calling 
routine. 



Routine Label Ref 



Process Data Base/Oser Leg Record (DPHFOE) 



JL. 



| Ref 



I 



Diagram - 4. 7. t>. i-01 
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1 1 j Process Temporary Storage 
sync record 



02 j Process update record 



1 


t% 




i 

1 


r— M \ 


:::::■....,,__ i " 



i i 




/ 


\ 


N_ 


-A 


\ 


/ 


•____ 


— • 


Restart 
Set 


Data 



R00TSTR - Update TST Routine 



Diagram - 4. 7. o. 5-01 



Scan sync table for Batching 
entry. If entry is found, scan 
the Temporary storage recovery 
table for matching entryi If 
entry is fcund and not marked 
processed, update data in entry 
and mark processed, if entry is 
not founds create entry and nark 
•processed*. 

scan dynamic table for matching 
task 10. If matchitg entry is 
found and eotk is set, exit. If 
EOTK, is not set, write record 
to restart data set. If entry is 
not found in dynamic table, 
create entry and write data 
record to restart data set. 



Routine | Label 



Routine Label 



KUUTSTR - Update TST Routine 



Diagram - ■». 7. o. 5-01 



540 



CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OP IBM 



X«07« = 
Termination 
X«C8« = 
Schedule 



RUDLIPRR - DL/I Update Routine 



i 1 l Process schedule or 
termination record 



[«] 



Process data records 
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nz:::'j 



/ 


\ 


h 


-A 


1 • — —_ 


\ 


/ 


• ____. 


— * 


Restart 
Set 


Data 



Diagram - 4. 7. t>.t>-01 



\ — " " 


r- "* "* ~ 


Notes 


Roctme 


Label 


Ref 


Notes 


Routine 


Label 


Ref 


J01J Termination Record: create entry 




RODLIPRR 












in DBO table if matching entry 
















cannot be found In the table. 
















A. Schedule Record: Create entry 




RUDL3000 












in CEO table if matching 
















entry cannot be found; nark 
















entry as • processed 1 . 
















1 [o 2] Data Records: check for entry in 


IRUDL5000 












DBO table narked processed*. If 


1 












* processed 1 r set , exit. 


1 












1 Otherwise, write data to restart 


i 












1 data set. if entry is not found 


1 












1 in DBO table, create entry and 


1 












1 write data to the Restart'Data 


1 












1 Set. 
1 

1 
1 

1 

j 

i 1 


1 

1 

1 
1 


- ' 











RUDLIPRR - DL/I Opdate Routine 



Diagram - 4.7. b.b-01 
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ROPRKPR - Keypoint Processing Routine 






[Oil Process activity keypoint ■ 
record updating the 
Dynamic or Activity tables 
and DCT 



v, 

1.7.10 



• « \ 

r 
L 

T' 

u 



c 



Diagram - «. 7. 7-01 



|01) If the first record read during 
an Activity. Keypoint sequence is 
not the end keypoint record* the 
keypoint records are not 
processed. 

Once the *end' reccrd has been 
established, the TCA, DCT, and 
TCT records are utilized to 
update the appropriate tables. 
When the start record is 
processed a flag (RUPKPPR) is 
set in field RCS1A1US to 
indicate that a keypoint has 
been processed and no further 
processing cf the keypoint 
records is necessary. 
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JCSFP1 

X«02« 

PEOIK, 

X«04« 

LEOTK 









r 



I Oil Is entered fron all update 
routines 

[02j Checks if SOTK is 

indicated in the logged 
record 

[oil Searches Dynamic Table for 
matching task entry 

I04J Inserts task entry into — 
Activity Table if required 

f oT) Checks for activity 
keypoint processed 



A. 


If processed, go 


to 






RUTERMR 




1 _ s 
14.7.10 

1477.2 

1 

1 

1 








B. 


If not processed, 
continue reading 


log 
















R0PRSOTR - Start -of -Task Processing Routine 
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Notes 


Routine 
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Ref 


f02J Checks the prefix field JCSPP1 


| ROPES OTH 












for a X , C2 I physical 














start-of-task iPSOTK) or X'04* 














logical start-of-task iLSOTK) . 




j 










If neither of these conditions 


1 


1 










exists, return tc read log 


j 


! 










RURDLOGR. 


1 
1 
1 
| 


1 

1 
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foj] Searches the Dynamic Table for a 


1 

IR0PRSO10 


1 










matching task entry. If found, 


j 


1 










the following updates take 


| 


j 










place: 
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PSOTK = PEOTK, delete entry 




1 

1 










PSOTK = IECTK, insert entry in 


! 
1 


1 
1 










Activity Table 


1 


j 










PSOTK = LEOTK, no action 


1 
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LSOTK = EICTK, no action 


1 

1 

1 


1 

1 
1 
1 










J04] If entry is not found in the 


1 

1 


1 

1 










Dynamic lable, a task entry is 
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created in the Activity Table. 
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1 
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Prom U.7.6 
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DPHRHP: 

[01 I Write user log or data 
base record to Restart 
data set 



A. If I/O error, write 
message and terminate 
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^ 
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KUBKRSDR - Write Restart DataSet Routine 



Diagram - U, 7. 9-01 



Notes 
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Notes 
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Ref 


(pi( The log record is written to the 
Restart data set by issuing 
macro DPHKP T*PE=WTBODATA . 

A. DPH2808... ABEND code 2808 
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BUTEBOR - Termination Routine 



{Oil Scan Dynamic Table fcr 
completion of wcrk 



/« — '\ 

^i — i/ 



A. Else return to B0BDLO6B 

[02] Upon return from DfHTDRP, 
process statistics 






V 

a. 7. 11 



Diagram - 4.7. 10-01 



Notes 



[oil The co «p let ion cf work is 
determined by scanning the 
Dynamic Table, to ensure that 
each task entry contains 
end-of-task conditions. 

If this conditon exists, a link 
is issued to the Transient Data 
.Recovery program 1DPHTO8P). 

If a task, entry does not contain 
the end-cf-task cordition, 
reading of the leg records is 
continued until all entries in 
the Dynamic Table have completed 
a logical unit cf work. 
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Activity 
Table 



[ oT] write Activity Table task - 
entry data to Statistical 
log 

A. If I/O error, write 
nessage 

[02] write Transient Data entry- 
statistics to statistical 
log 

[oj] write file Control 

statistics to statistical 
log 

fool Write Activity Table ana - 
Message BacKout Table to 
Restart data set 

A. If storaga is net 
available for Activity 
Table output buffet, 
write aessage and 
terminate 

B. If I/O error occurs, 
write aessage and 
terminate 
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DPHSIP 
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Restart 
set 


data 



ROWRSINR - Write Statistics Routine 
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Notes 



[01] TaKe statistical data froa the 
task entries in the Activity 
Table and write the data to the 
statistical log. CSSL data 
consist of: 

- Task ID 

- Transaction ID 

- Terainal ID 

- Data Collected Count 
A. DPH2807I. .. 

[02( Scan DCT for Intrapartition 
entries and write statistical 
data. Data consist of: 

- Destination ID 

- Recovery status 

- Total records in queue 

[ou? The entries in the Activity 
I Table and Message Backout Table 
are written to the Restart data 



Label 
RUWBSINR 



set to be used later by a 
Transaction Backout prograa. 



A. CIB2B06Z... ABEND code 280b 

B. DFH2809I... ABEND code 2809 
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R0WBSINR - Write Statistics Routine 
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CCT Entry 
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Transient 
Data Data 
Set Cham 
Record 



f b"T] Allocate storage for an 
input/ out put area 

A. If allocation Is 
unsuccessful, issue 
■essage and terminate 



02 j Establish addressability 
to bit nap DCT and duaay 
OCT entry 

[oTj Scan DCT for 
intrapartition 
destinations 

[04J Deteraane if destination 
is to fce recovered 

A. If unrecoverable, 

indicate error in input 
pointer high-order tyte 
with XM0« 



j OS j Bead chain records, update- 
bit aap and counters 



output 
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Bit (lap 



DCT Entry 



JTDDCTTQC j 
(TDDCTBQC j 



Transient Data Recovery 
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A. DPH2810I... ABEND code 2810 

|02j Pointer to bit aap is at 
location - 12 froa the DCT 
entry. Save bit aap address in 
location TDBBHPTB. Store 
pointers tc the input/output 
area and duaay DCT in the TCA. 

j ij Intrapartition destinations are 
deterained by checking Field 
TDDCTDT of the DCT for a X«80» 
leguates tc TDIN0TB0). 



® 



1E3 



The destination is recovered if 
the queue start address IQSA) 
TDOCTQSA is nonzero and the 
high-order byte does not contain 
a K»80« terror in DPHROP while 
updating the DCT) . 

Reading of chain records always 
begins with the CSA. As each 
chain record is read, the bit 
representing the track, is 
flipped on in the bit aap and 



the total gueue count is 
increaented. 

The chain is broken when no 
forward pointer exists for 
physical recovery or when the 
chain record track equals the 
output pointer track (TDDCTODA) . 

For logical recovery, the 
counters are updated in the DCT. 



Transient Data Recovery 
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jOb] write chain record for 
logical recovery 

[of ] Bead last track on 
physical recovery. 




Transient Data Recovery 
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For logical recovery, the last 
track of the destination is 
determined. If a forward chain 
pointer exists, the chai record 
is rewritten. If nc forward 
pointer exists, rewriting of 
chain record is bypassed. 

The last track is read to 
determine the aacunt of records 
that exist en the track and to 
determine whether the aaxmua 
data length has changed. 
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DFHBSD 
DfHFCI 



!£EL~~_ZT 
fCT j 



1C1TE 

ictte"" 



fi)1j Write header message to 
CSMT, and to console. 

foS] Head the 1B0, FBO, HBO, 
and OBO tables. 

[03] Check FBO table against 
loaded FCT. 



[Oil Check BBC table against 
loaded TCT. Copy MBO 
information into ISC 
TCCTEs . 

fi)?] Check DBC table against 
DL/I directories 

r06J Give user initialization 
exit control. 



7<> 

/ 
/ 
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k> 
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iTBFiFCTA~~l 
TiiI?LG"i J 
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DPHUBC 
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[•riDBOAn"""] 
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Communi- 
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Transaction Backout Program-Initialization Boutine 



Diagram - o.s.i-C 



Notes 


Boutine 


Label 


Bef 


Botes 

temporary status changes. 


Routine 


Label 


•} 


[pi] Message DFH5701 . 




fbT) If TBO tanle is afisent, message 
DFH5703 is issued. 




TBOC0100 




[o«1 HBO entries without matching 
TCTTBs are flagged as absent. 




•IB000255 




If FBO table is missing, same 




TB000130 




[osl DBO entries are checked against 




TB00105C 




message is issued. 








the DL/1 PSB Directory and the 
DHB directory to ensure that the 








If HBO table is mossing, same 




TB0C0160 




FSB's are schedulable. If the 








message is issued. 








ESB is not schedulable, the 
entry is marked accordingly 








If £B0 table is missing, same 




TB001000 












message is issued. 








If there is no DL/I support in 
the system, all entries are. 








If an I/O error occurs, message 








marked for no-action. 








DFU5702 is issued and CICS/VS is 
















terminated. 








[06] Via a BALB1H instruction. 




TE0002TS 




The addresses to the tables are 
















placed in fields TBIBOAD, 
















TBFBOAD, TBMBOAD, and TBOBOAO 
















respectively. 
















] 03 ) FBO entries without matching 




TBOC0210 










I 


FCTs are flagged as absent. 
















Initial status of file is 




TBO0O225 












checked and FBO entries are 
















flagged for appropriate 
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changes tc files flagged 
in FBO 
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Transaction Bacaout Prograa-Initialization Boutine 






l)FHI»CTDS 
PCTDSDs" 
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PCTOSOI 
?CTDilDD~ 



Diagraa - u.q.i-C2 



Open any defers d open files that 
have iatligat tasjc backout 
inf or nation. 

Issue aessage DIH5709 if no 
space. Issue aessage DFH5708 and 
give control to user ezit. 



Boutine latel 
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DfHfiSD 
DfHJCB 



[JBMBTB ID^j - 



DfHFBO 
[itoFBFI 



_1 



JJ 



|oi ] Bead record froi Restart 
data set and check record 
type. Test for BOP 
condition. If yes, go to 
D/I backcut routine 

foi] If a DL/I record, free 
areas and read another 
record 

fi)3j Branch to user input exit 
based upon record type. 

For TCP records, locate 
HBO table entry and take 
user-input-exit. 

for FCP records, locate 
FBO table entry and take 
user-input-exit. 

[oa] For the default return 
option of TCP records. 






j\ 

[::::■/ 

Fead Data 



EI] 
ED 



Por the default return 
option of PCP records 



. j\ 

nessage 

Recovery 

4.9.3 



Por other records and the 
bypass return option froa 



Data base 

backout 

4.9.4 



Transaction Bacxout Progran-Read Data Records 



• Diagro* - 1.9.2-0' 



ED 



S 



E3 



If I/O error, issue nessage 
DPH5780, give user- input-exit 
control, then ABtiND CICS/7S. 

If unmatched TCP record issue 
aessage Dfti57»0 With GO/CAHCBL 
option, if GO return to read 
next record. 

If ue Bate fled FCC record issue 
aessage DJHS7 10 with GO/CANCBL 
option. If GO return to read 
next record 

If I0P condition go to TB900000. 

For TCP records, go to TB000900 
for FCP records go to TB000530, 
for user records 30 to TB000560. 

User input exits coae bacx to 
the following iaoels for default 
action. For TCP records, 
IB0C0910, for FCP records, 
IB00052 1, for user records at 
lanel, IU000565. 

See note 3. 



06J Oser input exits return to 
TB000524 to bypass the 
processing of the record. 



Pontine label 



Transaction aacxout Prograa-fiead Data Records 
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the user input exit, free 
areas and read another 
record. 



Transaction backout Prograa-fiead Data Records 
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Transaction Backout Progra a- Message Recover] 



D?HTBP: 

[oTj for non-logged records and 
no-action terminals free 
area and return to read 
another record. 

[02] Save Resync data in ICTTE.- 



(Bead Data 
1 Records 
14.9.2 



Yo7\ Save in-doubt coaaitted 

output aessages in lessage 
slot. 



a^> 



<i m i > 



'>0 



04 j Save input and output 

aessages in aessage cache. 



. .y 



TCTESQIL 



TCTESQIP 



iDPBHteraidi 
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G3 

(02 J Sets indicators TCTEIERS and 
TCTEIRPR. 



I'OJj Issues 0PHTS-P0T aacro. Sets 
ladicator TCTECOPP. 



\0h[ Issues DPHTS POTQ aacro. 



Transaction Backcut Frograa-flessage F«coverj 
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[tbp bplg i ] — -' 



[jCS PPI | 



[JC RIBID ] 



DPHIBP: 

fi)7) Por not inflight task 
records, nca-i,og<jc? 
records, and no action j 
files free area and return 
to read another record. 

[02] Por read update logged 

records read current file 
record. 



lEeal data 
records 
a. 9. 2 



/« — ««\ 

< l-l > 

>i — 1/ 



GIT 



l.b.H 



If current record exists 
or is not found bac^cut 
update or delete by 
writing original logged 
record. 
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1031 For write add logged 

records read current file 



-1/ 



1.6. ij 

If current record exists, 
perform delete VIA user 
exit or KP support. 



| >|1)FHFCP~ 

"0 



DELETE 



1.fc.7| 



If current record is net 
found no backout of vrite 
add is reguired. 

[oa] For errors and 

non-supported delete 
requirements give ccntrol 
to user-file-error exit. 



Output 
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Transaction Backout Program — Data Base Backout 



Diagram - a. 9. a -02 



]03j Oser file error exit is given 
control if a record added to a 
ISAM, BDAH, or ISAM ESOS data 
set is tc be backed out 
(deleted). The user exit should 
logically delete the current 
record by marking it according 
to installation convention. TBP 
will then rewrite the logically 
deleted record. 

f oaj The communication byte TBXITCOH 
defines the type of error for 
user file error exit. 



u 
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[tecepseh 
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[01j Hake DfHTEP eligible for 
DL/I services 

A. The following 5 steps 
are executed for each 
schedulable PSB in the 
C30 table 

[02] Schedule the PSB 



pjj Reset the Restart Data Set 
pointers to the beginning 

[o^l Read a record from the 
Restart Data Set 

|05j If record is this PSB, 

pass It to DLZHDBCO tc do 
the physical bacitout 



Transaction Bacitout Progran-DL/I Baskout 



Diagram - a. 9. 5-01 
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[bl] The address of an ACT assembled 


ITB001500 


1 










inside DFHTBP is placed in the 


1 


| 










TCA and the DL/I SCO. The PPT 


1 


1 










entry for DPHTBP is flagged for 


1 


| 










DL/I. 


1 

1 


1 
1 
1 










(021 The number of the PSB directory 


1 

ITB001510 


1 
1 
j 










entry for this PSE is placed in 


| 


1 










the ACT within DPHTBP, and a 




! 










DL/I scheduling call issued. 




! 










■ . 
f05) Each DL/I log record contains 


ITB001S50 


| 










the PSB name. 

1 

1 ...-...- '.-. '.. . 
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lObj At end of file on the 
Restart Data Set, 
unschedule the PSB 



/i — 1\ r _ 
< i.-i >j 
>i — 1/ 



|07j When OBO table entries are 
processed, go to 
Transcation Backout 
Prograa Termination 



E£*a 



V 

Termination 
4.9.0 




Transaction Backout Prograa -DL/ I Backout 



Diagram - «♦. 9. 5-02 
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Transaction Backout Program-Termination . 



PROCESS 



Ek> 



I 01 1 Go to user termination 
' exit. 

I 02 I Send termination message 



Reset Restart Data Set 
pointers to beginning. 



04 Return. 
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OUTPUT 
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[02] Message DFH5790 




TB900000 
TB900030 
TBPCRET 





NOTES 
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LABEL 


REFERENCE 
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Temporary 
Storage 
Recovery 
Table 



Prca DPHSOP 



1-.J 



Temporary 
Storage 
Recovery 
Table 



CZZZF 



ICE Recovery I [ 
Table s • 



[ZZZT 



ur 



••••I > 
— i/ 




ED 



Check current STCK value 



i 04 1 Restore until 
table (DFHTSOT) 



051 Buiia CI map 



Ob » Schedule recovered ICEs 



02 j If ICE control blocks are 



appended to data buiia a | 
table 



0J| If ICE control blocks are ■ 



appended to data, build a | 

table | 

I 



, j\ 

ITo DFHTSP 




dfhtsgid 
[tsgide Ja""] 



CI Byte Map 



Temporary Storage Recovery Program 



Diagram - 4. 10-01 



foil Issues System/370 STCK reguest. 
If not set, notify operator. 
Compare STCK value with last 
keypointed STCK value. If not 
higher, notify operator. 

fo2? Each record on the data set has 
the data identification included 
in the record header, along with 
record number for queue-type 
data. The recovery table is 
scanned to see if the data is to 
be recovered; If mere than one 
record with the same DATAID is 
found, the data with the highest 
STCK value is taken. The 
auxiliary storage address is 
stored in the TS Recovery Table. 
If the current STCK value is 
less than the STCK value of a 
record, CICS restart is 
terminated; 

[03J Durmng the scanning of the data 
set, if a recoverable record has 
an ICE appended, create a table 
and move the ICE into the table 
iq ascending sequence by time 
created, "based on STCK value in 



the record prefix. 

[(WJ After the data set has 

processed, DPHTSRP points to 
each entry in the recovery table 
and calls DFHTSP to create an 
entry in the unit table 
IDFHTSOT). 

[05] The record length given in the 
auxiliary address is usad to 
update the CI use map to reflect 
the number of available segments 
in the CI. 



{0t>| ICEs are chained off the CSA via 
link to either DFHI2P or DPHKCP 
for each ICE. 



Routine Label 



Temporary Storage Recovery Program 



Diagram - 4. 10-01 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL — PROPERTY OP IBM 



Processing 



Output 



PAGE 1 OP 1 




01 j Read selection parameters • 



and build selection tables | 

| 02 j Print haadings and | 
selection parameters j 

|03| Header Record - set tine | 

base for new period | 

I 

[ 0*4] Print Frior period totals f r 

and new period heading ~1 j 

i 
Yos] Detail Record - natch 

agaivst selection tables 

ToZ\ If Batches, conpute tine 



format, and print detail | 
record 1 



|07| End -of -Data - print period- 
totals and job totals 



s 



V 

Eixt to system 



[selection"] 
[Table 1 



Trace Utility Program 



Diagram - 4.1 1-01 



Motes 


BotJtine 


Label 


Ref 


| 1 | If no input, ALL is assumed. 




T0INP 




G3 








lOJ| Base is CICS time and saved 




T0HED 




value of STCK instruction. 








i°3 




T0PRTSHD 




[05? Record is not printed if not 




T0DET 




selected. 








jObj Time is determined by converting 




T0DTF 




displacement of STCK value to 








1/100 sec and additg to CICS 








time. 








i El 




ATRE0DAD 




L_, . 









Routine Label Ref 



Trace Utility Program 



Diagram - 4. 11-01 
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Formatted Duap Prograa (DPHPDP) 



Processing 



PROP. 1 OF 1 



nFHPDPim: 

foil Tsstie DH!1P if not called 
from nPHSIt. 

rc7\ Open SYSLST file. 

[Oil Change address in tSU 

optional features list to 
point to aain entry. 



?21Q7Z??PZ\ 



••••••• i 

— 3:1 



|CS*OPm j 



JCSUFDITHC { 



Diagraa - «. 12-01 



Notes 



1 01 1 For the- call to initialise 

DPHFDP, DFHSIT sets a bit in the 
top byte of CSAFDHUC. 



Label Sef 



Formatted Da«p Program (DFHFDP) 



Diagraa - a. 12-01 
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GICS/OS/VS Program Logic: Description 



INPUT 



SJT 

| SITFDPOP | 



PROCESS 



LICENSED MATERIAL — PROPERTY OF IBM 

PAGE 2 OF 2 
OUTPUT 



EED 



y 



04 If option 'NO' then issue 

1 ' DUMP. 

I 05 I PDUMP the CICS partition. 

| 06 | If option 'SNAP' then 
return. 

[07] Save old STX IT 

information, and issue 

STXITforDFHFDP. 

|08J Set up page heading, 
fogl Call DFHFDB. 



COI 



DFHFDB 



4.12.1 



[To] Restore old STXIT. 
1 11 I Return. 



2GD 



Y/////////S 



% 





FDPCVT 

















Formatted Dump Program (DFHFDP) 



Diagram -4.12-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 











NOTES 


ROUTINE 


LABEL 


REFERENCE 











Formatted Dump Program (DFHFDP) 



Diagram -4.12-02 
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LICENSED MATERIAL — PROPERTY OF IBM 



INPUT 



PROCESS 



CICS 
partition 



From 
step 04 



Formatted Dump Program (DFHFDP) 



DFHFDB: 

I 01 I Initialize Interpreter. 

02 Find a work element. 







Set up to process a work 
element. 



Fetch the operation code 
of the current descriptor 
and branch to the 
appropriate routine. 



DFHFDB ROUTINES 



A. Pointer Routines: 

Add a new work element 
to a work queue. 

B: Item Routines: 

Display the value of a 
field. 



OUTPUT 



^ 



Routine Entry 



Diagram -4.12.1-01 



I 01 I DFHFDB is an interpreter that 
' — -" processes descriptor tables 
contained in DFHFDC. 



There is a work element for 
every instance of a control 
block. A work element contains 
the address of its control block 
and a pointer to the appropriate 
descriptor table in DFHFDC. The 
work elements are chained in 
work queues. 







Each descriptor begins with a 
code that indicates which 
routine in DFHFDB will process 
it. 



Formatted Dump Program (DFHFDP) 



REFERENCE 



ROUTINE LABEL REFERENCE 



Diagram -4.12.1-01 
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CICS/OS/VS Program Logic : Description 



INPUT 



Formatted Dump Program (DFHFDP) 



LICENSED MATERIAL 



PROCESS 



C. Checking Routines: 

Check that a field is 
valid. 

D. Print Routine: 

Print a hexadecimal 
dump of a control 
block. 

E. Exit Routine: 

De-allocate all work 
elements and return to 
caller. 



PROPERTY OF IBM 

PAGE 2 OF 2 
OUTPUT 



% 



Diagram -4.12.1-02 



REFERENCE 



REFERENCE 



Formatted Dump Program (DFHFDP) 



Diagram -4.12.1-02 
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LICENSED MATERIAL — PROPERTY OF IBM 



PAGE 1 OF 2 



INPUT 



Forms 
control 
information 



PROCESS 



VTT^ 



:> 



DFHFDP SUBROUTINES 
A. PUT Routine: 

I 01 I Increment line counter. 



02 If end of page, eject and 

' ' print a new page heading. 

I 03 I Print a line and return. 







B. Get Storage: 



Issue GETVIS to obtain 
storage and return. 



OUTPUT 



% 



y////////fy 



% 





FDPCVT 






FDNXTAVL 




FDENDAVL 









Formatted Dump Program (DFHFDP) 



Diagram -4.12.2-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


1 01 1 The control information supplied 

by the caller contains the 

carriage control character to be 
used, the space used by this 
line of print, and the space 
required between this line and 
the bottom of the page. 

1 02 1 Place beginning and end 
— -* addresses of area obtained in 

the DFHFDP communications area. 

1 03 1 DFHFDBhasalistof pairs of 

' ' addresses, each pair being a 

possible program check location 
and its corresponding restart 
point. 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











Formatted Dump Program (DFHFDP) 



Diagram -4.12.2-01 
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CICS/OS/VS Program Logic: Description 
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INPUT 



FDBPCS 

1 1 








DOS PC Save 
Area 










1 1 




FDPCVT 








| ARETRY | 









PROCESS 




C. Program Check Exit: 


t°D 


Scan DFHFDB's address 
list. 


s 


If entry found, reset PSW 
instruction address 




accordingly. 


El 


If no entry found, reset 
PSW instruction address to 




point to DFHFDP Second 
Level Interrupt Handler. 




D. Second Level Interrupt 
Handler: 


H 


Print PSW and registers. 


@ 


Branch to retry point 



OUTPUT 




Formatted Dump Program (DFHFDP) 



Diagram -4.12.2-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 











NOTES 


ROUTINE 


LABEL 


REFERENCE 











Formatted Dump Program (DFHFDP) 



Diagram -4.12.2-02 



Section 2: Method of Operation 



567 



LICENSED MATERIAL PROPERTY OF IBM 



Page 1 of 1 



Dynamic 

Backout Program 

(DFHDBP) 

4.13.0 



Initialize and 
DWE Scan 



4.13.1 



Dynamic Log 
Scan 

4.13.2 



Dynamic 
Transaction 
Backout Logging 
4.13.3 



Visual Index - Dynamic Backout Program 



Diagram -4.13.0-01 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OF IBM 



Page 1 of 2 



INPUT 



DFHDWEDS 



DWESTAT 



PROCESS 



l° 2 l--"> 



^> 



| 1 Link to initial user exit and 

I 01 I Link to DFHACP to issue initial message 



fo2j Scan DWE Chain 

A. End of Chain 

B. "In progress" or cancelled DWE 

C. Temporary Storage, Transient Data DWE 

D. File control or DL/1 DWE 



F. Terminal Control DWE 







Set 'Backout' bit in DWE 
Set 'In progress' bit in DWE and 
invoke DWE processor routine 
to do backout 



OUTPUT 



|.. . Q 4.i: 

cos 
cos 

COB 



^Q 



D0 



Initialise and DWE scan (DFHDBP) 



Diagram -4.13.1-01 



Message DFH2205. DFHACP is used 
to write the message because it has the 
logic required to write to the user's 
Terminal. 







The DWE processor routine is addressed 
from the DWE. This is used as a con- 
venient mechanism for accessing the 
backout code in DFHTSP and 
DFHTDP. 



Initialise and DWE scan (DFHDBP) 

Section 2: Method of Operation 



Diagram -4.13.1-01 
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LICENSED MATERIAL — PROPERTY OF IBM 



INPUT 



DWECHAJSI 



Initialise and DWE scan (DFHDBP) 



Page 2 of 2 



PROCESS 



OUTPUT 



N •• *> 






Issue BMS PURGE 



Free DWE storage and address next DWE 



^@ 



Diagram -4.13.1-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


j"~T| Clears out any partially built BMS 
I 05 l message - Prevents it being written 
at th end of the transaction. 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











Initialise and DWE scan (DFHDBP) 



Diagram -4.13.1-02 
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CICS/OS/VS Program Logic: Description 



INPUT 



PROCESS 



LICENSED MATERIAL — PROPERTY OF IBM 

Page 1 of 3 
OUTPUT 





DFHDBRDS 






DBRSVMID 




DBRMOOFN 


DBRTSRN 












:> 



=> 









Scan dynamic log buffer in reverse 




A. There is no buffer or end of scan 




B. 'Overflow' record 




C. 'Chain' record 




D. DL/I reocrd 




E. File record 




F. Terminal Control record - Pass it to user 




'Input' exit 


@ 


Read spilled record from Temporary Storage 


@ 


Read previous buffer, ifany, from Temporary 
Storage. 



E^3 

coo 



rxn 



CZ)0 
LZ>Q 



Dynamic Log scan (DFHDBP) 



Diagram -4.13.2-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


(02~| & foil TS queue name is 

I 1 1 1 'DTB' prefixed by 

X'FF'and suffixed 
by the task number 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











Dynamic Log scan (DFHDBP) 



Diagram -4.13.2-01 
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Page 2 of 3 



INPUT 



TCA 
TCADLIPA "] 



DFHDBRDS 



DBRMODFN 



'BEFORE' 
IMAGE 



Dynamic Log scan (DFHDBP) 



PROCESS 



OUTPUT 



m 



> 



^ 



^ 



Set up DL/I environment and invoke DL/I backout 
module. 



Invoke 'input' user exit 



Do DFHFC GET- for -UPDATE for logged record 



A. Record found. 



B. Record not-found. 



C. Error. Invoke user exit. 



lf 



logged record is write-add 



TZT] (Get-for-Update) 

I I Update record with logged before-image 



^ 



:> 



CD0 



^ 



=c> 




Q 



Diagram -4.13.2-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


j-JJ] DLZRDBCO 

r—| Only WRITE-ADD'S or get for 
LPU UPDATE'S are logged 

| 1 Errors are passed to a user error 

|08| exit. 









Dyiwnlc Log <a (DFHDBP) 
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NOTES 


ROUTINE 


LABEL 


REFERENCE 











Diagram -4.13.2-02 



CICS/OS/VS Program Logic: Description 



INPUT 



LICENSED MATERIAL 



PROCESS 



PROPERTY OF IBM 

Page 3 of 3 
OUTPUT 



^o 



l»nD 









(Write-Add) 

If VSAM and not ESDS file, then DELETE the record. 

Otherwise, pass record to a user exit 



(Record not found) 
If Write-Add log record 

(It is GET- UPDATE) 

If VSAM and not ESDS then do a PUT NEW of the 

logged record. Other wise invoke user error exit. 



30 



^ 



GOO 



Dynamic Log scan (DFHDBP) 



Diagram -4.13.2-03 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


«f> *' 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











Dynamic Log scan (DFHDBP) 



Diagram -4.13.2-03 
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LICENSED MATERIAL — PROPERTY OF IBM 



Page 1 of 2 



INPUT 






From 1.9.3. 


PROCESS 








JCA 




jhf> 


["""I Is this record type to be logged? If not, return 

njT"| Has a dynamic buffer already been allocated?. 
I 1 If so, skip step I 03 I 




JCATR2 

JCAADATA 

JCAJRTID 




r. 












JCR 




JCRSTRID 










TCA 






TCADBDLA 






CSA 




CSADBDBL 


1 | Calculate storage required. 

L21I A > 








DFHSCP 






JCA 


GETMAIN 












JCALDATA 
JCAFCLRI 


1 M ] Is this record longer than the dynamic Dunerc 
I 1 If not, skip step 1 _ 5 | 








r~Tl Put this record to Temporary Storage 






<S> 


DFHTSP 












Indicate that an overflow record is being written. 

r~7] Is there enough room left in the dynamic buffer 
1 1 for this record? If there is, then skip step 1 _ 1 





OUTPUT 




Dynamic Transaction Backout Logging 



Diagram -4.13.3-01 







Types of record to be logged:- DL/I 
type 50-52 (OS) ' 
50-51 (DOS) 
Terminal Control first input message. 
File control Get-Update, 
Write-Add. 

The Temporary Storage queue name 
is constructed as: X'FF7/DTB//Task ID. 



Dynamic Transaction Backout Logging 



ROUTINE LAB'EL REFERENCE 



Diagram -4.13.3-01 
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CICS/OS/VS Program Logic: Description 
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Page 2 of 2 



INPUT 






PROCESS 










| 1 Put the dynamic buffer to Temporary Storage 




/^r> 


DFHTSP 




\ 1/ 






JCA 


Re-initialise the dynamic buffer, and write the chain 
record in directly. 

r~~\ Write this record into the dynamic buffer. 






JCAFCFI 






I 08 l 

Set values in the dynamic buffer. 




JCR 























OUTPUT 



V////////A) 



^ 



W//////) 





DBL 






DBLNXT 
DBLLAST 






DBR 












DBL 






DBLNXT 
DBLLAST 











Dynamic Transaction Backout Logging 



Diagram -4.13.3-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


rrri The Temporary Storage queue-names 
I ,i is the same as for step. 

| 1 For file control records, the file-id as 

| 08 1 well as the record data must be logged. 

For other records, just the data is 

logged. 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











Dynamic Transaction Backout Logging 



Diagram -4.13.3-02 
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Sign On 
Program 

5.1.0 






Sign On 

5.1.1 






Sign Off 

5.1,2 



Page 1 of 1 



Visual Index — Sign On Program 



Diagram -5.1.0-01 
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CICS/OS/VS Program Locric: Description 



INPUT 




LICENSED MATERIAL — PROPERTY OF IBM 

Page 1 of 1 



PROCESS 



OUTPUT 



I 01 I Go to sign off if no terminal input 

[02 If a formatted screen, remove control characters 

I 03 I If explicit sign off, go to 

I 04 I If terminal already attended, sign off previous operator 



//////////A 



<^ 



1 05 J If 3270, and password field absent, ask operator for 
details, then convert reply to the fixed-field format 



I 06 I Load the sign-on table DFHSNT 



I 07 I Check name and password received against the table 



I 08 I Sign operator onto terminal 



09 Exit 



•//////////> > 



> 



• • • • > 5.1.2 



> 



• • • • > 5.1.2 



'////// /%- 




W!K> 



m> 



Sign-On 



% 



O 

CSCS Security log 




TCTTEOI 




CSCS Security log 




Diagram -5.1.1-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





Transactor code of CSSF or 8888, obtained 




CSSNNFT 




from TCAKOID 








@ 


Link to sign-off program 


DFHSFP 






@ 


The screen format requests operator name 








in one field, and password in another, 










non-display, field 








H 


Abandon processing with appropriate 




CSSNINEB 




messages, if NAME field absent or table 










not found 











In case of error, compose messages to 




CSSNLSB 




security log (CSCS), terminal operator, 










and CSML, then exit 








E 


If the security log (CSCS) is not defined 








in the OCT, all references to it are 










non-operations 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











Sign-On 



Diagram -5.1.1-01 
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LICENSED MATERIAL — PROPERTY OP IBM 



INPUT 



PROCESS 



OUTPUT 



01 Write 'Sign-Off records 



<^ 



03 Honour 'Goodnight' or 

'Logoff' option 



<n5l 



04 



Message to terminal 
05 Exit 



'/////////$ 



^ 



Q 

CSCS Security lot 






o 











Sign-Off 



Diagram -5.1.2-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 




1 02 1 Module DFHSFP writes a message to 

1 destination CSML, and resets the status 

of the TCTTE to 'unattended'. 


DFHSNP 
DFHSFP 


CSSNPSF 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Sign-Off 



Diagram -5.1.2-01 
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CICS/OS/VS Program Logic: Description 



INPUT 



From 
DFHKCP 



PROCESS 



LICENSED MATERIAL — PROPERTY OF IBM 

Page 1 of 1 
OUTPUT 







:^> 




\/ 




TCTVGMMA | 


^ 








TCTETDST 




TCTTETT 











DFHGMM: 
r~~l Get message address length 



02 



04 



05 



Test for terminal type 



7T] Adjust length for control characters 
Get storage for TIOA 



Insert appropriate control characters into data 
stream 

Move message to TIOA 



Write the message 



Return to caller 



Y////////A ) 



Y////////J ) 



% 











TCASCNB 
Storage length 
required 












TIOATDL 
Message length 




TCTTEDA 

TIOA 

address 









"Good Morning" Message (DFHGMM) 



Diagram - 5.1.3-01 



02 



Terminal types can be 3270, SCS 
basic, or 3600 



^~] For 3270 and for CICS/VS logo panel 
GETMAIN using DFHSC 



04 



I 1 DFHTC WRITE, WAIT in case 

I ° I intervention required 



"Good Morning" Message (DFHGMM) 



ROUTINE LABEL REFERENCE 



Diagram - 5.1.3-01 
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LICENSED MATERIAL 



PROPERTY OF IBM 



PAGE t OP 



Master Terminal! 
Program l 

5.2.0 



Initialization 
5.2.1 



Service Inquiry 
- No Parameter 
List 

5.2.2 



Service Inquiry 
with Parameter 



Change Nuieric 
Data 

5.2.1 



Change 

Line/Control 
ffnit Status 

5.2. 



Point to New 
Program Copy 



Turn On/off 
Trace Table 
Logging 



Change Data Set] 

Processing 

Status 

5.2.6 



Change Terainal 
S " MS 5.2.7 



Enable/Disable 
Transactions oi 
Programs 



Enable/Disable 
Data Sets or 
Destinations 

5.2.12 



Terminate Task 
Using Terminal 



Terainate Task 
Dsing Task 
Number 

5.2.1U 



Build Output 
Message 

5.2.16 



Raster Terainal Program 



Diagram - 5.2-01 
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CICS/OS/VS Program Logic: Description 
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PAGE 1 OF 1 



ITIOATDL 

(Data 

llength 

| TIOADBA 
jOser data 






CSATCTBA I- 

TCT I 

jEeqinning j 

| address I 



:>S0- 

Gl- 



DIHHTTWA 
DSECT for 

keyword 
indicators 



HTMCDOL 

Module 

indacators 



MTIHDS 

Keyword 

indicators 



TCT1ETI I- 
Termiaal 1 
ID I 



Input Initialization 



DFHMTP: 

[oil 



0zz(> 



< l — l >|o 

V| — 1/ I- 



22(>@ 



j 02 j Scan request to determine | 
Keywords & parameter lists j 

JOJJ Build a Keyword list | 



az?{> 



/« '\ r 

< l—l > 
Vi 1/ 



-I I 



[ 04] Set keyword and nodule 
indicators 



05 i Transfer to appropriate 
program 



zC>0 



1.3.2J 



A. Request keywords cr 



r 



parameters not entered | 
on first line | 



B. Set keyword indicators 

C. Process the request 



2Z(>E 



MTLIHEAD 

naster 

terminal 

line 

address 



HTMOD0L 

Nodule 

indicator 



iWTIHDS I 
(Keyword j 
(indicators! 



HTTIOACH 

Message 

area 



Diagram - 5. 2. 1-01 



[«I3 



DFHMTPP finds the line address, 
adjusting for pooled lines. 

Trailing blanks and J270 control 
characters are removed. 

If CANCEL was requested, the 
task is terminated. 

If no keywords were specified, 
input is requested from the 
user. 

To build the keyword list, the 
input is scanned for new line 
symbols, numeric parameters, 
•=«, and •,'. 

If a keyword equals parameter 
was specified, the keyword ID 
table is searcted for a matching 
entry. 



I J05| If no keyword indicator is on. 



DFHMTPA 
EPEHTPF 



MTLOADP 
MTGETMLN 



ABEKD code «AMTA • is moved to 
the TCAPCAC field. Otherwise, a 
DFHEC TYEE=XCTL is issued. 

A. Ihe module affected requests 
the missing keywords or 
parameters. 

B. The requesting modules set 
the indicators. 

C. See chart 5.2 



All 

DFHMTP 

modules 



Input Initialization 



Diagram - 5. 2. 1-01 
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LICENSED MATERIAL 



PROPERTY OF IBM 



Processing 



Output 



PAGE 1 OP 1 



ICSHT INQOIRY 



TIOADBA 

Oser 

teguest 



of all "( 
CSHT ■ I 
I keyword j 
(indicators] 



1CSABCMIT 
(ATP Hax. 
| tasks 

I CS ABCHXB 
(Max. batch 
j tasks 



CSAKCMT 
Has. 

number of 
tasks 



CSAICSIC 
Stall tine 
interval 



CSASCNB 
stoiage 
cushion 



System 

time 

interval 



CSAATP ATP 

Extension 

address 



keycoint 
frequency 



Service Inguiry - No Parameter List 



(••••I j 



DFHNTP: 

roil 



V| — 1/ 



Initialization 



Determine- the 
service under 
inguiry and set 
indicators 



Format the numeric 
response in program work 
area 



[03] 



ZZZZZZZLZZZZZ^/ 



a\ r 

I >(Build Output 
-1/ message 



(Edit and output 
Jail r 



HTTIOACH 

Message 

area 



Diagram - 5.2.2-01 



Rotes 


Rocti.ne 


Label 


Bef 


r _ ^— _— . 

Notes 


Routine 


Label 


Bef 


ED 

1 
















)02) RMAWAY I 


CPHHIFA 


DOC MT PO 3 












STALL 


DPHHTPI 


DOCMTP45 












TIME 


CIEMTPA 


HTTIMEBT 












ATPHXT 


DPHHTPE 


MTATBMTB 












BHAXT 


DPHCIPB 


MTATBMTH 












COSH 


CPHH1PB 


DOCMTPH* 
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tables are: 

TBIGER-CCT 

TERHNL-TCT 

DATBAS-FCT 

TRNACT-PCT 

CMTBL-TCT 

PRIOR-PCT 

PRIOR-TCT 

HEGP-TCT 

LIHE-TCT 

PGRH-PFT 



i fOJj NEGP, TB1GIR, and PRIORITY 

( generate a decimal response. 

I [04] in numeric responses, the 

I leading zeros are suppressed. 



CFEHTPI 
DPHETPC 
DPHBTPB 
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CFBHTPF 
DPHKTPE 
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DPHHTPF 
EFEHTPP. 
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DOCHTP27 
DOCflTPIb 
DOCHTP49 
D0CMTP44 
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with a parameter list is: 
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f 02 1 The range cf allowable values 
for the specified parameter is: 

RNAkAY: Tine value to 279b2020 

STALL: Time value to J27t>7 

TIME: 100 to 279©2020 

ATPMXT: less than cr equal BMAIT 

BMAXT: less than or equal MAXT 
or ATPMXT 

COSH: 20 to b55J5 

MAXT: 2 to 999 

CLASS MAM: 1 to 999 

ACTIVE HAXT: 1 to 999 

TR1GER: to 255 

NEGP: less than or equal 2000 

AKPFRQ: 200 to b5535 
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| 
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sets are OPEN, CLOSE, and 














1 


SWITCH. 
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1 






1 

1 
1 


[6a 1 For extrapartition destinations, 


CPBB1PD 
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5.7.1 
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the first byte of 1DDCTCTL is 














1 


set to Open/Close. 
















i]05j Extrapartition destination 
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MTTDLUP1 












status change. 
















Data base status change. 
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DPHBTPB 


MTMMDC 


5.2. 14 


1 






! 



Change Data Set Status 



Diagram - 5. 2. 5-01 



Section 2: Method of Operation 



585 



LICENSED MATERIAL — PROPERTY OF IBM 



Input 



PAGE I OP 1 




7777777777777( > 



zzz<> 



"7 



Determine data set 
and status 
specified and set 
indicators 

5.2.1 



Check the validity of the 
data set ID 



03 j Change data set status 



zzzzzzzzzzzzz{/ 



OH I Prepare a file status 
display 



7777777777 /Vl\/ 
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tialization 
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03 j Search TCT for terminal 
ID is) 
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^02|^ To define the terminal is) to be 


CEBMTPC 














changed, the following keywords 
















may be used: 
















SINGLE lused with 1ERMID=) 




D0CMTP22 












specifies cnly cne terminal ID. 
















LIST lused with TEEMI0=) 




0OCMTP2J 












specifies a list of terminal IDs 
















separated by commas. 
















CLASS lused with CLASID=) 




DOCMTP24 












specifies a class of terminals 
















using their TL1 suffix. 
















[03) 


DPHBTPC 


DOCMTP2 7 












|)0«ij The allowable processing status 


DPHBTPC 


D0CMTP28 












changes are: RECEIVE, INPUT, 
















TRANSACTION, TRANSIEVE, 
















AUTOPAGI, and PAGE. 
















The allowable service status 
















changes are: INSEBV, O0TSRV, 
















ACQUIRE, and RELEASE. 
















-r.. . -■■- ,-. ■ — 
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foi] If no TEBMID given, a TERMID is 


DFHHTPF 


MTLINCTL 












requested. 
















jOJj If TERMID is not in TCT, a new 


CFP.HTPF 


MTLINCTL 












TERMID is requested. 
















joaj Line: 


CFHHTPF 


DOCMTP4 9 












Control Ocit: 


DPHflPP 


DOCMTP50 












JO?) Line: 


CFB'eiFf 


MTCLINE 












Control Onit: 


DFF.HTPF 


MTCCNTRL 












An LOPEN macro instruction is 
















issued tc put the .line/control 
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unit in service. Since line 
















status for a VTAM terminal is 
















not possible, a message is 
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Determine reguest 
specified ana set 
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I02J The allowable parameters for 
transaction/ program 
specification are: 

SINGLE 



[0J| The PPT is searched for the 
prograa ID. 

The PCT is searched for the 
transaction ID. 



[04 | If PPT disabled, set disable 
indicator for all PCT entries 
that specify the PPT entry. 

Do not enable PPT or PCT entries 
if progians are not available. 



EPHHTPG 
DPHflTPG 
CPHPTEC 
DPEHTPG 
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the PILE1D= OR ALL parameters, 

Extrapartition destination IDs 
are specified by the DESTID= 
parameter. 



|03j The FCT is searched for the data 
. set ID. 
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extrapartition destination ID. 
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DFHHTPP 
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out of service to terainate the 
















task. 
















If the terminal is out of 




MTTEXSTS 












service, issue ABEND code ANT1. 
















[05j If no TCP WAIT was issued, a 


DFHHTPF 


HTTEXSTS 












deterred ABEND is issued, (1) 
















with ABEND code AHTH. -TCAA3HTP 
















indicator set in TCASYABI- 
















If a TCP WAIT was issued, all 


DFHHTPF 


HTSTESTS 


Notes 
3 and 
U of 
5.2.14 










purgeable tasks are purged,, (2) 














by setting the TCADCABD 














indicator in TCATCDC. 
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DPHMTPF 
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termina- 
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control 
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TCAATAC 
Abnormal 
Termina- 
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01[ Tne user is also asked if 

termination is to be immediate. 
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| 02 | Search DCA chain for 
reauested task number 

[03[ Check the validity of the 
request 



0U| Terminate the task 
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Build Output 
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all responses 
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|02J The chain is searched from low 
to high priority. 

The DCA entries point to the TCA 
which contains the task number. 

The suspend chain is searched 
first, the active chain second. 
If the task number is not found, 
an error message is issued and 
control is returned to CICS. 



|03( A task is ineligible for 
termination if: 

A. An ABEND is in progress. 

b. An ABEND has been deferred 
and a not-immediate ABEND is 
requested. 

C. The terminal is not out of 
service. 

D. The task is non-dispatch able 
and non-stall purgeable. 

A task is eligible for 
termination if: 



E. A terminal WAIT was issued. 

F. An ABEND vas previously 
deferred but an immediate 
ABEND is now requested. 

G. The task is non-dispatchable 
and stall purgeable. 

H. The task is waiting under a 
CICS LOCK. 

(oa( For eligible tasks, the direct 

ABEND indicator is set -TCADCABD 
set on. in TCATCDC- code, AtlT, is 
moved to TCAPCAC. A DFHKC 
TYPE=RESO?)E macro instruction is 
issued . 

For ineligible tasks, an error 
message is issued. 



Terminate Task Using Task Number 
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I Trans- 
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chain to get task | 
information | 
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< !••! >{DfHHTPP 



Search DCA active 
chain to get task 
information 
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[02 ] Total Storage=L(T+3j *H where: 

T is the number of tasks, 

L is the length of the output 
line, 

H is the length of the heading, 

4 is a safety margin. 

[ Oij The chain is searched from low 
to high priority. 

This subroutine gets one line cf 
output ir.formaticn. 

[o<»| The chain is search frcm low to 
high priority. (The last CCA is 
for the TCP which is not 
included in the output.) 



List All Tasks 
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[ 03 J Insert device-dependent 
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04 1 Output message. 
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Message 
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[oT] The original TICA is used if it 
is large enough. 

J02I The message is fcr matted into 
not more than 40 -character 
lines. Carriage returns are 
inserted vhere needed. 

[oil Special formatting is required 
for 2780, 3270, TWX, VTAM, and 
bisync programmable terminals. 

Tooj If this is not the final write 
of the task, a Terminal Control 
WRITE, BEAD, and WAIT is issued; 
then con-tcol is returned to the 
caller. 

For the final write, a Terminal 
Control WRITE is issued. 

At the end of the final write, 
the data and tine is written. 



1051 A DFHPC 1YPE=RET0RH is issued. 
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( 02 j Search parameter list for 
supervisor terminal ID 

| 03) Load Supervisor Terminal 
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foo] Check the validity of the | 



terminal ID 
05J Process the reguest 
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See Note to 



Supervisor Terminal 



JMTSUPRTB | 

(Address of| 
j supervisor j 



Isupe: 
TLT 
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A search is made for the 
following requests: 

Inquire/change the status of 
a line/control unit 

Inquire/change the status of 
terminal 

Terminate a task 

A Program Control LOAD is issued 
for the specified terminal list 
table. 

The specified teiminal ID must 
be in the TLT: if not, format a 
response and go to 5.2.1 o. 

The allowable requests are: 

Chance terminal status 

Change line/control unit 
status 

Inquire about terminal or 
line/ccntrcl unit status 



CFEHTPC 

CR 

CFEBTPF 



5.2.7 
5.2.8 



Terminate a task 



Obf To 5. 2. J, 5.2.7, 5.2.8, or 
5.2.13 



Supervisor Terminal 
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Operator Terminal 
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[02| In the TCA, the terminal, 

parameter, and single indicators 
are turned on. 



[03] Module DFHHTPC is loaded via a 
Program Ccntrcl XC1L. 



Ij04| Allowable operator terminal 
requests are: 



Inquiry 

Processing status change 



Service status cannot be 
changed. 
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j bTj If the systea statistics are 
requested via a CSH1 SUOTOM 
' request, this check is not aade. 

[oSl Test indicator in CSA (CSA 

XC1KC) vhica indicates a request 
froa auto initiated Auto 
Statistics to send a aessage. 

Soil CSSL is tne default destination. 



E3 



Deteraine naetaer AOB or SOB vas 
requested and caecJc the labels 
field tor tour-caaracter 
destinations. 

Tne csai SUUIBN request always 
outputs all relevant statistics. 
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|05J A Storage Control GBTHAIM is 
issued for each statistic 
requested. A Transient Data PUT 
is issued to send each statistic 
to the specified destination. 
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1 It Automatic statistics 
request 

i 021 Analyze Specified Request 



1 J t INQ: Set 1NQ response code 

roTi 



Switch: Enqueue; Close 

current destination; Open | 
a alternate destination; | 
Dequeue; Set return cede | 



Vos"| Cancel: Enqueue; Close 
current destination; 
Cancel ICE; Reset lock 
flag; Set return code 



r * \ 



Start: Decode numeric 
inputs: Interval length; 
Primary destination limit; 
Alternate dastinaticr. 
limit; Open primary 
destination; Establish 
ICE; Set lock flag; Set 
return code 
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Automatic Statistics Request from Terminal 
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jjOlj The absence of a TCTTE implies 
| automatic initiaticn. 



ED 



E 



isn 



The TIOA contains a request to 
START, CANCEL, SWITCH, or INQ. 

In the case cf a INQ, DFHSTSP 
merely sets a return code. The 
data for the message exists in 
the CSA Cptional Peatures List. 

The Switch routine enqueues on 
the address of the lock flag to 
prevent use by the automatic 
task during switching. Switch 
puts the new destination ID in 
CSASTDST and resets the 
appropriate count. 

The Cancel routine enqueues on 
the addtess of the lock flag to 
prevent use by the automatic 
task during clcse. 



1 0t> | The interval length is a 
required input. If the 
destination limits are tot 



specified, zero is stored in the 
CSAand implies no limit. 



teii 



1 1 
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[02] Enqueue 
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roil Task statistics 



0t>| Storage statistics 
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Automatic Statistics Program Automatic Iritialization 
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1OI1 The presence of a facility 
implies a user request. 



/02j The Data Collection routine 

enqueues on the address of the 
lock flag to prevent Switch and 
Cancel ficm. closing output 
destination during use. 

1 |0j] The ICE must be established 

first to closely approximate the 
requested interval. 

[<h) The value in CSAKC1TA is never 



I 05 | Data is entered into summary 
record to be written later. 



fot>? Same as note 5. 



071 Same as note 5. 



1 08 1 Same as note 5. 



Routine] Label 



Automatic Statistics Program Automatic Initialization 
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processing see the following 
charts fl 5. 10. J.I, R. 5. 10. J. 2, S 
5.10.3.2. The S operand gives 
control to Route Message 5.10.5. 



Rcctme Label 



Start of 
each 
operand 
routine 



Each 

operand 

routine 



|05l Operand values are stored in 

first part cf TWA except for MSG 
and RC0TE where address of 
message or route list is stored 
in TWAMSADR and TfcARTLST. 



Turn on corresponding indicator 
in TWASTAT or THASTAT1. 



(JSOPERR 
and in 
each 
operand 
routine 



Each 

operand 

routine 



Each 

operand 

routine 



Process Operands 
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jik; 



MSG Operand 



i*v [on 



Determine end of message 



7777777777777I 



^.Vfoil 



i> 



ope: 
sta 



THASTAT 
Operand 
status 



TWAMSLNG j 
Message | 
length I 



Diagram - 5.10. J. 1-01 



M01 1 Scan for ending gucte and find 

| A. EOD - message is continued on 

I next input. 

I 

I B. Quote followed by space - 

I message is ended and MSG 

I indicator turned on in 

| TfcASlAI. 

I 
i 

C. Quote followed by comma - 

same as B. 

D. Quote followed by quote - the 
first quote is part of 
messace and the second quote 
is deleted (TIOA data shifted 
to start of TIOA by 1 byte) . 

E. Quote followed by EOD - the 
QUOTE indicator is turned on 
in TViACOBOP. If the next 
input starts with quote, it 
is processed like D; 
otherwise, like B. 

F. Quote followed by any other 
character - processed liKe E 
but an error uessage is 
issued for an invalid operand 



I | Notes 
I I 



I I 
I I 
I I 



t I 
II 
I I 



MSG Operand 



II 

II 



I I 

II 

I I 
I t 
I I 
I ( 

JL 



Routmei Label 
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Input 



Processing 
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DPHMSP: 

Process ROUTE parameters 



A. TLT suffixes if present- 



-I" 



V-termicUiac/opid if J ^r~! 

— — i/IAj 
present with TLT suffix | <— I 

Termid*ldc/opid without -• 

TLT suffix | ~~| 

I I 

• I 

02) Construct route list (if ' 

TLTs) ~~i 

I 

A. Load TLTs (OFHTLTxx) | 

and build route list i 

I 

i. Delete duplicate 

entries in TLTs | 

I 

fro cess | 

♦/-termid*ldc/opid | 

entries | 



Q= 



Ey^ 



1TWATLST | 

•List Of | 

I TLT | 

(suffixes j 



ITWARTLST H 
(Address off | 
iroute list ( | 



r JTWAPLMSV 
j IHcld ♦ /- 
I (entries 



i ORLDS 

nJRLTRrtID"""] 



i ORLDS 

rORTTRfllD" I 
ITeroinil | 
(ID 



0RLOP1D 1 
ORLTSF | 



IUHLLDCMN | 

lldc | 

jmneuaonic j 

| ORLOP ID ( 

loperator < 

I ID •__ 

lORLTSF 
jStatus 

[flag | 



BOOTE Operand 
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A. TLT suffixes are saved in 
TNATLST (max. number of 
entries specified by 6MAXS0FX 
or AA1S0FX) . 

B. ♦/-teriid*ldc/ojid entries 
are saved in the form of a 
user- supplied route list 
where the address is stored 
in TwAFLHSV. The ♦ or - is 
saved in ORLTSF. 

C. If no TLT suffixes are 
present, the entries are used 
to build a user-supplied 
route list whose address is 
stored in IfcARTLST. 



A. Load TLTs (DFHTLTXX) using 
suffixes stored in TwATLST 
and build a user-supplied 
route list. 

B. If more than one TLT, do not 
include Termid*idc/opid 



Routine Label 



ROOTE Operand 



entries if defined previously 
in TLT already processed. 

Add any ♦ entries if not 
previously defined and delete 
all - entries if previously 
defined. Each ♦/- entry 
(saved at step IB) is 
processed against the entire* 
route list built from all the 
TLT*s (at steps 2A an 2B) . 



Routine 
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[message ~j 






TWA 

[twawslmg I 
INsg length! ) I 



] 



[twahsdr ") 
[Address J 



jRoute Li st] 

TSIOA 

. .< 

I Route List I 
l(ORLDS) | 



TWABTLST 
Route list 
address 



J 
J] 
1\ 



TSIOA • • - 

. ,<-, TKATSADR - 

[TSIOADBA I (Temporary | 

I User data | j Storage l 

I 1 (record | 

ITMA part | [address t 

iMsg part i 

| Route list! 
I(ORLDS) I 



Hss«i»~]— ,]_ 

lldentifical L — 
ition | 



1 01 1 Save status in Temporary 
Storage 

A. Get Temporary Storage 
cut put area 



| 03} Set up for next input ana 
terminate task 



r 1\ , 

•••I >|PCP 




j TWA part | 

j Entire rtsgl 

(Route lisri 
\ (0F.LDS) ( 



/ 



Issue Conversational Response 
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A. Size of output area is sum of 
the following pieces if still 
active: 

- TWA first part 

- Previous *sg part (old TS 
record) 

- Current msg part (from 
TIOA) 

- Previous route list iold TS 
record) 

- Current route list (built 
from current input or chained 
off eld TS record route list) 

B. All cf the IMA fields thru 
THAMSLHG 

C Message can consist of: 

- Piece in old IS record (if 
msg indicator on in TMASTAT 
field in TS record) 



Routine | Label 



- Part in current TIOA 

0. Route list is pointed to by 
1WAR1LST and may include 
entries in TS record if 
processed in previous input. 
Route list is started on 
full-word boundary. 

|02| Response msg address is in fISGRG 
register upon entry to HSCNVBS 
(conversation routine) . HSINABG 
register points to variable data 
to be appended to response. 

I 0i| If continuation is possible, 
effectively issue a DFHPC 
TYPE=RET0RB,TRANSID= to cause 
same task to start automatically 
on next input, otherwise issue a 
standard DFHPC TYPE-BETORB. 

Response to terminal is via 
3275/327? DPHTC TYPEWRITE to 
position on bottom line of 
screen, all other terminals 
DFHEHS TYP1= (EDIT,O0T) . 



Routine Label 



5.10.1 
STEP 1 
STEP 5 



Issue Conversational Response 
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r-i A | 



l; 



r fTWARTIST"""]-, f """ ] 

I I jHessage j 

I ORLDS j 

I User route]*— >r ■ 

| list j jRoute listj 






jtwastat " | — A /[a] 
1CA i 



DFHMSP: 
j*oT) Received SEND operand 



02 j Check if message and 
destination provided 



1 03 j Validate tine and date 
conbination 



jOOJ Route message • S. ■ — ■ V E| 1/ 



[05] Issue completion message -<\ 



Obj Terminate task 



i»»| >|PCP 

L — .,/ j _. 



s 



0=5 : 



i 0=:> 



/ / 
/ / 

Completion 
Response 



MACRO IHSTHS 



DFHBHS | 
TYPE = 
ROUTE | 
to. 1. 1. 1 


DFHBMS | 
TYPE = 
TEXTBLD 
b.1. \.i 


DFH3NS 
TYPE = 
PAGEOUT 
b. 1. 1.4 



jTIOADBA 
j Heading 



| Message | 
l^fl I 



Route Message 
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Notes 


Routine 


Label 


Ref 


Notes 


Routine 


Label | Ref 


MSBMSRT 




continued from the previous 
1 input, tvo TEXTBLDs are issued 














one for each part. 




t 


(°U 


MSG and ECOTE or OFCLASS 
operands are required as a 




MSNOMSG 
MS NORTE 




A DFHEMS TYPE'PAGEOUT macro is 




0.1.1. 




minimum, else error message. 








issued tc indicate that the 














message is completed and should 




| 


m 


Time and date combination must 




MSTIMDON 




be routed. 




J 


be less than 100 hours from 












I 




start of current day, else error 












1 




message. 












I 

j 


i 

i 

i 


TWASTAT and TWASTA11 indicate 
the operands in effect. The 
active TWA fields set up during 
operand processing are used to 
set up tie TCA and issue one of 
several forms of the DFHBMS 
TYPE=RC0TE macro. 

A TIOA-like area consisting of a 




MSBMSRT 


b. 1. 1. 
1 

b. 1. 1. 
J 






I 
1 

i 
/ 

1 

1 
1 

I 

1 
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i 


time/date and originator's 










' 
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identification heading (if 












| 


i 


HEADING is specified) and the 














j 


message is created and a DFHBMS 












1 


1 
i 


TYPE=TEX1ELD macro is issued. 








1 




| 


i 
| 


If the message has a piece in 














| 


the current input and Mas 
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Route Message 
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Interregion 

Communication 

SVC 

5.11.1 



LOGON 
Function 
Processor 
5.11.1.1 



CONNECT 

Function 

Processor 

5.11.1.2 



SWITCH 
Function 
Processor 



5.11.1.3 



DISCONNECT 

Function 

Processor 

5.11.1.4 



QUIESCE 
Function 
Processor 

5.11.1.5 



LOGOFF 
Function 
Processor 

5.11.1.6 



Interregion 
Communication 

5.11.0 
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Batch Region 
Controller - 
Bootstrap 

5.11.2 



Batch Region 
Controller - 
Initialization 

5.11.2.1 



Batch Region 
Controller - 
Controller 
Program 5.11.2.2 



Batch Region 

Controller 

Termination 

5.11.2.3 



Batch Region 
Controller STAE/ 
SPIE/CLEANUP 
Routines 

5.11.2.4 



Batch Region 
Controller 
Program Request 
Handler 

5.11.2.5 



Batch Region 
Controller - 
CONVERSE 
Subroutine 

5.11.2.6 



Batch Region 

Controller-SVC 

Initialization 

5.11.2.7 



Interregion 
STAE Exit 



5.11.3 



Interregion 
Start- Up 

5.11.3.1 



New 

Connection 

Manager 

5.11.3.2 



Interregion Communication - Visual Index 
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INPUT 



From 

SVC invocation 



Interregion Communication SVC 



PROCESS 



DFHIRCP: 

Check if caller is authorized 



02 Go to requested function processor: 



LOGON 



DISCONNECT 



QUIESCE 



OUTPUT 



>To 
5.11 



v>: 



To 
•• • • > 5.11.1.2 



>To 
5.11.1.5 



& 



To 
<••• > 5.11.1.4 



>To 
5.11.1.6 

>To 
5.11.1.6 
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NOTES 


ROUTINE 


LABEL 


REFERENCE 




01 


Uses DFHAUTH macro to check that 
caller had authority to use interregion 
SVC 


DFHIRCP 







NOTES 


ROUTINE 


LABEL 


REFERENCE 











Interregion Communication SVC 
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INPUT 



LOGON Function Processor 



From 
5.11.1 



PROCESS 



DFHIRCP: 

Find spare slot in LACB 



01 



02 GETMAIN for SVC internal control blocks 



03 GETMAIN for SVC external control blocks 



04 Initialize control blocks 



05 I Generate user number and user I D 
Return to caller 



06 
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OUTPUT 



1 





LCB 












CACB 












CCBs 



















SLCB 












SCACB 












SCCBs 

















Diagram -5.11.1.1-01 



01 LACB has one active field per logged-on user 



Blocks are in key fetch protected storage 



Blocks are in user key storage, and are accessed 
by the user subsystem 

User number and user ID are passed by the 
user on subsequent calls for identification and 
security purposes 



LOGON Function Processor 
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INPUT 




From 5.11.1 


PROCESS 












o • • • y 


DFHIRCP: 






1 
( 


XB 






V 








01 


Allocate a CCB and an SCCB Tor the caning 
subsystem 








:cb 










SCCB 
















, 


LCB 






02 


Allocate a CCB and an SCCB for the subsystem 
to which the connection is to be made 








CCB 










SCCB 


















CCB 






03 


Set CCBs to indicate that they are connected 
to each other 








CCB 








K 


04 
05 
06 


and set post bit in connected- to subsystem's 
corresponding SCCB 

Generate 'thread number', 'thread ID' 
Return to caller 


V////////A 
















1- 1 










To caller 



OUTPUT 







SLCBLECB 








SCCBLECB 







CONNECT Function Processor 



Diagram- 5.11.1.2-01 







There is one CCB/SCCB pair for each 
connection in which a subsystem 
can participate at any one time. 



The ECB in the SLCB is posted using an 
operating system POST. The SCCB ECB is 
posted by setting the X'40' bit. 



The 'thread number' and 'thread ID' . 
(identifying the connection to be used) are 
passed for thread identification and security 
purposes by the user on subsequent calls 
which are specific to this connection 



REFERENCE 



CONNECT Function Processor 
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INPUT 



SCCB 



SWITCH Function Processor 



From 5,11.1 PROCESS 



DFHIRCP: 



Move any data sent by the caller to the buffers 
at the other end of the connection 



Post ECB in connected-to subsystem's SLCB, 
and set post bit in connected-to subsystem's 
corresponding SCCB 



03 Return to user 



OUTPUT 



'/////////fy 



% 
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SCCBLECB 
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NOTES 
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LABEL 


REFERENCE 











NOTES 


ROUTINE 


LABEL 


REFERENCE 











SWITCH Function Processor 
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INPUT 



From 5.1 1.1 PROCESS 



If this subsystem is first to disconnect, clear 
connection and post connected-to subsystem's 
ECBs in SLCB and SCCB 



Indicate CCB and SCCB for this subsystem are 



0lf quiesce in progress and last connection is 
being disconnected, set 'quiesce complete' 
status in LCB and SLCB, and post ECB in 
user's SLCB 



04 Return to user 



OUTPUT 



'/////////fy 



'/////////A) 









SLCBLECB 








SCCBLECB 










SLCBLECB 









DISCONNECT Function Processor 
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Both sides of connection must issue a 
DISCONNECT request in order that CCB/ 
SCCB pair on each side is freed 



DISCONNECT Function Processor 



LABEL REFERENCE 
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INPUT 



From 5.11.1 PROCESS 



DF.HIRCP: 



01 Set status - 'quiesce in progress' in LCB, SLCB 



If immediate quiesce, break all connections 
in which this user is involved, and post ECBs 
in SLCBs and SCCBs at the other ends of 
these connections 



If there are no current connections, set 
'quiesce complete' status in LCB and SLCB, 
and post ECB in user's SLCB 



04 Return to user 



OUTPUT 



'///////// fy 



To User 











SLCBLECB 











QUIESCE Function Processor 
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Posting indicates to connected-to subsystems 
that connections are broken 



IRCP7000 



QUIESCE Function Processor; 



Section 2: Method of Operation 
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INPUT 



From 5.11.1 PROCESS 





LCB 








CACB 








CCBs 













SLCB 












SCACB 












SCCBs 

















DFHIRCP: 

Clear LACB entry for this user 



01 



Free SVC internal control block storage for 
this user 



Free SVC external control block storage for 
this user 



04 Return to user 



Page 1 of 1 



OUTPUT 



% 



LOGOFF Function Processor 



Diagram -5.1 1.1.6-01 



NOTES 
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REFERENCE 











NOTES 


ROUTINE 


LABEL 


REFERENCE 
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LOGOFF Function Processor 
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INPUT 



Batch Region Controller - Bootstrap 
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From OS PROCESS^ 

fiU 



OUTPUT 



• • • • y 



DFHDRP: 



01 Open DFHLIB 



XCTL to member DFHDRPA in DFHLIB 



% 
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NOTES 


ROUTINE 


LABEL 


REFERENCE 




01 
02 


D F H LI B is the DD name of the ( AP F) 
authorized library, CICS.LOADLIB1 

DFHDRPA is the batch region initialization 
module, and needs to be (APF) authorized 






< 



NOTES 


ROUTINE 


LABEL 


REFERENCE 











Batch Region Controller • Bootstrap 

Section 2: Method of Operation 
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INPUT 






From 5.11.2 


PROCESS 


( 


3UTPUT 












• I 

• • • • \ 


DFHDRPA: 










DFHDRCA 








01 


GETMAIN for DFHDRCA work area 








Register 1 










FARM field 






02 
03 
04 
05 


Analyze PARM field parameters 
Load DFHDRPD 
Issue STAE macro 
LoadDFHDRPE 


L 








DFHDRCA 








Application PCB List 






06 


Lipk to DFHDRPF 


¥////////& 








V 








07 


XCTLtoDFHDRPB 








I I 














<> 

To 5.1 1.2.2 









Batch Region Controller- Initialization 



Diagram- 5.11.2.1-01 



01 DFHDRCA is the batch region control block 



03 DFHDRPD contains STAE exit, SPI E exit, 
and cleanup routines 



05 DFHDRPE contains the Program Request 
Handler, and Converse Routine (which 
communicates with the CICS/VS region) 



DFHDRPF performs initialization required to 
set up the link to the CICS/VS region, and 
invokes CICS/VS to schedule the application's 
PSB 



07 Batch initialization complete 
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Batch Region Controller- Initialization 
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INPUT 



From 5.11.2.1 PROCESS 
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Page 1 of 1 
OUTPUT 



DFHDRCA 



DFHDRPB: 



01 Link to user's application program, passing 
PCB list 



02 XCTLtoDFHDRPC 



Batch Region Controller - Program Controller 



^ 
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DFHDRPC is the batch region termination 
module 



Batch Region Controller - Program Controller 
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INPUT 




From 5.11.2.2 PROCESS 

* • • • > DFHDRPC: 



OUTPUT 



Call CONVERSE routine passing 'sync point' 
request 



02 Call CLEANUP routine 



03 Return to OS 



To OS 



Batch Region Controller - Termination 



Diagram- 5.11.2.3-01 



01 CONVERSE routine (in DFHDRPE) sends 
request to CICS/VS, and awaits reply. 'Sync 
Point' request informs CICS/VS that batch 
processing is complete 



02 CLEANUP routine (in DFHDRPD) frees links 
with CICS/VS and the interregion SVC 



LABEL REFERENCE 



Batch Region Controller- Termination 
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INPUT 



From OS PROCESS 



Batch Region Controller- STAE/SPIE/CLEANUP Routines 



DFHDRPD: 

STAE exit routine 



01 



SPIE exit routine 



03 CLEANUP subroutine 



ehe> 



To OS 



EE^> 



ToDFHXFQ 
or Abend 



EH$> 
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OUTPUT 
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01 Calls CLEANUP subroutine and continues 
' ' abend 



02 If program check caused by excessive 
data move by the batch transformer 
(DFHXFQ), then return to DFHXFQ; 
otherwise call CLEANUP subroutine 
and abend 



Issues DISCONNECT and LOGOFF 
requests to the interregion SVC 



fetch Region Controlter- STAE/SPIE/CLEANUP Routines 



ROUTINE LABEL REFERENCE 
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INPUT 



From User Application PROCESS 



DFHDRCA 



Address of User 
Argument List 



01 If CHKP or LOG call, process and return to 
caller 



02 Issue SPIE 



03 Call CONN/ERSE subroutine, passing user's 
argument list 



04 Re-establish old SPIE 



05 Return to caller 



Batch Region Controller - Program Request Handler 
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OUTPUT 



% 



To User Application 



% 



To User Application 
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01 Program Request Handler receives control 
when the user's application issues a DL/I 
request. The language interface routine 
(DFSLI000) leaves the address of the uer's 
argument list in the work area (DFHDRCA) 



CONVERSE subroutine transmits request 
to ClCS/VS and processes reply 



REFERENCE 



Batch Region Controller • Program Request Handler 



ROUTINE LABEL REFERENCE 
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INPUT 



PROCESS 



OUTPUT 



DFHDRPE: 

If DL/I request, invoke Transformation 1 



01 



02 Issue SWITCH call to interregion SVC (to pass . 
request to CICS/VS), and await reply 



03 If Transformation 1 was called, invoke 
Transformation 4 to transform reply 



04 Return to caller 



% 



Batch Region Controller • CONVERSE Subroutine 
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If data to be transmitted is a DL/I request 
(as opposed to, for example, a sync point 
request), then the argument list must be 
transformed into a format which does 
not contain addresses, so that it may be 
interpreted by the CICS/VS region. 
Transformation 1 (in DFHXFQ) 
performs this transformation 
The reply from CICS/VS must be used to set 
the variables passed (for example, PCB, 
input I/O area) in the original DL/I argument 
list. Transformation 4 (in DFHXFQ) does 
this 



Batch Region Controller ^ CONVERSE Subroutine' 
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INPUT 



From DFHDRPA and DFHDRPE PROCESS 



Batch Region Controller - SVC Initialization 



01 Issue LOGON request to interregion SVC 



02 Issue CONNECT request to interregion SVC 



fo3| Call CONVERSE subroutine, passing PSB 
*-"■ — ' scheduling request 



04 Return to caller 



Page 1 of 1 



OUTPUT 



1 



Diagram -5.1 1.2.7-01 



01 Make batch region known to the SVC 



02 Request connection to ClCS/VS region that 
owns the PSB to be shared 



Pass the name of the PSB specified in the 
PARM field of the EXEC card 



Batch Region Controller - SVC Initialization 
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CICS/OS/VS Program Logic : Description 



INPUT 



PROCESS 



LICENSED MATERIAL — PROPERTY OF IBM 

Page 1 of 1 
OUTPUT 




If CSACRBA is non-zero, issue DFHIS 
STOPIMM (which issues an IMMEDIATE 
QUIESCE request to the interregion SVC), and 
issue DFHIS LOGOFF (which issues a LOGOFF 
request to the SVC) 



If MVS, invoke the CICS/VS SVC CSVC to 
free the AFCB 



03 Continue abend 



^ 



Interregion STAE Exit 



Diagram -5.1 1.3-01 



DFHCRC is the STAE exit which cleans up 
interregion communication. If CSACRBA 
is zero, interregion communication is inactive 



The AFCB is the block built by the 
DFHAUTH macro 



LABEL REFERENCE 



Interregion STAE Exit 



Diagram -5 k 11.3-01 
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Page 1 of 1 



INPUT 



From DFHSIJ1 or DFHMTPE PROCESS 



:> 



01 Allocate the CICS/VS region block, DFHCRB 



02 Issue LOGON request to interregion SVC 



03 Attach new connection manager CSNC 



Set the interregion slot in the TCT wait list 
to point at the SLCB ECB 



05 Return to caller 



OUTPUT 



y////////A) 



% 





DFHCRB 

















Interregion Start-Up 



Diagram -5.1 1.3.1-01 



01 DFHCRSP is the interregion start-up program 



03 The program corresponding to CSNC is 

DFHCRNP. CSNC remains attached until the 
interregion session is closed 



The interregion SVC posts this ECB when 
there is work for CICS/VS. The ZCP 
dispatcher, ZDSP, notices the posting 
and RESUMES CSNC if there are any 
new connections to handle, or if 
Interregion Quiesce is complete 



Interregion Start-Up 



LABEL REFERENCE 



Diagram 5.11.3.1-01 
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INPUT 



From DFHCRSPor DFHZDSP PROCESS 



LICENSED MATERIAL — PROPERTY OF IBM 

Page 1 of 1 
OUTPUT 




If interregion quiesce is complete, issue 
DFHIS LOGOFF and DFHPC RETURN 



If there are any TCTTEs on retry chain, issue 
DFHIS RECEIVE for them 



03 For each SCCB that represents a new incoming 
connection, allocate an interregion TCTTE 
and issue DFHIS RECEIVE. If RECEIVE fails 
but can be tried again, place TCTTE on retry 
chain 



Issue DFHKC SUSPEND. When CSNC has 
been RE SUM Ed return to step I Q1 I 



New Connection Manager 



Diagram -5.11.3.2-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





If quiesce is complete, LOGOFF from SVC 




CRN030 




and complete transaction 










02 


DFHIS RECEIVE attaches the mirror ] 




CRN050 






transaction, CSMI. If the attach fails, but 










can be tried again (for example, MAXTASKS), 










then the interregion TCTTE is placed on the 










retry chain 










03 


The SCCBs are scanned using the SCACB. 




CRN150 






These blocks are all generated by the inter- 










region SVC. (See also note 02 above) 










04 


CSNC is only active when new incoming 




CRN260 






connections are to be handled, and when 










quiesce is complete. Incoming data on 










existing connections is awaited, using 










DFHKC TYPE=WAIT, by the mirror 










transaction, CSMI. CSNC is RESUMEd 










by DFHZDSP, the DFHZCP dispatcher 









ROUTINE LABEL REFERENCE 



New Connection Manager 



Diagram — 5.1 1.3.2-01 
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Basic 

Mapping 

Support 



Mapping 
Control 



6.1.1 



Route List 
Resolution 

6.1.21 



TYPE-ROUTE 



6.1.1.1 



3270 

Input Mapping 
•6.1.5.1 



3270 

Input Mapping 

6.1.4 



PAGEBLD 
Non-3270 

6.1.3.1 



Route List 
6.1.2.1 



TYPE = MAP 
and 
TYPE = IN 



TYPE = PAGEBLD 
orTEXTBLD 

6.1.1.3 



TYPE=PAGEOUT 
6.1.1.4 



TYPE = PURGE 
6.1.1.5 



6.1 



Terminal Page 
Processor 

6.1.7 



Non-3270 
Input Mapping 
6.1.6 



3270 

Output Mapping 
6.1.5.2 



3270 

Output Mapping 
6.1.4.2 



PAGEBLD 
3270 

6.1.3.2 



TESTBLD 
Non-3270 

6.1.3.3 



TESTBLD 
3270 

6.1.3.4 



PAGEOUT 

6.1.3.5 



I nsert 
Device 
Dependencies 



FASTER 2260 
Output 
Formatting 6.1.3.6 



Page 
Retrieval 



Terminal Page 
cleanup 

6.1.8 



Terminal 

Output Subroutine 
6.1.7.1 



6.1.9 



Delayed Message 
Delivery 

6.1.10 



Execute Page 
Retrieval Commands 
6.1.9.1 



Page Query. 
Reset to Autopaging 
6.1.9.2 



Page Purge 
6.1.9.3 



Page Copy 
6.1.9.4 



Page Chain 
6.1.9.5 



Single Keystroke 
Retrieval 

6.1.9.6 



Basic Mapping Support 



Diagram -6.1.0-01 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OP IBM 



Input 



Processing 



Output 



PAGE 1 OF 



IDFEEKS macro 



!-/" 



iddri 



Itcapcta 7 i 7 
I PPT entry 1 1 j 
j address | j J 



PPTTLB 
Type 



TCAHSTE1-8 
BflS 

Request 
bytes 



TCAflSTA 

Title 

address 



TCAflSTLDR 

Header 

address 



TCAHSRLA 
Route list 
address 



TCAflSTRL 

Trailer 

address 



BflS Control: Bequest Analysis 



Acquire address space for 
BflS work area (DPHOSPUA) 
and save application 
program registers 

Initialization and house- 
keeping 



1CPHKEP CSECT 



Housekeeping 



Determine if necessary to 
move addresses fron COBOL 
parameter list to TCA 



22{>0 



1/ 



tt> 



0zz{> 



04 Move BflS request |\ 

L — ' ■ * ~< \ «... * 77777777777771 > 

information fron TCA to \f 

OSPMA I 



TCAOSPhA 
[BflS work 
I area 
(address 



OSPWA 



iOSPRSA | 

Applica- | 

tion j 

program j 

reg. save f 

laria | 



TCA 



TCASVHID 
Service 
module 
control 
informa- 
tion 



TCAMSTA 

Title 

address 



TCAHSHDR 

Header 

address 



TCAHSRLA 
Route list 
address 



TCANSTRL 
Trailer 
address 



OSPSVDTA 

Request 

info 



Diagram - b. 1. 1-01 



[0 1 1 Some application prograas 

registers arc tcaporarily saved 
in the TCA until tae OSPUA is 
acquired. 

Indicate to interval Control 
Prograa that, it the Bunavay 
XasK interval expires during the 
execution at fcflS ervice 
prograas, aonotaal termination 
snculd ne deter tea until control 
mas been teturncd to the 
application prograa. 

j02j Set up 0W£ exit address. 

Initiate LSPt, tc aonitor Purge 
Delay IP&GD1.A1) , if sysgened by 
the user. 



\B 



this consists ot all intoraation 
in the TCA coaaon coaaunication 
area except the ccaaon register 
save area. 



Label 
DFHI1CPHA 



BflS Control: Request Analysis 



Diagram - t>. 1. 1-01 
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Input 



PAGE 2 OP 2 



r flCAOSPWA 
i |BHS wor 

i \mi 



k ! I 



E--> 



TCAPCAAA 
Pacillty 
Ctrl area 
address 



TCAMSTR1 
BBS 

request 
byte 1 



->Q]tl' 



foSPT 
(BflS 



[?-— ]-!-. 



I0SPIND01 
internal 
j indicator 



00- 



1 






« 

1 
1 
1 


OSPEDISP 
Routing 
disposi- 
tion 




1 

1 


OSPDDISP 
Direct 
disposi- 
tion 


1 
1 

1 

1 


0SP3IP 

First 

routing 

TIP 

address 


1 

1 

1 


OSPDTTP 
Direst TTP 
address 


! 

1 










Deteraine if task must be 
a terminal oriented task 
to satisfy the DPHBWS 
request 

Perform the request 
analysis and force any 
pending output 



[771 



complete Pending 
Output 



HCPCPO - force 
completion of 
pending output 



J 



7777777777!'/ 

■y 
'7 

\ 



|07j Set up control information 
and build Terminal Type 
Parameter (TTP) for the 
originating terminal 



z{>0 



< |»«| > JOFHBLR 



Qzz{> 
0zz{> 
■ 0zz{> 



si 





TCA 

jtcapcac 1 

[ABEND Codel^ 
OSPNA 




OSPTR1-8 

BMS 

request 
bytes 




OSPRDISP 
Routing 
disposi- 
tion 


OSPADISP 
Direct 
disposi- 
tion 


OSPADISP 
Active 
disposi- 
tion 










OSPCTP 

Current 
TTP 






r 1 OSPDTTP 
j Direct TTP 

TTP 

L> rms 













BMS Control: Request Analysis 



Diagram - b. 1. 1-02 



105j Transaction ABEND ABM3 is issued ! 
if the task is not attached to a 
terminal and should have been. 

[0b j If it is necessary, previously 
built output will be forced to 
completion so that the current 
request can be processed. 

|0b"} Pass control to the routine 

processing specific request: see 
overview. 



Routine Label 



BMS Control: Request Analysis 



Diagram - b. 1. 1-02 
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CICS/OS/VS Program Logic: Description 
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Input 




DPHHCP: 

J01 1 Porce to completion any 
pending output prior to 
processing this TYPE=RO0TE 
request 



zzzzzzzzzzzzz{/ 



< !••! > 



Complete Pending 
Output 



MCPCPO - force 
completion of 
pending output 



fields in OSPMA pertaining 1, 

to the ROOTS reguest | 



OSPMA 






OSPCTTP 
Current 
TTP 
address 




OSPAOISP 
Active 
disposi- 
tion 


OSPRTl-8 
Type 
reguest 
bytes 


OSPMA 






OSPTOEL 
Routing 
time or 
interval 




OSPIND01 
Indicator 


OSPTTCNT 
Terminal 
type count 


OSPOPRCL 

Operator 
class 


OSPTERID 
Error 
terminal 
ID 









BUS Control: TIPE«BOOTE Processing 



Diagram - t>. 1. 1. 1-01 



J01{ The pending output that is 

forced to completion may be for 
the direct terminal or the 
routed terminals. 

[02| Pi elds from the B00TE reguest 
must be saved to be used at the 
completion of the logical 
message built under this routing 
environment. 



Routine Label Bef 



BBS Control: 1IPE=ROOTE Processing 



Diagram - t>. 1. 1. 1-01 
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input 



Address of 

title^ 

record 



OSPTA 

Address of 
title 



OSPITP 
j Rooting 
ITTP 
i address 



TTPRLCHA 

Chain 

address 



TTPPGBOP 

Buffer 

address 



TFPflHPCP 
flap chain 
pointer 



CSAOHQIO 
Onigue ID 
counter 



BBS Control: TIPE»BO0TI frocessing 



Processing 



PAGE 2 OP 2 



foFJ Pree old title record's w „ w „,„ v 
1 — > M 77777777777771 > 
save area and get a save \/ 

area for nev title record, | 

if any j 



04 j Release any old terminal mK -„^^ tmrmmm ,l77\ 
1 — ' \ .....'• 7777777777/ /I 
type parameters (TTPs) 



{> 



| OS | Build TTPs for this ROOTE 
reguest 



/« — 1\ 

< !••! > 

Vi \/ 



|0t>) Build unigue ID for this 
logical aessage 

foT] Return to application 
prograi 



771 > 



7777777777/7 i 



f:l 



OSPTITLE 
Address of 
title 
record 



OSPTTP 
Routing 
TTP 
address 

OSPDTT?" . 
Direct TTPj 
address 



CSA0NQID j 
Onigue ID ( 
counter j 



JOSPLHID 1 
(Logical { 
jaessage IDj 



Diagraa - t>. 1. 1. 1-02 



Motes 


Rottine 


Label 


Ref 


Notes 


Routine 


Label 


Ref 


HE 




HCPCKTTL 












JQaj Also releases any storage 
chained off the TTPs. 




flCPCKTTP 












HE 




UCPBTIP 












i 




flCPEXIT 




1 









BflS Control: TIPI«ROOTE frocessing 
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CICS/OS/VS Program Logic: Description 
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PROPERTY OF IBM 



Processing 



tt_„ 



TCAHSIOA 
Alternate 
I/O area 
address 




0- 



>Q 



DFHHCP: 

[ 01 | Set ud TIOA for processing, 
and possible restoration 
(save) prior to program 
exit 



7777777777777j{^ 



< \»m\ >)HCPPTI0A 
s r— 1/ 1 

1TT0A setu 



1 021 Locate requested map 



< ]••] >]WCPHAPL0 

V— 1/ !- 

JHap locate 



■ J 

7777777777// 



i^ N > 



1 031 Determine the nodule that 
completes the processing 
for this request 

A. If 3270 



)«>|>}pFHH3? 



3270 flapping 



B. If not 3270 



k!/' 



Non-3270 Tnput 
Happing fi 



B*S Control: TTPT?=HAP and TYPE=Ilf Processing 



OSPHA 






OSPTIOA 

Data 

address 




OSPSTOA 
Address 
from where 
OSPTTOA 
was taken 


TTp 






TTPHtn 
Loaded mao 
set name 






TTPHLA 
Loaded map 
address 


1 

- 







Diagram - 6.1. 1.2-01 



lOli If no TtOA supplied, terminate 
with 'ABB?'. 

f 2 1 Deletes old aap set if no longer 
needed. Checks if map too large 
for page. Terminates with •ABHO* 
if map not found or 'ABM 1 if 
■ap is not an input mode map. 

If there is a Tab map, its 
address is stored in TTPTPHA, 
and the format indicator is 
moved to TTPtPHI to indicate 
actual horizontal/vertical tabs. 

If there is no Tab map, TTOTHA 
is set to a negative value, and 
TTPTfHI remains x'OO*. 



Routine Label 



BBS Control: TTPE=BAP and TYPE=TN Processing 



Diagram - fi. 1.1.2-01 
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Processing 




[••••I > 

DFHBflS 
TYPE=IN 



0— ! 



Ott I Locate requested nap 



< 1«»| >Vhcph*plo 



l.lap 



Fo5\ Determine the nodule that 
completes the processing 
for this request 

A. Tf 3270 



ZZZ27z() 



\ 



[••| V >]nPH!132 

13270 Happing 



B. Tf not 32-70 



& 



Hon -3770 Input 
tapping fi 





' 


JTTP1LN 
(Loaded nao 
I (set nane 




ITPPILA 
(Loaded nap 
jaddress 







BUS Control: TYPE=*aP and TTPE=TW Processing 



Piaqram - 6. 1. 1.2-0? 



Poutine Label Pef Notes 



I Routine Label Ref 



PIS Control: TYPE=HAP and TYPE=IN Processing 



Diagram - 6.1. 1.2-02 
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LICENSED MATERIAL 
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Processing 



TEXT BLD | BOUT* 



TCAHSIOA 
Alternate 
I/O area 
address 



r iTCAPCAAA 
(Facility 
'control 



frcTTED* 
I Data 



OSPHA 






OSPTR2,3,4 
Type 
request 
bytes 




OSPHSH Nap 
set name 




OSPIJSA Hap 

set 

address 




OSPHN Hap 
name 


- 


OSPHA Bap 
address 




. 


rTP 






TTPF1LN 
Loaded map 
set naiie 




TTPNLA 
Loaded map 
address 











> 



f02l-l > 
\/ -./ 
> 



V n M Set up 7T0A for processinq. 
and possible restoration 
(sate) prior to program 
pxit 



77777777777; 



TTOA setuo 



1 02 1 Locate requested map 



tzzzzT/ 



7777777777777/ X > 



| 03] Go to the Page and Text 
Build progran to process 
data 



< v l-»l > 



t>age and Text 
Build Program 



Bf!S Control: TTPE*PAGBBLD or TEXTBLD or ROUTE Processing 



OSfVA 


1 




OSPTIOA 

Data 

address 




OSPSTOA 
Address 
from where 
OSPTIOA 
was taken 




TT p 






TTPHLH 
Loaded map 
set name 




TTP1LA 
Loaded map 
address 






i 



Diagram 



6.1. 1.3-01 



ED 



102 I Deletes old map set if no longer 
needed. Checks if map too large 
for page. Terminates with • ABfJO* 
if map not found or •ABHO* if 
map not output mode. The map 
locate just pertains to PAGEBLD 
requests. 

[oi l The Page Build program does all 
the page formatting and device 
dependence. 



BHS Control: TYPE=PAGEFLD or TETTBLD or PCUtf. Processing 



Diagram - ft. 1.1.3-01 
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PROPERTY OF IBM 



Processing 




E3 



Tf PAGERLP overflow 
occurred in DPHP8P, then 
return to application 
program 



777777/7/7///T S *> 







Tf PUGEBfD overflow did 
not occur, an* 

h. There is another TTP 

B. There are no more ttds, 
then return to the 
application program 



Efr'cj' 



e™i 



\ / 



BIS Control: TYPR=PAGEBLI> or TEXTBLD or RCUTE Processing 



OSPPOP 
PAGEBLD 
overflow I 
info. 



Diagran - 6.1.1.3-02 



Motes 



JOM Return control to the 

application program immediately 
following the macro expansion, 
except when OPLOW was specified. 
In that case control is given to 
the application program at the 
location specified via the OPLOR 
operand. 



Routine Label Ref 



BUS Control: TYPE=P*GPFLn or TETTBLP or-RCTITF Procpssing 



Routine r.abel 



*. 1. 1.^-"2 
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Processing 



PAGE 1 OP 1 



OSP1TP 1st 
routing 
TTP 
address 



OSPDTTP 
Direct TTP 
address 



OSPDDISP 

Direct 

disp. 

OSPEDISP 
Routing 



disp. 



IDPHEBS 
|TYEE=PAGECOT 

i r:i_x 

I r > 



> 



> 



TTPCHAIN 
Address of 
next TTP 



BUS Control: TYPE=PAGEO01 Processing 



t£1 j co. P le« an, pendx„, ^^.^ 
output for this logical 1/ 



ing I J 



Complete pending 
output | 

0.1. 1.M.1J 



|02j Release all the TTPs and 
any storage chained off 



< |«»| >JSCPFTTPR 



Release TTPs 



Oil Exit BUS control program 



EE=3 



OSPCTTP | 

Current | 

TTP | 

address I 

"(OSPADISP I 

I Active | 

I disp. | 



Diagram - t>. 1. 1.4-01 



I01| Practically all the PAGEOOT 

processing takes place in the 
HCPCPO subroutine. The mainline 
sets up Fcinters for HCPCPO. 

1 02 j The storage chained off the TTP 
is the page buffer, map copy, 
and map TIOA. 

[q3 ] Pree ar«as chained off the OSPftA 
like the title record save area 
and the returned page list. 
Re -initialize OSPWA. 



Label 
MCPPGO0T 



Label Ref 



BMS Control: TYPE=PAGEO0T Processing 



Diagram - b. 1. 1. 4-01 
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Input 



Processing 



PAGE 1 OP J 



L 



JflCPCFC Routinei 



OSPKA 



10SPCTTP J 
jCurrent i 
(TTP J 
• address J 



OSPAOISP 
Active 
displace- 
ment 



ITTPPGNO 
IPage j 
j number J 

ITTPTCN1 | 
I Terminal 
j jcount I 

1 ZZT 

| iTTPTCTTE ~| 
| | |TCTTE | 
| j | address J 



I TCTTE 

L> r 

1TCTTETI 



OSP1ITLE 
Title 
record 
address 



OSPTEHID 
Error 
terminal 
ID 



OSPOPHCL 
Operator 
class 



OSPPGCN 

Page chain 
number 



OSPTHb 
Type 
request 
byte b 



(OSP_. 
|Dela< 
j amount 



■••••I > 



E~~> 

in—- > 

0-~ > 



IDEL / >[h\ \/ -,/ 

ay | •— - • «—- 1 

03-—) 



[ospiskIz ] >fi] 

Its key j l— j 



DPHflCP: 

[oTj Go to Page and Text Eui'ld 
. program to process any 
remaining data in the 
buffers 



(Page and Text 
Build Program 



[02 j If disposition not egual 
STORE 

[ 03 j Get and build flessage 

Control Record tHCR) for 
the logical message 

fbT] If not • delayed delivery 






'Eyf^ 



05j Osing the DFHIC TIPE=P0T 

macro, initiate the CSPS -~--- : 
task at a specified time 
in the future and pass the 
NCR as data to that task 



jjiSfoin 

p)b] 0smg the DFHTS TYPE=P0T .... „T ...,'■.,. I V 

1 — ' . iL ..,.„ 77777777777771 > 
macro, place the HCF on • — ]/ 

Temporary Storage 




All ! 

associated! 
fields \ 



ITCAICRT ( 

Re guested i 

time j 

TCAICQID I 
Request IDj 

TCAICOA I 

Data | 

laddress j 



(TCATSDA 

(Data 

(address 



BHS Control: Complete PendmgOutput 



Diagram - b. 1. 1. <t. 1-01 



[01 J Any partially built pages must 
be completed according to OUT, 
STORE, or RET0RN. 



[02] 



joTj 



Disposition egual to STORE 
indicates that the pages have 
been put on Temporary Storage. 
This requires the building of a 
Message Control Record i«CR) and 
the initiation of a task (CSPS) 
to later retrieve these pages 
from Temporary storage or LINK 
to a program (DPHTPR) to 
retrieve these pages now. 

Included in this NCR is a list 
of terminal identifications that 
are to receive the logical 
message. 



E3 

I 

| j05j The CSPS task uses the program 

| DPHTPS which builds an AID and 

I issues a DPHKC TYPE=SCHEDOLE 

I macro for every terminal 

I identification in the HCR. 
I 

I 

I 

BHS Control: Complete PendmgOutput 



03 



Diagram - b. 1. 1. a. 1-01 
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hcr 

[mcecpid I 
Operator i 



JHCR1RMID I 
Terminal j 

\™ J 



BBS Control: Complete PendingOutput 



PAGE 2 OP 



filial N 



1 7 i If CTRL=RE1AIN or RELEASE 






|»«| >JMCPAID 


1 


* l/ j Build AID and 1 
[SCHEDULE f 



09 | Release HCR 
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perforaed. 
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control characters set is stored 
in the TTPDCCAD field of the 
TTP. 



Routine Label Fef 



BBS-Data Streaa Builder (DPHDSB) 



Diagraa - 6. 1.3.6-01 
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LICENSED MATERIAL 



PROPERTY OF IBM 



Input 

r~ — 



Processing 



Output 



If 'Prase flag is off, 
generate a coaaon 
control character 
sequence to position 
the cursor at line 1, 
colunn 1. 

D. Scan page buffer for 
and elininate trailing 
blanks. 

E. If 360 « and TTPWRSR not 
equal then a control 
character sequence is 
generated to position 
the cursor at the 
location given by 
TTPC0RS*. 

F. ADpend a Pons Peed 
sequence for 
transmission of a full 
paqe to a 3600 printer. 

G. If TWTLTT and Tab 
feature present, insert 
appropriate device 
control characters. 



02(> 
02{> 



: l\ r- , 



2<>a 



BBS-Data Stream Builder (DPHDSB) 



«>age Buffer 



{tiohtdl j 



Diaqraa - 6.1.3.6-02 



Routine Label 



BHS-Data Streaa Builder (DPHDSB) 



Diagraa 



6.1; 3.6-02 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OF IBM 



Processing 




If BCHLU, an IRS 
(Inter-Record 
Seoarator) Is used 
instead of the HL 
character to separate 
records. 



0«l Provide total data length 
after compression of the 



2<>0 



page buffer. 



oa 



/i — 1\ r 

< !••! >]D?R?PP 
[ofT ] Return to caller 



^ 




BUS-Data Stream Builder (DPHDSB) 



Diagraa - 6.1.3.6-03 



The page buffer is scanned 
line by line for trailing 
blanks. Trailing blanks are 
eliminated, thus reducinq the 
effective length of the data 
stream to be transmitted. The 
logical new line character 
which terminates each line is 
replaced by its physical 
equivalents from the device 
control character set. The 
physical new line characters 
are inserted after the first 
nonblank character 
encountered when backscanning 
a particular line. The data 
from any of the following 
lines are moved after the 
preceding lines physical new 
line seguence. This buffer 
compression is continued 
until the stopper character 
is encountered. 



BHS-Data Stream Builder (DPHDSB) 



Diagram - 6.1.3.6-03 
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PAGE 1 OP 1 



1CTTE 
fTCTTECSS - "! 



\mi J\ 

I ,/ 



. > 



£]•••) 



DPHP2P: 
ioT] Obtain work areas 



1 02 j Determine size of 22b0 



|0JJ Deteraine size of 3270 



] 04J Deteraine if tube or 
printer 



A. Eliainate binary 2eroes 
and put in CBLP fcr 
each line then put in 
EM and go to AOJ0ST (if 
printer) or (if tube) 



8. Prepare output based 
on: size of 22t>0 
of J270, user SHI and 
user NL characters 
specified and go -to 
ADJUST 



, size V. ,/ L-i 



[Obi Swap pcmters so data area- 
is now a TIOA 



Idphtpp 



PASTER 22b0 Output Poraatting 



Diagraa - b. 1. 3. 7-01 



joi] Issue GETHAIN (one for Terainal, 
one for user) . To establish work 
buffers. 

| 02 | Test for 22b0 screen size 
(240,480,9b0). 

foji Test for J270 screen size (480, 
1920) . 

[ 04} Check if display or printer. 



ca 



A. If printer, eliainate binary 
zeroes and insert CRLP 
(carriage return / line feed) 
for each line, m (end of 
aessage) on last line. 

B. If display prepare output 
(either 40 characters per 
line or 80 characters per 
line and nuaber of lines 
based en 22t0 and/or 3270 
sizes, inserting user coded 
Sfll or new line sysabois as 
reguired) . 



Rottine Label 



[Ob] Put prepared output in TIOA, 
adjust FCinters and return. 



PASTER 22b0 Output Poraatting 



Diagraa - b. 1. 3. 7-01 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OF IBM 



Processing 



PAGE 1 OF 2 



TCABMSUN 
Hap name 



TCAFCAAA 
Address of 

TCTTE 



TCTTEDA 
Address of 
TIOA 



TIOADBA 
Data to be 
■apped 



00 



(0l[ Enter DFHB?1SiH module 



02 Read data fron teninal 



EE 



Issue DPHTC 
|TTPE=READ macro 
) instruction 

1.5.10 



(03 | Load map 



1U 



Issue DPHPC 
TYPE=L0AD macro 
instruction 

1.3.4 



Pre-VS 3270 Input .lapping Operation - DPHBHSHK 





TCA 






' 


TCAFCAAA 
Address of 
TCTTE 




1 


PCTTE 




TCTTEDA 
Address of 
TIOA 




TIOA 




TIOADBA 
Data to be 
mapped 




TCA 




* 


TCAPCLA 
Address of 
loaded map 




RAP 




DFHHAPDS 
Hap and 
field . 
specifi- 
cations 













Diagram - 6.1.4.1-01 



(01[ DFHSHSsn is loaded and entered 
via a DPH3MS TYPE=IN or SAP 
macro instruction from the 
application program when CICS 
V2.3 object code is executed on 
CICS/VS. 

DFUBMSMH is entered from the 
DFHJICP module when a map 
assembled under CICS V2.3 is 
loaded by a CICS/VS DFHBMS macro 
request* 

J02J When DPHBMS TYPE=IN is 

requested, the data to be mapped 
is read from the terminal via a 
Terminal Control READ. 

[03J If the name of the map, and not 
the address of the map, has been 
passed by a DPHBMS request, the 
map is loaded via a Program 
Control LOAD. 



Routine Label 



Routine Label 



Pre-VS 3270 Input (lapping Operation - DFHBHSMH 



Diagram - 6.1 .4.1-01 
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LICENSED MATERIAL 



PROPERTY OP IBM 



PAGE 2 OP 2 



0— > 



Pre-vs 3270 Input Happing Operation - DPH3MSHM 



Check for input mapping 
error 



Ej> 



G3 
G3 



<£ 



<£ 



Map data to 3270 input 
area 



Release old TIOA 



DFHSCP 


Pree storage 


1 


.2.2 


te map 


DFHPCP 


Issue DFHPC 
TYPE=DBLETE macro 
instruction 

1.3.5.1 



[081 Exit DPHBMSMH module 



*l 



V 



^> 





TCA 








TCAPCAAA 
Arid res s of 
TCTTE 




TCTTE 




' 


TCTTBDA 
Address of 
TIOA 




TIOA 






TIOADGA 
SatS** 













Diagran - 6.1.4.1-02 



(ot[ If the terminal is not a 3270 
(ABUT) or if an output nap has 
been loaded (ABHI) , the data is 
not mapped and the transaction 
is abnormally terminated. 

[05] 

fbT| If a DFHBNS TYPE=SAVE has not 
been requested, the old TIOA is 
released via a Storage Control 
FREBHAIN. 

[07| If the name of the map, and not 

the address of the map, has been 

passed by a DFHB3S request, the 

map is deleted via a Program 
Control DELETE. 

(06( Return to caller. 



Routine Label 



Pre-VS 3270 Input tapping Operation - DPHBHSMM 



Diagram - 6.1.U.1-02 
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CICS/OS/VS Program Logic: Description 
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Processing 



Output 



PAGE 1 0? 2 



TCA3MSMM 
ttap nane 



TCAPC&AA 
Address of 
TCTTE 



TCTTEDA 
Address of 
TIOA 



^> 



=i >0 



h=;> 



DFHBMS: 
[1J7| Enter DFHBMSMM nodule 



2 Loa d ma p 



\i »/ 



Issue DFHPC 
TTPE=LOAD nacro 
instruction 

1.3.3 



r 



[03| Check for output mapping 



ej> 



Abend task 



iOUl Hap data to 3270 output 
area 





TCA 






■ 


TCAPCLA 
Address of 
loaded nap 




HAP 






BKOMAPSC 

write 

Control 

Character 




BHOHAPCP 

Cursor 

position 


BHOPHAPD 

Default 

data 











Pre-VS 3270 Output Mapping Operations - DPHBMSMK 



6-1.4.2-01 



|01| UFHB1SHS is loaded and entered 
via a DFHBMS TYPE=0UT macro 
instruction fron the application 
prograa when CICS V2.3 object 
code is executed on CICS/VS. 

DPEBMSHM is entered from the 
DFH1CP nodule when a nap 
assembled under CICS V2-3 is 
loaded by a CICS/VS DFHBMS nacro 
request. 



[02] If the name of the nap, and not 
the address of the nap, has been 
passed by a DFHBMS request, the 
map is loaded via a Program 
Control LOAD. 

(03[ If the terminal is not a 3270 
(ABMT) or if an input nap has 
been loaded (A3HO) , the data is 
not napped and the transaction 
is abnormally terminated. 

1041 The cursor position, the Write 
Control Character, and the data 
are formatted for 3270 output. 

If DATA=ONLY is specified, 



Routine Label 



fields containing user data in 
the TIOA are napped. 

If DATA=TES is specified, fields 
containing user data are mapped 
along with default data 
contained in the map. User data 
always overrides default data. 

If DATA=HO is specified, default 
data mapped. 



Pre-?5 3270 Output flapping Operations - DFHBMSMM 



Diagram - 6.1.4.2-01 
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Processing 



PAGE 2 OF 2 



JTCAPCLA 
(Address of 
[loaded map 



B— > 



BMOMAPWC 
rtrite 
Control 
Character 



BMONAPCP 

Cursor 
position 



B10PMAPD 

Default 

data 



O0 



05 Release old TIOA 



Free storage 



( 06| Write mapped data to the 
terminal 



<W> 



Issue DFHTC 
TYPE=WRITE mi 
instruction 



07 Delete map 



\i 1/ 



| 08 | Return to caller 



f=m 



Pre-vs 3270 Output Mapping Operations - DPHBHSMM 





TCA 








TCAFCAAA 
Address of 

TCTTE 




-> 


PCTTE 




TCTTEDA 
Address of 
TIOA 




TIOA 






TIOADBA 

Mapped 

data 













Diagram - 6.1.1.2-02 



If a DPHBliS TYPE=SAV£ has not 
been requested, the old TIOA is 
released via a Storage Control 
PSEEMAIN. 



i£ii 



t 07| If the name of the maps and not 
the address of the map, has been 
passed t>y a DFHBMS reguest, the 
map is deleted via a Program 
Control DELETE. 



Routine Label Ref 



Pre-VS 3270 Output Mapping Operations - DPHBHSMM 



Diagram - 6.1.1.2-02 
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CICS/OS/VS Program Logic: Description 
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TCAOSPWA 
Address of 
OSPWA 



r IOSPCTTP 
'Address of 
TTP 



TTPSMFCP 
Address of 
map 



MAP 



DFHMAPDS 
Hap and 
field 
specifi- 
cations 



TCAFCAAA 
Address of( 
TCTTE I 



TCTTBDA 
Address of 
TIOA 



TIOADBA 
Data to be 
mapped 



Processing 



PAGE 1 OF 1 



^> 



DFK3.MS: 
(0l( Enter DPHM32 module 

[02J Read data from terminal 



\i 1/ 



Issue DFHTC 
TYPE=READ ma 
instruction 



031 Check for input napping 
error 



(0H[ Map data to 3270 input 
ace a 

f05J Release old TIOA 



\1 1/ 



Free storage 



[061 Return to control program 



iU 



ll—v 



E^ 



V 







TCA 








• 

-> 


TCAFCAAA 
Address of 
TCTTE 

rCTTE 






TCTTEDA 
Address of 
TIOA 




.> 


TIOA 






TI0AD3A 
Data to be 
mapped 




> 


TCA 






TCAMSCBN 
Error code 
















" 


TCAFCAAA 
Address of 
TCTTE 






-> 


PCTTE 






TCTTEDA 
Address of 
TIOA 




:> 


TIOA 






TIOADBA 

Mapped 

data 















3270 Input .lapping Operations- DFHH32 



Diagram - 6.1.5.1-01 



Notes 


Routine 


Label 


Ref 


Notes 


Poutine 


Label 


Ref 


(01J The DFHH32 module is entered via 


DPHM32 


DOCK 3201 












a DPHBMS TYPE=IN or MAP macro 
















instruction. 
















f02{ When DFH3MS TYPE=IH is 




D0CM3211 












requested, the data to be mapped 
















is read from the terminal via a 
















Terminal Control READ. 
















f 03[ If a TIOA does not contain a 




DOCM3213 












data length and a sba sequence, 
















the data cannot be mapped and an 
















error code is returned in the 
















TCA. 
















a 




DOCM3212 












jObj If a DFHBHS TYPE=SAVE has not 




DOCB3214 












been requested, the old TIOA is 
















released via a Storage Control 
















PKEEMAIN. , 
















& 


' 


DOCM3210 













3270 Input Mapping Operations- DFHM32 



Diagram - 6.1.5.1-01 



Section 2: Method of Operation 



695 
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Processing 



PAGE 1 OF 2 



TCAOSPWA 
Address of 
OSPWA 



OSPCTTP 
Address of 

TTP 



TTP11PCP 
Address of 
nap copv 



Map Copy 



BMS1DA 
Address of 
TIOA copy 



H=i> 



0^> 



3MSCURSR 

Cursor 

position 



BHSWCC 
Write 
Control 
Character 



3HSPEA 

Default 

data 



^>0 



1>® 



0— > 
0^> 



DFHBSS: 
foTI Enter DFHM32 module 



021 Merge map specifications 



031 Create sort tags 

A. DATA=0NLY 

B. DMTA=YES 

C. DATA=N0 

[oa] Sort map fields 



[d5| Rap data to 3270 output 
area 



06 Release work areas 



\i »/ 



Pree storage 



TCAPCAAA 
Address of 
TCTTB 



TCTTEDA 
Address of 
TIOA 



TZOADBA 
Page of 
mapped 
3270 dat 



Pre-VS 3270 Output flapping Operations - DPHJI32 



Diagram - 6.1.5.2-01 



Notes 


Routine 


Label 


Ref 


Notes 


Routine 


Label 


Ref 


|0l( The DPHH32 module is entered via 
a DFHBMS TJPE=*PAGEBLD, TEXTBLD, 
OUT, STORE, or RETURN macro 
instruction. 


DPHH32 


DOCH3201 




B. (Then DATA=YES is specified, 
fields containing user data 
in the TIOA are tagged for 
mapping; otherwise, fields 
containing default data in 
the map are tagged for 




DOCH3205 




|02[ When multiple PAGE3LD or TEXTBLD 




DOCH3202 




mapping. 








requests are grouped into one 
















page, the specifications are 








C. when DATA=NO is specified. 




DOCM3205 




merged into one map. 








fields containing default 
data in the map are tagged 








The WCC from the first requested 








for mapping. 








map in the page determines the 
















HCC for the page unless it is 
overridden by a HCC from a 
DPHBMS CTRL operand request. 








I Oil Sorting occurs only when map 
fields are specified out- of 
sequence or when multiple 




DOCB3206 




The cursor position from the 
last requested map in the page 








PAGBBLD or TEXTBLD requests are 
grouped into one page . 








determines the cursor position 
















on the page unless it is 








[05} 




DOCM320? 




overridden by a DPHBHS CURSOR 
















operand request. 








[06[ Release all map copies, TIOA 

copies, and related mapping work 








EI 








areas via a Storage Control 

PREBHAIN. 








A. Hhen DATA=ONLY is specified. 




DOC33203 












fields containing user data 
















in the TIOA are tagged for 
















mapping. 










i 
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CI CS/OS/VS Program Logic: Description 



LICENSED MATERIAL — PROPERTY OF IBM 



Input 



(07| Send page to destination 



<w> 


TSP 1.8.1 




<S> 




DPHTPP 


Process page 


1.5. 



81 Return to DPHPBP 



Pre-TS 3270 Output lapping Operations - DPHM32 



f=t 



V 



PAGE 2 OP 2 



Diagram - 6.1.5.2-02 



Notes 



(07( The Terminal Page Processor 
writes the page to the 
originating terainal when 
TYPE=OUT is specified, or places 
the page on Temporary Storage 
when DPHBHS TYPE=STORE is 
specified. 



Routine Label Bef 



Pre-VS 3270 Output Sapping Operations - DPHH32 



Diagram - 6.1.5.2-02 
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Page 1 of 1 



INPUT 



PROCESS 



OUTPUT 







TCA 






r 


TCAFCAAA 


• • • • j 






L 


TCTTE 




i— *• 


TCTEIFHD 


N 




TCA 


^ 




V 






TCAOSPWA 
Address of 
OSPWA 






OSPWA 






OSPCTTP 
Address of 
TTP 






TTP 






TTPMMFCP 
Address of 
map 






.MAP 








DFHMAPDS 
Map and field 
specifications 






















TCA 








TCAFCAAA 
Address of 
TCTTE 






> 




V 




TCTTE 




— - 


TCTTEDA 
Address of 
TIOA 






TIOA 








i — ► 


TIODBA 
Formatted data 
to be mapped 








> 

















[06J 



Enter DFHIIP Module. 



Check for INBFMH*DIP 



<^l 



Issue DFHDI 
TYPE=RECEIVE macro 
instruction 



Read data from terminal. 



<n^ 



DFHDIP 



Issue DFHTC 
TYPE=READ macro 
instruction 1.5; 10 



TIT) Check for input mapping error. 

Format data and remove control characters. 



Map data to input area. 
Release old TIOA. 



<n3 



DFHSCP 



Free storage 



Return to control program. 



o@ 



J 



% 





TCA 






TCAFCAAA 
Address of 
TCTTE 






TCTTE 




1— 


TCTTEDA 
Address of 
TIOA 






TIOA 






TIOADBA 
Date to be 
mapped 






TCA 






TCAMSCBM 
Error code 




TCAFCAAA 
Address of 
TCTTE 




TCTTE 




r— 


TCTTEDA 
Address of 
TIOA 






TIOA 






TIOADBA 

Mapped 

data 











Non-3270 Input Mapping Operations - DFHIIP. 



To DFHMCP 
6.1.1.2 



Diagram 6.1.6-01 



E 







[06J 



The DFHIIP module is entered via a 
DFHBMS TYPE=IN or MAP macro 
instruction. 

For the BLU, INBFMH=DIP may be 
specified on the PCT to give Batch 
Data Management on input. 

When INSBMH=DIP is requested, data 
data is read using a Data Interchange 
RECEIVE. 

When DFHBMS TYPE=IN is requested 
the data to be mapped is read from 
terminal via a Terminal Control READ. 

If a TIOA does not Contain a data 
length or the map does not a length 
and width as specified by DFHMDI 
SIZE* 5 (line,col),, the data cannot be 
mapped and an error code is returned 
in the TCA. 



If a DFHBMS TYPE=SAVE has not 
been requested, the old TIOA is 
released via a Storage Control FREE- 
MAIN. 



Non-3270 Input Mapping Operations - DFHIIP. 



Diagram 6.1.6-01 
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CICS/OS/VS Program Logic: Description 
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PROPERTY OF IBM 



TCAOSPWA 
Ptr to BUS 
work area 



-& 



worn urea • — ■ -»\ 

r-> r 1 • \ r-i I * I t / 

JOSPADISP ) t /\n\i-i 

jn ata disp. ( J t_J 



OSPDHP Ptr 
to OWE for 

TTPB = STO*1? 



r IOSPCTTP 
"Ptr to 
current 
TPP 



^OSPADISP 
IData disp. 



TTP Terminal 
Type Para. 



fill 

n/|c] 



ttphsufx 

Terainal 
suffix 



r TTPPGBOF 
Ptr to 
completed 
page 



TIOA 

Completed 

Page 



j\ 



TIOACLCR 
Ctl char, 
for 3270 



,)0 



fir?! If TTPE=STOSE, create PWE «\ r — , r — , — j\ 

if necessary t_J u_i 

: 



/i 1\ 



1.2.1) 



TopI Move WCC (Write Control 
Character) to PGA (Page 
Control Area) in TIOA 

fr oT] .Set erase flag in PGA if 
necessary 

foil Note terminal suffix to 
OSPHA 

Josl Determine disposition of 
data 

A. DPHRHS TTt>E-OPT 



<£> 



ferainal Output 
Subroutine 

6.1.7.1 



Sc,Y- 



y..i >ct 



B. PFRP-RS TTPE=STORE Put. 
data on """eranorary 
Storage 



• ,/ V 



J\ 



OSPWA 






OSPDWP 












OSPLBTTS 
?uffix Of 
terminal 
being 
processed 




TTCA 






At end of 
data 




PGA-i»age 

Control 

Area 










PGAFLAG - 
"lags 












t>GAWCC 
3270 HCC 











BBS: Terminal Page Processor - DPHTPP 



Diagram - f>. 1.7-01 



1 03 j TIOA is shown here. TIOA and 
TSIOA both hare 12-byte 
prefixes. The onlv difference is 
that the TSIOA data length must 
include the field with the 
length. Therefore H is added to 
the TIOA data length here. 

[05] If deTice is a 27U0 Bodel 2 with 
Buffer Receive, suffix is 
changed from P to H. 



Routine Label 



BBS: Terminal Page Processor - DPHTPP 



Diagram - P. 1.7-01 
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Input 
\ 



P*GF 2 OF 7 



^>0 



OSPIND01 

Flags 



-P0 



0SPTR6 
Request 
byte fi 



OSPCTTP I 
Pointer to| 
current j 
TTP ( 



TTP Teninal 

Type 

Parameter 



Pointer to 

completed 

page 



»0 
W 
0= 

0- 



TTPPGNO 
Current 
page 
number 



>0 



B*S: Terainal Page Processor - DPHTP 



0= 

0= 



If 1600 or BLO, build a 
list to correlate pages 
on Teaporarv Storage 
with LDCs (Logical 
Device Codes?) 



/i 1\ 

N| »/ 



C. DPHBHS TTPE=RETURW 



[Ofij Acquire returned oage list- 
if necessary 



071 Initialize if necessary 



f OBl flove address of coapleted - 
page to returned page 
list. Clear addresses froa 
TTP 



: 



-"-0 



^>s 



0=- 



00 



Is it DPRBMS TTPE=PAGEO0T 



A. HO - Increment page 
nunber 



'>E 



: 



^>0 



*l 



page list 



OSPC'TP 
°ointf»r to 
current 
ttp 



Ueturned 
Page List 



Terainal 

suffixes 

and 

address of 

returned 

pages 



TTopGBD"? 
Pointer to 
coapleted 
oages 



TTPPGKO 

Current 

page 

number 



Diagraa - 6. 1.7-02 



Routine Label 



Routine Label 



BBS: Terainal Page Processor -. DPHTPP 



Diagram - 6. 1.7-02 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OP IBM 



INPUT 



FROM DFHTPP 

DFHTPR PROCESS 



OUTPUT 



r— 


TCAOSPWA 
CSPWA ptr 




TTPBMSWork 
Area 




TTPIND01 
Erase flag 








CSPLMTTS 

Terminal 

type 










Set 'ERASE' if desired. 

Set 'SAVE'. 

Determine routine to be used based on terminal type. 

Go to appropriate routine. 

A. CRLE,DASD,TAPE,2980. 

B. 1050,2740, 1741, TWX. 

C. 2770, 2740-1 1 with Buffer Receive. 

D. 2780. 

E. 3270. 

F. INTLU, SCSPRT 



^> 



EX=) 





TCTTE 






TCTTEOS 
External 
operator 
request byte 











Terminal Output Subroutine - DFHTOM 



Diagram -6.1.7.1.-01 



I qi I This routine is copied as inline code into 
I 1 programs DFHTPP and DFHTPR. 



r~l The TIOA must be saved since it is 
I 02 1 probably not on the TCTTE storage 

chair and therefore Terminal Control 

may not free it. 



Terminal Output Subroutine - DFHTOM 



TPOUTPUT 



REFERENCE 



Section 2: Method of Operation 



Diagram -6.1.7.1.-01 
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INPUT 





TIOA 




TIOADBA 
Data waiting 
to be trans- 
mitted 




Untransmitted 
data 







PROCESS 



l»E> 



:> 



^> 



l 08 !"^ 



-y 



G. BCHLU. 

Put message directly to terminal. 

Put out a segment of approximately 120 bytes. 

Move remainder of data to front of TIOA 
and adjust data length. 



Put outthe message in segments the length of the 
hardware buffer 



Move remainder of data to front of TIOA data area 
and adjust data length. 

Determine size of segment to be transmitted. 



A. Maximum number of records in segment is 2 
unless multiple record feature is installed - then 
it is 7. 



OUTPUT 



•> 



Exit 6.1.7 
or 6.1.9 



E^> 



MSG COMPLT 
Exit 6.1.7 
or 6.1.9 



:> 



CD® 



TIOA 



TIOADBA 
Data 

waiting to be 
transmitted 



Terminal Output Subroutine - DFHTOM 



Diagram -6.1.7.1.-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


s 


This processing is for CRLP, TAPE, 


CBLP 


TPTR MA 




DASD, 2980. For these terminals, 


TAPE 


TPTRMC 






Terminal Control program handles 


DASD 


TPTRMC 






segmenting. 


2890-182 

2980-4 

ALL 


TPTR 

TPTRMR 

TPTRMPUT 







This processing is for unbuffered 
start-stop terminals - 1050, 2740-1, 


TWX 


TPTRMD 






2741 , TWX. The segment size is small 


1050 








to minimize retransmission due to 


2740 


TPTBMF 






errors. The size of the segment to be 


2741 


TPTBMG 






transmitted is determined by searching 


ALL 


TPSTSTOP 






for a new line -X'15'- after the 120th 










byte of the message. 











This processing is for 2770 and 2740-1 1 


2740 


TPTFMH 




with Buffer Receive. For 2740 the 


2770 


TPTFMI 






actual buffer size is divided by 2 as a 


BOTH 


TPBUFPUT 






rough but fast allowance for the fact 










that the buffer must also accommodate 










upshift and downshift characters. 











See steps 6-7 for details of data flow. 











This processing is for 2780. 

A. A segment is made up of whole 
records separated by unit 
separator characters (IUS = X'1 F'). 


2780 


TPTFMJ 





Terminal Output Subroutine - DFHTOM 
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INPUT 



PROCESS 



OUTPUT 







TCTTE 






TCTTEDA 

Data 

address 








TCTTBBFS 
Buffer size 








TCTTETE 

Terminal 

feature 




TIOA 




TIOATDI 
Data length 




TIOAREA 
Data area 


Data 


PGA is 
located after 
data 


PGA Page 
Control area 









S=X> 






B. Maximum amount of data per transmission is 400 
bytes. 



rTTI Put segment to terminal. 



1.5.8. 



EMove remainder of data to 
front of TIOA date area 
and adjust data length. 



GU 







Move WCC (Write Control Character) to front of TIOA. 



Put message to terminal with CTICPAR=YES. 



P 



MSG CCMPLT 
Exit 6.1.7 
or 6. 1.9 



:> 



% 



To 6.1.7 or 
6.1.9 





TIOA 










TIOACDOR 
3270 Write 
Control 
Character., 









Terminal Output Subroutine - DFHTOM 



Diagram -6.1.7.1 -03 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


1 I See steps 6-7 for details of data flow. 

| 1 This processing is performed for all 
I 13 I models of the 3270 Information 
Display System. 


3270 - 1 
3270-2 
BOTH 


TPTBML 
TPTBMM 
TPTBMM 





NOTES 


ROUTINE 


LABEL 


REFERENCE 
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Diagram -6.1.7.1.-03 
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INPUT 



PROCESS 



OUTPUT 









PGAWCC 
Write ctl 
char for 
3270 







=^{c] 



r~T| Put message to terminal via the Data Interchange 



Program. 



<na 



DFHDI TYPE=SEND 



% 



To 6.1.7 or 
6.1.9 



Terminal Output Subroutine - DFHTOM 



Diagram -6.1.7.1.-04 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


[~~] The Data Interchange Program handles 
I I destination selection for the BLU. 


BLU 


TPTRMY 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Terminal Output Subroutine - DFHTOM 



Diagram -6.1.7.1- 04 
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Processing 



PAGE 1 OP 4 



jTWANRHTH 
I Normal 
{Threshold 

J TMAADJTH 
(Adjusted 
■Threshold 



AIOBHSTS 
Time Stamp] 



Prom Terminal 
or Interval. 
Control 



'-it 



TCAFCI 1 

jpacility | 
I control | 
{Indicator. | 



CSAJYDP 

Packed 

Date 



CSACTODB 

current 

Time 



CSA-CSA 
AIDEA AID 
Chain 
Pointer 



Is the transaction 
terminal initiated. 

A. No. 

B. Yes -write 
acknowledgment message 
and disengage terminal 
from transaction. 



if— »' 





Get storage for error 
messages, route list and 
master terminal messages. 



1 0i| 'Generate Purge thresholds - 
DATE/TInE value. 

| 04 j Search aid chain from 

beginning, for an eligible 
BHS aid. 

A. If none found. . . 

B. Continue... 



(••I J 

V' 



W 



TCA 




TCAPCAAA 
Pacility i 
Control | 
Address j 


TCTTE 

Jtcttbca j 
Jtca | 
j Pointer j 

TMA 




TMANRHTH J 
Normal 1 
Threshold j 


TMAADJTH I 
Adjusted ( 
Threshold | 







Clean Op Ondelivered Messages 



Diagram - b. 1.8-01 



[Oil B also releases all previous 

TIOAs and gets user storage for 
subsequent messages. 

| 0j| Time stamp is composed of two 
bytes of packed day of the year 
and two bytes at the current 
time in 25o second units (2nd 
and 3rd bytes of CSACTODB). 

The adjusted threshold, 
TMAADJTH, is used for checking 
when current time is this year. 

foa" | An eligible BHS aid is one that 
has yet to be initiated and is 
older than the purge delay 
intervals. 



Routine Label 



Routine Label 



Clean Op Ondelivered Messages 



Diagram - b. 1.8-01 
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PAGE 2 DP 4 



AIDEATID 
Assoc. 
Data ID. 



[hCRIDCNT )■ 
Terminal i 
|count I 



ID 1 I 



rTKAERTRfl |- 

! Error J 

Terminal j 



>Q 



E~ 



->0 



HCRIDCHT 
Teriinal 
Count 



:>s 



0~ 



J05] Onchain Aid and enqueue 
and get messages 
associated NCR. 



/ 



|..| > 



Read in HCR 
(message control 
record! 

1.8.2 



[ Ob j Delete terminal entry from- 
KCR. 

[o7] If there is an ERRTEBH 
send Purge notification 
message. 



< !••! > 



BHS 



Free the Aid 



Preemain 



09] If there are no more 

terminal entries left in 
the HCR, Purge the pages, 
Pree and dequeue the HCR. 



/i — j\ _. 



DPHTS 



I" 1 / 1 ^ 1 





Previous AID 




AIDCHNAD | 
Aid Chain J 
Address 1 


HCR 




HCRIDCHT | 
Terminal I 
Count f 







Clean Op Undelivered Hessages 



Diagram - b. 1. 8-02 



(ET 



J07] Prior to sending the message to 
the ERRTERH, a DPHBHS TYPE=RO0TB 
macro instruction has to be 
issued to the error terminal. 

[ 09] If the HCR that was just 

processed was for a BHS system 
message, then control resumes at 
step 04. 



•".outine Label 



Clean Op Ondellvered Hessages 



Diagran - t>. 1.8-02 
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HCRIDCNT 

I Terminal 
j Count 



0= 



1CSAAIDBA 
I AID Chain 
•Printer 



->0 



g: 



"^) 



AIDSTATI 
status 
j Indicator 



=;>s 



|"t*atskey ]- 



TS Key 



-J I 



TWAMSGID 
Message Id 






f««t >roa] 
[To] If there are more terminal [ 
entries in the NCR, search 



the AID chain. 



j TTj Did we find an eligible #• — 1\ .•-— . 

Aid. ul,/ V 
I 

A. If YES, unchain it. | 

B. If HO,... I 

[TTj Put the MCR back on I 

temporary storage. 



/I — is _ 

< |»«| > DFHTS 



1 I 



[7T| Search AID chain for an 
AID associated vith the 
same message. 

A. If cne found... 

B. If not, continue... 

| 14J Send Purge notification 
message to Master 
Terminal. 



l — ,/ V 



< !••! >jDPHTD 

' ' |TYPE=POT~ 



Clean Op Ondelivered Messages 



Output 



PAGE J OP 4 



Diagram - b. 1. 8-03 



| Notes 


Routine 


Label 


Ref 


Motes 


Routine 


Label 


Ref 


j [To] This AID chain search starts 




TPQACS2 












I from the beginning and searches 
















| for an eligible AID with the 
















] same MCE as the last AID 
















] processed. 
















| [12} Also free and dequeue the NCR. 




TPQMCRBK 












j [71] This AID chain search starts 




TPQACS3 




1 








j from the beginning and searches 
















j for an eligible AID for the same 
















| message as the last AID 
















I processed. 

I 

i 
I 

I 

! 

1 
1 

1 
1 

1 
| 

1 
1 






- 1 


'_ - ,-.-.. . 









Clean Op Ondelivered Messages 



Diagram - b. 1. 8-03 
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(CSAICEBA 
ilCE Chain 
(Pointer 



Clean Op undelivered Messages 



Processing 



:!..„ 



f: 



Qil Purge any ICE (Internal 
Control Element) for this 
transaction CSPQ. 

jltT) Reschedule this 
transaction to be 
initiated after a 
system-generated time 
(purge delay) . 



^i 1/ 



DFHTC 



TYPE=SCHEDOLE 



jl7j Return to Ciqs via PCP 



Output 



PAGE a OP 



TCAICRT i 
Requested | 
Time | 



Diagram - b. 1. 8-04 






Routine Label Ref 



Clean Op Undelivered Messages 



Diagram - b. 1.8-04 
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INPUT 



ENTRY FROM 

TERMINAL CTL 

OR DFHMCP PROCESS 



Page! of 2 







TCA 




TCAOSPWA • 
Address of BM5 
Work area 




TCTTE 




TCTTE DA - 
Address of 
TIOA 




TCTTE 




r 


TCTTEPGM - 
Address of 
MCB 






L» 


MCB- 

Message Control 
Block 




TIOA 




TIOATDL 
Data Length 




TCTTE 




TCTTETC - 
Terminal 
Transaction 
Code 










=> 



From 

6.1.9.6 |. • . • 

Single 

Keystroke Retrieval 












HIPO: DFHTPR 









If control came from BMS 

A. Set "conversational" display if PAGEOUT, 

CTRL=RETAIN GETMAIN storage for and setup 

chained OSPWA. 

If not BMS link to TPR. Use TWA or OSPWA and pick 
up TWA address (if any). 

Search for useable MCB. If MCBs exist but none 
useable then use last one as active and current. 
If no useable MCBs set MCBBAR = 0. 

Analyze input 

3270 Single Keystroke Retreival (&BMSOPT (24)). 



Test TIOABAR and TIOA to determine invocation 
mechanism. 

A. If there is no TIOA then task was auto-initiated. 



B. If there is a TIOA but no data in it, then if not a 
3270, auto-initiation has occurred. 

C. If a 3270 passed the Tl A (with no data) then 
transaction invoked by CLEAR or PA key, or 
by ENTE R or PF key with no data. 

If CLEAR key with no transaction ID stacked, 
keyboard is unlocked and program exited. 

D. All other cases with zero data length are invalid 
paging commands. Message is purged (if EODPUR 
= AUTO) and DFHTPR is exited. 

TIOA exists with non-zero data length. Bypass SB A 
sequence, 'CSPG' and blanks if they exist. 

Determine Paging command 
A. Retrieval 



B. Purge 



OUTPUT 



:> 



-]±. 



•>0 







EEa> 



^ 



6.1.9.6 Single 
Keystroke Retrieval 



EE-) 



6.1.9.1 Page 
Retrieval & Display 

6.1.9.1 

Page Retrieval 
& Display 



6.1.9.3 
Page Purge 



6.1.9.1 
l» • • • >Page 

Retrieval 



•> 



BMS: Page Retrieval Program - DFHTPR: Entry Analysis 



6.1.9.3 
Page Purge 





TCTTE 






TCTTEPGB- 
Conversational 
Pages Display 
Bit 




OSPWA 
(chained) Move 
data from old 
OSPWA to new 
one 




MCB 






MCB FLAGS 
Set if MCB 
found 











Diagram 6.1.9-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





TPMCBCEK 







NOTES 


ROUTINE 


LABEL 


REFERENCE 











BMS: Page Retrieval Program - DFHTPR: Entry Analysis 



Diagram 6.1.9-01 
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INPUT 



PROCESS 



CSASITBA - 
Address of 
SIT 



SIT - System 
Init/fable 



SITPGRET 



CSA 



| sitpgchn" 



CSA 



SITPGCPY 



TCTTE 



TCTTEPGB - 
Paging 
indicator 
byte 



cz>HJ. 

cz=>HI 
c^0 



:> 



I J If TIOA started with CSPG, then paging command is 

I ®* 1 in error-notify operator. 



<n> 



|rjg I If messages must be purged to continue, notify 
L— J operator. 



eoi 



H 



Indicate messages to be purged. Go to page chain 
processing to initiate new transaction. 



ain 



6.1.9.5 
Page Chain 



6.1.9.4 
Page Copy 



1.3.6 

Program 

Control 



S> 



1.3.6 

Program 

Control 



i> 



OUTPUT 



^> 



i.1.9.5 ^ y 

aae V 



BMS: Page Retrieval Program - DFHTPR: Entry Analysis 



Page 
Chain 





OSPWA 






OSPTP001 • 
Encoded 
paging 
command 











Diagram 6.1.9-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 




TPBNCCPR 
TPBCHKCX 
TPBCFODP 







NOTES 


ROUTINE 


LABEL 


REFERENCE 
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T.CTTEDRI 

Pirst MCR 
address 



r [tcttfdr" 

I Data 



cess j 



ra: 



r-i J> 

— j\ 



(Ynput data] i/[*l 

00 



OS-TPCOI 

Encoded 

command 



HCB Message 

control 

Block 



-> r 



HCBCHR 

Chain 

level 



>s 






hcbpag 

Current 

page 



30 



rwcBPLnns i — ,/in 

IHessage | I «— j 



BUS: DPHTPR Page Retrioval and Display 



[Oil Tf command already 

encoded, byoass encoding 



EZj/B 



ToTJ Tf function is 'O' (Query) 
or •** (Reset to 

r J \ 

^utooage) , go process the«(»»»»| > 



[Olj Acquire HCB (Message 
Control Block) if 
necessarv 



/i 1\ _ 

< |»»| > TPACOHCB 



I Acquire HCB 



1 U | Put message TD in HCB 



Process \ 
f> Punct. 
- fi. I.O. ? 



fns] Tf HCR (Message Control r 1\ r-\\\ 

Record) has been checked »■ 1/ i— i «-— 



Output 



171= 



0=< 



HCBOHOTD I 
Message TDj 



[mcppugs I 
IMessagp j 
Iflags j 



JHCBORCKT 
t Humber of 
Ipaqes in 
I message 



r«CRPRR ] - 

I Current, 
joage i 



6. 1.9.1-01 



E3 

1 3 ( This routine is not charted. Tt 
obtains an NCR from the shared 
subpool and chains it to the 
previous HCB on the TCTTP. 



Routine Label 



BUS: DPRTPR Page Rptrieval and Display 



diagram - 6. 1. 9. 1-01 
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Processing 



NC*PGCNT 
Numher of 
pages in 
message 



)mcr?l*rs — ^71 
Message ) I] 
[f lags_ j |j« 



0= 
m— 



jlnpat "data}- 



0— :> 



Wf/ 



E3 



Read in HCR from Temporary J Nr~i 



storage. Move Da ge number 
and indicators to "OB 



07 j Set temporary pat,p. or 
~~ ATJTOPftGS status if 
necessary 

[OR] Pncode paging command 



Encode chain value if • (• 
after page com Band 



:>ra 



D3 
D3 



Locate, encode, and sake 
current the reguested LDC, 
if any 



Encode page value 



Retrieve Dage from 
Temporary Storage 




OSP^PCOI } 
Pncoded 
paging 
command j 




OSPTPCRN 1 
Desired j 
chain 1 
JlevK. J 


MCB 


Ihcbcldci -J 
(current ( 
(LDC i 


OSPWA 


OSP^PPAR ] 
Desired I 
cage j 
number I 



BBS: DPHTPR Page Retrieval and Display 



Diagram - 6. 1.9.1-02 



03 







Routine Label 



BMS: DPHTPR Page Retrieval and Display 



Diagram - K. 1.9. 1-02 
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Processing 



TCTTEorJP 
{Paging 
iindicator 






J1CBPGLDC 
Pfi/LDC 
table 
addition 



HCRIND07 - 

0CB, 

indicator 



03) 



1 3 1 Tf message is to paged, 
set * Disday Status' 
indicator 

flUJ Display page on terminal 



V"A/ 



terminal page I 
output subroutine I 
fi. 1.7.1 



MM Free page storage 

/i 1\ i 

< i..| >)SCP 
\ i 1 / I 



Jlfij If message is not for a 
multiple LDC environment 

\vt\ Complete all autopaging 
for appropriate LOCs 



r 



EJ/G3 



BUS: DPHTPR Page Retrieval and Display 





TCTTF 




/ 




Paoing 
indicator 








1CB 




/ 


Rpcruested 
entry list 











Diagram - 6. 1.9.1-M 



fisj This is an open subroutine. 

] 17 ] This routine saves information 
on the currently active LDC, 
completes messaqes for any and 
all autopaqed LDCs, and notes if 
there are anv paged messages 
left. 



Routine Label Ref 



BHS: DPHTPR Page Retrieval and Display 



Diagram - ft. 1. 9.1-01 
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Processing 



TCTTEPGB 

»aging 

indicator 



rm= 



IfCBPGCHT 
wuaber of 
pages in 
aessage 



* >i — i •■ 

-p/0 



a : 






— ,-*\ 



|1B| If aessage is paged 

[7*1 if this is last page -ZZJs? . — \ 



K. Add 1 to page nuaher, 
go retrieve and dislay 
next page 






I 20 1 Set up to purge aessage t — -, / \/ . J\ 

J21J Go to aessage purge I 



••••I > 
Page Purge 



nns: DfRTPR Pago Retrieval and Display 



"CB 






"CBPAG 
Current 
page 
nuaber 




OSPHR 






OSPTPC01 
Encoded 
paging 
coaaand 




OPPTPCO? 

Encoded 

function 









niagraa - fi. 1. «.1-0« 



Notes 



Il91 This step applies, if aessage is 
to be displayed one page at a 
tiae. 



BUS: DPHTPR Page Retrieval and Display 



Diagraa - fi. 1.9. 1-W» 
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!i!= 



c^rn 



TCTTEPGB - 

Paging 

indicators 



pTCTTEPGH 






E 



— j\ 
.— ,/ 



1\ 

— w 



B=S 



[01[ Is function Q or A ? 

A. Q tQuery) 

B. A (Beset to autopegingj 

[62I if terminal is defined as 
PAGE, indicate that it 
cannot be reset and exit 



n/W 



\i 1/ 



b. 1.1 



■1.3.b - 
Program 
Control 



[03] If there is no message 
being displayed, 
acknowledge reguest and 
exit 



[••••I > 
|1.3.*b - 






BNS 



H I 



1 01 1 Has last page been printed 



, j\ 



A* Tes - Acknowledge 
request and exit 



1.J,b - 
Prog ran 
Control 



BBS: Reset to Autopaging and Page Query - G?F.TPR 



PAGE 1 3P i 



HIPOMAT 1.1 Diagram - b. 1.9. 2-01 



[01] A Message May have been sent to 
a hard-copy terminal with 
CTRL=PAGE. The Message is 
retrieved by the operator 1 page 
at a time until the operator 
invokes this function. Then all 
the retaining pages are 
displayed. 

[02| If the nessage is for a Multiple 
CDC environment, all LDCs are 
checked for PAGE status before 
an error Message is sent to the 
operator. 



® 



Routine Label 



routine Label 



BUS: Reset to Autopaging and Page Query - CfHTPR 



Diagram - b. 1. 9.2-01 
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Processing 



PAGE 2 OF i 



HCB - 

Message CTL 
Block 



HCBUNQID -| 
Message ID] 



'>0 



0— 



fjICBPGCNT -1 , /fc] 

i Number of ( l l-* 
jFages 1 I 



Ipag 
[hum 



CSA 

p fc SAAIP JA ~] 



''0 



0=:; 



AIDTRflID 
Terminal 
ID 

aIdthnid~ 
Transac- 
tion ID 



aidocttp 
Type of 
operator 
checking 



aidopchk 
Oper. 
class or 



'Hii 



0= 



— j\ 
— i/ 



T ID -1- 

E£_i 



,/0 



1 05 i Add 1 to current page 
nunber 



^0 [!):::;> 



S : 



set up to retrieve next 
page and go retrieve it 



[071 Por each AID on the AID 

chain for transaction CSPG 
Por this terainal and 
operator checking do steps i 
8-10 

[oil Por»at message identifier 



->0 



BBS: Reset to Autopaging and Page Query - DPHTPR 



paging j 
coanand j 



OSPTPC02 

Encoded 

function 



OSPTPPAG - 
Page to bef 
retrieved j 



Diagram - b. 1. 9.2-02 



Notes 



J05] If the aessage is for multiple 
LDC environment, every LDC that 
can be reset to au top age status 
is processed, one at a time, 
until conpletion. 



Routine Label 



BHS: Reset to Autopaging and Page Query - Dff-TPR 



Diagram - 6.1.9.2-02 
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I control 
j flags 



0=S 



All 

associated 

fields 



->0 



If message has a title, 
read in NCR ana format 
title 






< |»«| >JTSP 



QD 



Use DPHBMS TYPE=TEXTELD to 
build data into pages 



GD 



L 



b. 1.1.3 



When all AIDs have been 
checked, send reply to 
terminal via BUS 



BMS: Beset to Autopaging and Page Query - CJBTPP 






Exit to 
j Program 
I Control 



PAGE 3 3? 3 



Diagram - to. 1. 9. 2-03 



10 j Por 3270 only. Por others, 
DPHBMS TYPE=OOT is used. 



E 



Routine 


Label 




TPQMCRG 


3270 


TPQPUT32 


CTHiB 


TPQPOTL 




TPQDISP 



BMS: Reset to Autopaging and Page Query - CIBTPP 



Diagram - to. 1. 9. 2-03 
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OSPTPC0 2 

Encoded 

function 



Processing 



PAGE 1 OP 3 



iPrcn t. 1.S - 
J Entry Analysis 



••••I > 
1/ 

i/[a][B| -,/ 



E~;> 






JOSPTPC0 2 ~j-7-i/[cl 



jTCTTEPGJ! 
j Pointer to 
{first M CB 



\msfo 



BBS: Purge Messages - DPHTPR 



: 



>S 



[Oil If command is already 
encoded 

A. Encode paging command 
and function 



[02] If ternhaJL messages are 
to be purged, purge thea 



iv { Ml) 



Purge a message 



1 03 J If routed messages are to 
be purged, purge them 



< !••! >jTPEXP0R 

^i 1/ j— 

j Purge a 



A. Yes - Free all HCPs and — 



1 j v 

r~ 1/ 



turn off display status 1 
\ — / 



L 



[oaj if this purge is for 

chaining or new task [••( >|0u| 



initiation 



TCTTEPgI 1 
Paging 
indicator ( 



(TCTTEPGH j 
j Pointer to| 
Ifirst flCB j 



Diagram - b. 1. 9. 3-01 



]02) This routine is charted in steps 
8 thru 12 of this diagram. 

[oil This routine is charted in steps 
8 thru 12 of this diagram. 

foaj If all messages are purged from 
terminal, all HCBs are freed. 
Otherwise they are left for use 
by succeeding chained 
transactions, if any. 



S: Purge Messages - DPHTPR 



Diagram - b. 1.9. 3-01 
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Input 



Processing 



0=0 



TnCBHSGID 
Temporary 
Storage 

l*ey 



BBS: Purge Messages - DPHTPR 



El 



If any messages are left 
on the terminal, go 
display current page at 
lowest level 

If purge was reguested 
from the terminal, 
acknowledge request and 
exit 



,1— V 

I Page Retrv 
|E Display 
I- b. 1.9.1 



_ j\ 

(••••| > 

I ,/ 

|1. J. b - 

IProgram 
{Control 



i Message Purge 
[Subroutine 



J 



ED 



Bngueue on Message Ccntrol j 
Record (MCR) to prevent 1 
simultaneous update I 



/|..|\ 
^i — i/ 



1 



Read in MCR from Temporary 
Storage 



< |»«| > TSP 



3 i 



|09j Erase terminal entry from ■ 
MCR 



PAGE 2 OP 4 



Diagram - b. 1. 9. J-02 



G3 
D3 



TPPUR1 
TPPTRMPR 



BHS: Purge Messages - DPHTPR 



Diagram - b. 1. 9. J-02 
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Input 



MCR 



MCR IDC NT 

Number of 

terminal 

left to 

receive 

the 

message 






BMS: Purge Messages - DPHTPR 



nji-j) 



1 



lio] Have all terminals been t 
purged from MCR? j 



from Temporary Storage 



message r — J \ i 

tcrage *■ — i/ «•■ — 



B. No - Replace MCR on 
Temporary Storage 



/« »\ r- 

< |«»| >IT 
Ai 1/ I- 



riTj Dequeue MCR and free its 
storage 



I •••••••• I 

\ 3 It 



PAGE j 3P 3 



jEJcxt to Caller 



1 Diagram - t>. 1, 9. J-03 



1 Notes 
1 


Routine 


Label 


Ref ! 


Notes 


Routine 


Label 


Ref 


j 


A 
B 


TPPTSPOR 
TPPOPMCR 


1 
1 

1 
1 

1 

1 
1 

1 

1 

1 
! 

1 
1 
1 
1 
1 
1 

i 
i 

i 
i 
i 
i 
i 
i 
« 
i 
i 
i 
i 
i 

1 

i 
i 
i 

! 

1 

1 
1 
1 
1 

1 

1 
! 

1 
1 

1 
. J 


.. _ .____— --„ -™„„__- . 









BMS: Purge Messages - DPHTPR 



Diagram - b. 1. 9. .5-03 
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Input 
r 



Processing 



PAGE 1 OP 1 



I Entry Analysis 






NCBBSGID -I 
Message ID] 



BBS: Copy a Page to Another Terminal 



DPHTPR: 
[o7] Retrieve current page 



<S/ 



[02] Set up BBS routing to 
desired terminal 



< |..| >[b 



103 1 Remove device dependencies < 

from page I 

[oo] Send device independent | 

page to terminal via BBS I 



: v 

|1.3.b - 

! Program 
Control 



All | 
associated! 
fields 



Diagram - b. 1. 9. 4-01 



[Oil If copy is to go to identical 
model J270, page is sent to 
terminal with device 
dependencies via OPHBBS TYPE= 
(STORE ,NOEDIT). 



BBS: Copy a Page to Ancther Terminal 



\ Routine) Label i Ref 



LabaL I Ref 



Diagratt - b. 1. 9. 4-01 
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Input 



PAGE 1 DP 1 



Prcn b.1.9 - 
Entry Analysis 



( — ••> 

— — i /, 



Current hcb 



HCBNEXf 
Pointer to 
nest flCB 



HCBFLAGS H i/f*l 

Message j i-J 

control | 



:> S (b]:~0 



flags 



I 



~~~i/ 



[01] Shift data over chain 
conaand in TIOA 



1 02 j Turn off 'current' flag 



lOJJ If there are no active 

messages below this level 

A. Get address of next J1CB 
and go purge active 
■essages 



|Qq j set nev task to be 
initiated 



0=:> 



r— — n 



Page Purge 
6.1.9.3 

; ri 



Jos] Disconnect the transaction— -J\p 
froi the terminal 7"*" 1 L-J 



BBS: Chain Output to PreviousConnand - DPHTPB 



^l 



@ : 







1CB 






HCBPLAGS ] 
Message | 
control | 
flags \ 




> 

i 


rCTTE 

TCTTECA 
Current 

address 


f 


TCTTBKI 
Operation 
status 
byte 

TCTTEPGB 

Paging 
indicator 

:sa 






CSATCNDT 
Next TCTTE 
scan ti«e 




> 


PCA 




TCAPCAAA 

TCTTE 

address 













Diagram - b. 1,9. 5-01 



E3 



|05j A nev scan of the TCTTE is 
performed and the changed 
transaction is initiated. 



Routine 
TPEHCCHN 



BBS: Chain output to PreviousCdomand - DPHTEP 



Diagraa - b. 1. 9. 5-01 



722 



CICS/OS/VS Program Logic: Description 
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INPUT 



TCTTEAID - 

Attention 

Identifier 



TCTTE 



TCTTEPGB- 
Terminal 
Paging Status 
Byte 



FROM DFHTPR 
6.1.9 



PROCESS 



5 



=> 



^> 



^> 



=> 



mny 







BMS: Page Retrieval Program - DFHTPR: Single Keystroke Retrieval 



If not 3270 screen, or if CLEAR or ENTER key 
pressed, exit SKR code 

If no 3270 Attention ID, exit SKR code 



Index to PA/PF reference number in internal table 
and fetch catalogued Page Retrieval command from 
System Initialization Table 

If command is blank; 

A. And a retrieval session is in progress, issue 
operator message and exit program 

B. But a retrieval session has not been initiated, 
then ABEND transaction 

Move Page Retrieval command to dummy TIOA and 
pointTIOABARtoit 

Return to mainline code 



OUTPUT 






•>. 



1.3.6. 
Program Control 



EHZ> 



1.3.3. ' 
Program Control 



% 



6.1.9. 
Analyze Input 



Page 1 of 1 



Diagram 6.1.9.6-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 











NOTES 


ROUTINE 


LABEL 


REFERENCE 











BMS: Page Retrieval Program - DFHTPR: Single Keystroke Retrieval 



Diagram 6.1.9.6-01 
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LICENSED MATERIAL 



PROPERTY OF IBM 



Input 



Initiated via 

Interval 

Conticl 



|*1 i\ DPHTPS: 



I j Oil Get MCR (Message Ccntrcl 
I Record) 



I j- 



i 02 j Replace HCR since CFHICP 
released it 



/i — »\ 



Steps J-5 are repeated for | 
every teroinal in the NCR | 



p— j~*\ j jOd] Acquire AlC-type storage -»V 



to build BHS AIO. Hark AID 
as BHS AIO 



=?>a 



< (••! > SCP 
^i 1/ 



Output 



PAGE 1 OP 2 




BUS: Delayed Message Delivery- DPHTPS 



Diagrai - t>.1. 10-01 



\ Notes 


Routine 


Label 


Ref 


Notes 


Routine 


Label 


Ref 


I joij HCR is stored on Teaporary 

I Storage and this transaction is 

1 initiated by DPHHCP via DPHIC 

1 TYPE=P0T. Retrieval is via DFH1C 

1 TYPE=GET which releases MCR frcn 

} Teaporary Storage. 

1 






1 










1 

1 [02l MCR is replaced en Teaporary 

1 Storage via DPHTS TYPE=P0T. 

1 
1 
1 
• 

1 
1 

\ 
J 

1 

\ 

I 
1 
1 
1 
1 
1 
1 
1 

i 

! 

1 

1 
1 
1 

1 

1 

1 






I 
I 

1 











BMS: Delayed Message Delivery- DPHTPS 
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PROPERTY OF IBM 



Output 



PAGE 2 OP 2 



ITCA1CQID 
IICP data 
[ID I 



.-i—jv—- i Teal Pxll in AID 

I 1 /[F] i ' — J 



0-" 



CSAJYDP 
{Julian 

!dat€ 

I CSACTO B 
(Current 
time 



MSG CTL REC 



MCRCPCL |- 
Oper class| 






i*MCRfLAGS | — -, All Lj" 

[flags j I VJ 



--i/l 



--./I 



MCRTEMID 1— -i/jcl 
Tern ID j I t-J 



MCROPI 
Oper 



18 "]— ^E 



A. Terminal ID 

B. ID of transaction to be- 
initiated - 'CSPG* 

C. Operator ID 

D. Operator class 

E. Message ID 
P. Creation time stamp 
G. Title indicator 

i05] Schedule AID 



/i 1\ r 

< |»«| >|KCP 
^i 1/ I 



0= 



=^>0 

>E0 : 
Ey 1 !? 



I 
l 

IT 

I 



0- 



j Ob | Return to CICS via PCP | 

return I 



I V 
0=^ 



AID 




AIDTRMID ( 
Term ID j 






[aidtrhid J 
|Trans- i 
j action ID j 








AIDTYPE - | 
AID TYPE j 




AIDDATID { 
Data ID J 




AIDOCTYP j 
Type of j 
operator I 
checking j 








AIDOPCHK | 
Operator I 
check | 
value | 




AIDBHSTS | 
Time stampj 




AIDEHSCC 1 
BMS flags j 







BMS: Delayed Message Delivery- DPHTPS 



Diagram - b. 1. 10-02 



AID is scheduled via DPHKC 
TYPE=SCHItOLE. 



I 



I 



Rcutinej Label j Ref 

— !— !- 



BMS: Delayed Message Delivery- DPHTPS 



I 



I 



I I 



Routine) Label j Ref 



I 



Diagram - to. 1. 10-02 
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Macro Bequest 
Analysis ana 
HLL Interface 
Handler 

6.2. 1 



[Bit ~ ] Tfield~Edit ~1 

Manipulation. j 6.2.3J 



{" Field Verify 1 



! Phonetic ] 
Conversion 
^..iilill 



PAGE 1 OF 1 



"1 



fTable"iearch ] [i 

L. i±i\ [ F 



Establish 
Selection 
Criteria 



[Retrieve 1 [Release Storage! 

Selected Record Areas 
£ 6.2.10J [ 6.2. Mj 



] Tlnitiate 1 

(Weighted » 

2.7 Retrieval I 

• ! 6.2. 6 I 



Built-in-functions 



Diagram - 6.2-0' 
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CICS/OS/VS Program Logic: Description 
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Input 



|TCABPTR 
Request 
type 



11CABPPAH 
IHLL 

I interface 
indicator 



Output 



PAGE 1 o? 1 






01 j Determine the type of 
request 



WJlllllllVl/X 



[02 j Perforin HLL indicator | 

analysis and set up field | 
for HLL user | 

I 

|03j Process the nacro | 

instruction I 



Macro Request Analysis and HLL Interface Handler 



= 




diagram - b. 2. 1-01 



J02j Initialize address pointers for 
HLL user. 

Initialize TCABITP if the Bit 
Manipulation macro instruction 
was given. 

Initialize TCAPLD if DEEDIT was 
specified. 

Initialize TCAIHA1 and TCAIHA2 
if IHPORHAT was specified. 

Initialize TCACICTD if P?ERIPT 
was specified. 

Initialize TCA1SA1, TCATSA2, 
TCATSAJ, TCATSA4, and TCATSA5 if 
TSEARCH was specified. 

Initialize 1CAHTRI if kTRETST 
was specified. 

Initialize TCAWPA1, TCAWPAi, and 
TCAWPA4 if MTRTPARH was 
specified. 



Routine Label Ref 



Routine Label Ref 



Hacro Request Analysis and HLL Interface Handler 



Diagram - b. 2. 1-01 
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Processing 



J pattern j 



TCABITP 
By^e field 
pointer J 



fByte"to~ 
(operated 



Bit Manipulation 






> 



> 



DPHB1P: 

[o7] Determine the bit 
manipulation action 
reguired 

[02] Apply the specified bit 
pattern to the indicated 
byte 

fo3J Set response for 

appropriate transfer of 
control 



v 

To caller 



TCA 

[tca 



Z] 



Diagram - 6.2.2-01 



Notes 


Boutine 


Label 


Bef 


Notes 


Routine 


Label 


■Bef 


£oTj The allowable operands are 
















BITSBTON, BITSBTOPP, BITPLIP, 
















and BITEST. 
















[02] BITSETON 




BIPTSTM 












BITSBTOPP 




BIPTST8 












BITPLIP 




BIPTSTC 












BITEST 




BIPTSTO 












[03l Por BITSETON, BITSBTOPP, of 
















BITPLIP, all bits in the 
















specified byte are on (or off) 
















after the operation, and control 
















is transferred to the address 
















specified by BITON= (or BITOPP=) 
















operand. 
















|"oo] Por BITEST, all bits that are 
















tested under bit pattern Bask, 
















are on (of off) , and control is 
















transferred to the address 
















specified by BITOH= (or BIT0PP=) 
















operand. 

















Bit Manipulation 



Diagram 
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Pield Edit 



Output 



PAGE 1 OP 1 



r TCAfLD 
r Field 
pointer 



[TCAPLN 
|Pield L 
j length 



f One Sited I 
f ield j 



TrPEaOIPDIT 



— h::^> 



L > 



OPHBIP: 

[oTj Check for a minus sign •'-• 
or 'CR 1 at the end of the 
field 



02 Edit the field 



\7\> 



7777777777, 



v 

To Caller 



TCAPLO ( 

I Field 1 
{pointer \ 



l >r^ 



Diagram - to. 2. 3-01 



Motes 



]01] If the field ends with a linus 
sign or *CR* r a negative zone is 
placed over the low-order byte. 

[02| ill non-nuaeric characters are 
reaoved. 



Diagran - t>. 2. 3-01 
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processing 



tips* mm ft 



TCACKLH 

Pield L I 

length j 

ItcIckFo " 

I Field | 

JFOinter | 



I! I — j\ 



DPHBIP: 
[o"7V Check, characters 

A. Alphabetic 

B. Zoned decimal 

C. Packed decimal 

[02] Set response 



Output 



PAGE 1 OP 1 



77 > 



/I 



! 'A 

zzzzzzzzzzzo 
1 



EE~j 



V 

To Caller 



TCACHKR 

Response 

type 



Pi eld Verify 



Diagram - 6.2.4-01 



The fi«ld function determines 
What type of data is to be 
processed. Control is 
transferred to the appropriate 
routine in the application 
program based on the type of 
data. 

Character check 

A. Alphabetic 

B. Zoned decimal 

C. Packed decimal 



Routine Label Ref 



BlPCHKa 
B1PCHK8 
BIPCHKC 



Routine Label 



Field Verify 



Diagram - b. 2. «-01 
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output 



PAGE 1 OP 1 



i i. I is 



[tcanahe "1 

[Name fieldj 



G3 



ChecK the ,.wxt, of the ^^^ .V ; 

name 1/ 

I 

I 
[02] convert the appropriate ^ ^ 

characters to the numeric |/UV 

code I 



•|«i> 



,==! 



I To Caller 

I 

I 



TCA 



TCAPHNR 

Invalid I 

name | 
{response I 



TCAPHON 
j Phonetic 

! return 
code 



Phonetic Conversion 



Diagram - to. 2. 5-01 



01 | The first character must be 
alphabetic. 



£U 



The first character remains 
unchanged. The Translate Table 
is used to convert the character 
to numeric code. 



Routine Label 



Phonetic Conversion 



Diagram - b. 2. 5-01 
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Input 



TCATSPC 

Function 

ind. 



TCATSH1 
Nc. of 
entries 



TCATSA1 

Argument 

pointer 



TCATSA2 
ATBL entry 
FCinter 



TCATSAJ 
PTBL entry 
pointer 



TCATSA4 
ATBL field 
Fointer 



TCATSA5 
PTBL field 
pointer 



TCA1SH2 
ATBL entry 
size 



TCATSHJ 
PTBL entry 
size 



TCATSAP 
ATBL field 
size 

TCAXSPP 
PTBL field 
size 



Processing 



PAGE 1 OP 1 



TYPE'TSIARCH 



fa_v 



> 



. > 



L > 



foTI Check the validity of the 
PTABLE and ATABLE field 
and entry pointers 

[oil Determine which search 
method to use 



17?7777777777{ > 



{> 



[ 03 j Search the table for a } 
■atching entry ( 



Oil Set response code 



zzzzzzzzzzzzz(/ 
v 

(To Caller 



TCA 






TCATSRPC 
Error code 






rcA 






TCATSRPC 
Response 
code 

TCATSH4 

Index 

value 




TCATSA5 
Pointer to 
function 
value 









Table Search 



Diagram - b. 2.6-01 



|02j A linear search is made if the 
ORDERS operand is not specified. 

A binary search is made if the 
ORDER 2 operand is specified. 

(0i( Linear search. 
Binary search. 

(0t( A match or no match value is 
returned. 



BIPTSH2 
BIFTSH4 

BIFTSHb 



Routine Label Ref 



Table Search 



Diagram - o. 2.t>-01 
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Processing 



Output 



TCA1NAH 
Dane list 
|Ind. 

Itcainhi 

Size of 
ITIOA 
ineedea 



IPield 
(location 
(list 
pointer 

TCAIHA2~ 
Name list 
(pointer 



TTPE=IKPC¥AAT 

«nr-i 



j\ 



l TCTTEDA 
(Terminal 
data adar. 



DPHBIP: 
[o?l Obtain a new TIOA 



/i — j\ 



[OJi scan «. OU T!0» ,„ . ^ 

fieia separator or a field— \/ 

naae start character 



j 03 1 Scan the field location 

i list fcr the field length 

and field location 

J0«) Hove the old TIOA field to. 
the new TIOA field 

- fo5J Attach the new TIOA to 
TCTTB 

fbtoj Release the old TIOA 



zzzzzzzzzzzzz{/ 
zzzzzzzzzzzzzC/ 



/I — l\ r 

Nj 1/ I" 



I w 

1TO Caller 



(tcainrc I 
(Response j 
(code | 



rc 



TCTTEDA 

Terminal 
data addr. 



Input Poraatting 



Diagraa - t>. 2. 7-01 



Motes 


Routine 


Label 


Ref 


Motes 


Routine 


Label 


Ref ' 


E 




BIFIHP 












E3 


BIPINF30 


BIPIHF2 












[°3 


E1PIHP10 














s 


EIPINP20 














[D 




BIPINP20 












E3 




BIPIMP28 












.. 

















Tnnnf Format t.ina 
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Input 



Processing 



JTYF^WIREIST 



TCAWGCNT 
(see note 
1) 



TCAWTRI GK 

field 

pointer 



TCAWTH1 
(see note 
T) 



TCAWTH2 
isee note 
T) 



TCA WTH3 
Max % 
value 



TCAWTH4 
flip * 
value 



TCAWTDI 
Data set 
name 



Initiate Weighted Retrieval 



DPHBIP: 
foTl Obtain work area 



i 02 j Start browsing 



Set up the work area 
pointer in VSWA 



PAGE 1 DP 1 



-« 



7777777777777 £ > 



Too) Save the specified 

parameters and compute the 
size of key-save blocks 



Tt» 



V 

To Caller 



ITCAWTRC 
(Error 
j response 
{code 



JTCA' 



r JvSWAWRWA ~~j 
f fweightsd f 



-J J I 



iRetrieval 

I work area 
pointer 



jWTRETWA 

itcawgcnt" 

jTCAVTRl"" 

jtcawthi 



ITCAWTH2 j 

JTC AWTH3 \ 

TCAWTH4 j 

TC AWT DI | 



Diagram - b. 2. 8-01 



I J01J TCAWGCNT indicates the maximum 

1 number of records to be made 

| available to the application 

l program (NRECDS). 

I TCAWTH1 indicates the maximum 
number of records that can be 
read. 

TCAWTH2 indicates where Weighted 
Retrieval is to begin 
examination of records. 



[02] A File Control SETL is issued to 
initiate the browse operation. 



Label 
BIFWRT 



Routine 



Initiate Weighted Retrieval 



Diagram - b. 2. 8-01 
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TCAWPH1 

tcIjJpaT" 



TCAWPAJ 

tcahpa" 



TCAHPA2 i 



TCAfcPNL 
TCAWPTR 



r [tCAWPAA ] 

I VSWA 

l> ., 

r pSWAKRWA J 



t HT 



IWPCHAIM 
I Traces to 
I last block 
in chain 



TYPI=WTFTPAt;R 



(:L^ 



I 1 1 Obtain storage for the 
selection criteria 



| SCP 
I 



[02j Compute the upper and 

lower units of the range 



J0J| Put the selection criteria | 
into the criteria blcck \ 



~=l 




Establish Selection Criteria 



Diagram - t>. 2. 9-01 



| ■Routine) Label 



01| The selection criteria's block 
chain is traced to the last 
block. 



Establish Selection Criteria 



Routine Label 



Diagram - b. ?.. 9-01 
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Processing 



PACE 1 OP 1 



|TTPE=V1BE1GET 



1:1-, v 

[tcawgaa ~] 



m 



(Selection j 
•criteria i 




[o7] Search the file to natch 
the record key 

1 02 1 Match the specified record 
and compute the percentage 
value 



[ 03 j Compare the computed 

percentage value with the 
user-specified range 

[001 Get the specified record • 






/« — '\ 
\r — i/ 



^ 



V 

To Caller 



TCA 
'tcawgaa ] 



I 

j VSWA 



l >rr 



(Data 
i record 



Retrieve Selected Records 



Diagram - t>.2. 10-01 



Notes 



1 01 1 The first three process steps 
apply only for the first 
fcTRETGET request. The first 
VTRETGET reguest causes all 
acceptable record Keys to be 
saved in a key-save block for 
use in subsequent WTRETGET 
requests. 

[oqj A Pile Control GETNEXT is issue 
to retrieve the record. 



Pcutinei Label 



Retrieve Selected Records 



Diagram - t.2. 10-01 
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Input 



Processing 



PAGE 1 C* 1 



[iCAHEAA ] 



[vshAHayAjJ 



[hbiemfp ^] 

Cfi BIOCK 

[cbchIin~*^] 



TYPE=«TEETBi31 






-->Q0--> 



(selection 1 
{criteria 1 



- ->0[g~--» 

— ->g 

KS Block I 



DFHBIF: 
foil Belease all criteria block 



<M> 




V " l/ ici 

[ 1.6.3 


[02] Release all key-save 


blocks 


/i — 1\ 
\r — 1/ 


Ici 

1.6.3 



1 03 J Release the Weighted 
Retrieval work area 



\r— 1/ 



=1 

1.6.3J 



[ 04J Belease the VSAN work area 
and terminate the browsing 
process 






/i 1\ f — 

Nf-i/ 



=| 

1.6.3J 



g™1 



N / 
V 

To caller 



Belease Storage Areas 



Diagram - fc.2.H-0i 



041 A File Control ESETL is issued. 



Belease Storage Areas 



Diagram - 6.2. 11-Ci 
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Tdl/I interface"' 



j _ } 



1DE/l"l/0 """"I fDL/l"inter£ace"] fDl/i'siBulatein 
Interface I (Initialization I (Routine J 



FAGI 1 0* 1 



Di/I Interface 



Diagraa - 6,3.0-Pi 
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input 



Processing 



Output 



PAG! 1 o* * 



flCADLPOH | 



Application 
pro gran 



I •••• I 






[ICAKCTTl^n 
ISBKCIIA j 






[iC AD IP OH [ 



DL/1 Interface Coaaon Analysis 



mimmWyS/ 



DPfiDLI: 

Tl] Pill in the TCA with the 
paraaeters of the CALL 

[1)27 Analyze origin of the CALL 



[03j If a PCB scheduling 
reguest, go to PCE 
scheduler 

[o_4l If remote request, 
~| go to remote request 



05 j Get the address of the ISE 
for this task 

[06J If a termination request, 

go to teraination routine r^^TJ N > 



|07J Go to I/C request 
processing routine 



6.3. 1.3 



E—l" 



V 

6.3.1.2 



tcadlpar 

tcadlpon" 

tcadipcb" 

TCA0LIO 



Diagraa - e.3,i«oi 



02 j Analyze vnether CALL or OP UPC 
request, and also source 
language of calling program. 



OL/Z Interface Coaaon Analysis 



Diagraa - 6.3.1-01 
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Scheduling a PSB 



Processing 



2CAPCTTI 

icadlpcb~ 

[pDJHsltM | 






ISBPCT1I 

isbkctta" 



Output 



PKGI 1 OF 1 



[01 I If remote schedule, go to 
• remote scheduler 



••••I > 
16.3^1.4 



[02] Initialize the ISE for 
this transaction 



7777777777// I 



<> 



[03] Locate the PDIB entry for 
the PSB 

[oTJ If the PSB is scheduled, 
create an extra copy if a 
Bead-only PSB. Otherwise, 
wait until scheduling is 
terminated 

[oi] Call Dl/I to schedule the 



— r — ,/ 



< !••! >|DI/I J 

;-" bzzzzd- 

[oil Build a 'Scheduling' log 
record and write it to 
CICS/VS systen log 



7777777777//^ / 

..... 



Return to 

appllication 

prograi 



ISBKCTTA 
ISBTIHi 

iiiicTTi" 
isioLpil" 



[pSTPSB ] 



|Type~08 1 
[log record! 



Diagrai - 6.3.1.1-01 



06( OPHJC TXPfie (WHITJS, DL/I, WAIT) 



Scheduling a BSB 



Diagran - 6.3.1. »-0' 
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Processing 



DJL/I I/O Bequest 



("Zbpcbdbd ] 

f?ciDLl"i "[ " 



••••I > 



ISbDLSSA 
ISBDLIO 

isbdlpcb"" 
isbdlfun" 



::r_f~ 



— r 



!PS IS EG 1 

isTuiii I 



Tims tufferl- 

L™ J 



[o7] Locate the PCT entry for 
this PCE, test for 
database •logically open' 1 

102 1 Build a parameter list 

from the CFHPC parameters 
and store address of list 
in register 1 

[ol] Issue CA1L to ASHTDLI for 
I/O function 



/i~j\ . 

< !••! > ASHTDLI 
\r— i/ 



3 



foal Move retrieved data to the- 
user's wcrkarea 



Output 



PAGE 1 C* 






Return to 

application 

program 



Register 1 

[address of] 
I parameter 

[iif! j 



fnser's 
workarea 



1 



Diagram -6.2. 1.2-C » 



e 



[°3 



Latel 
DLLOCFCT 

DLLBOILD 



DL/I I/O Eeyuest 



Diagram - 6.2.1 ,2-C i 



Section 2s Method of Operation 



741 



LICENSED MATERIAL — PROPERTY OP IBM 



[5U 



fSTPSB 
PDIRSYJT 






isbpctti 
isbkctta' 

ICATCDF 
fSlPEOT 



Processing 

DFBDLI: 

[01] Update free space pointer 
in the SCD 

[02J Issue CALL to ASMTDLI to 
purge buffers 



Output 



CHAFt: CFBCII 
PAGE 1 OP 1 



PSB 

lengths 
and 
addresses 



:zri_ 






7777777777// 



«rf> 



[031 Build a 'Termination 1 log ' .- — ,/ 

record and write it to the 
CICS/VS system log 

[04] Synchronize activity for 
the task 

[oi] Link to DL/I to free 
resources 



<££>pL~ZL_Zj 

[06j Store termination data in 
the PSB. Link to CL/I to 
free index work area 



/i — 1\ __ 



[07] Release the FD1R entry and 
the ISB 



[--»} 



Return to 

application 

program 



[scdlovJid"*"] 



fType~07 ] 
[log recordj 



PSB 

lengths 
and 
addresses 



Terminate a PCB 



Diagram - 6.2.1.3-01 



A DFHJP macro instruction is 
issued unless the DL/I TERN CALL 
was issued ay the sync point 
ptogram. 



Laiel 
DFHELI 



Terminate a PCB 



Diagram -. 6.2. 1.3-C » 
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INPUT 



DRXDLTR 



From 6.3.1.1 PROCESS 



01 Allocate RSB for this schedule 



02 Invoke DFHIS TYPE=CONVERSE 



Set address of PCB list, and return codes, in 
the TCA 



OUTPUT 



V////////A) 



To Application 
Program 











TCADLPCB 




TCAFCTR 


TCADLTR 









Remote Scheduler 



Diagram -6.3.1.4-01 



01 The required PSB is on a remote CICS/VS 
system. Allocate Remote Scheduling Block 
(RSB) for duration of this schedule (i.e., until 
TERM call) 



02 Transmit scheduling request to remote system 



Remote Scheduler 



LABEL REFERENCE 



Diagram -6.3.1.4-01 
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INPUT 






From 6.3.1 




PROCESS 








|;l 


^> 


DFHDLI: 




V 




01 
02 


If TERM call, go to remote TERM processor 
Invoke DFHIS TYPE-CONVERSE 


[Z>0 


RSB 






DRXFCTR 






K 




m 




V///////// 


DRXDLTR 












K 




••••> 






M • 


' > 


1 V 

To Application 
Program 


TCAZLUWT 






04 


If not called by DFHSPP, Invoke DFHSP 




RSB 








DRXCHAIN 






05 
06 


Free PCB related storage 
Free RSB 




















1 1 












To Application 
Program 



OUTPUT 











TCAFCTR 




TCADLTR 









Remote Request Handler 



Diagram -6.3.1.5-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 




01 


Request is for data base residing on remote 




REMDB 






CI CS/VS system 










02 


Transmit remote request to remote 




REMD060 






CI CS/VS system owning the data base 










04 


If DFHDLI was not invoked by DFHSPP for 




. REMD500 






this TERM call, a sync point must be issued 










05 


Local copy of PCBs, created by DFHXFP 




REMD510 






during schedule response processing 









Remote Request Handler 



Diagram -6.3.1.5-01 
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Processing 



Output 
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DFHSIP-U. 1. 1C 






[dlpthIed"* 



[psi 




DFHDLQ: 

[oT] Link to CL/I Batch 

Initialization routines 

/i — 1\ _ 

< !••! >lDL/I J 

_; ,_i/ Izzzzzzl 

[oil Initialize the interface 
addresses 

103 J Store entry addresses of 
simulated routines in the 
SCD 

[oaj Initialize the Exclusive 
Control Queue Blocks, 
IOB's and channel program 
areas 

[05] Link to Di/I Directory 
Initialization routine 

< |.«| >[dl/i J 

-*' l:::::::::::::i~J 

[06] Initialize ISB's, PST«s, 
and save area sets and 
DL/I parameter blocks 



7777777777!v?V 



7777777777777r > 







ri> 



v 

a. 1.10 



[DFHDLPDS 
PST 

[set 



q 



[rBENd"7T5"] 



DFHISBDS 
DFHDLPDS~ 



DL/L interface initialization 



j 



Diagram - fc.3.2-C» 



jOl] DPSBHA00 checks tne parameters 
passed toy DFHSIP and loads and 
initializes PXPARMS, BCPABMS, 
LIPABMS, and PCEAMMS. DFSBBLDO 
loads tne PSB's and DHB's from 
the ACBLIB. DFSDLBNO initializes 
the PSI. 



[05| DFSIINDO initializes the PSB and 
OHB directories. If any errors 
are detected, an OS ABEND 7 15 is 
issued. 

[Ob] A copy of DJ»SBNl)C«s psi is made 
for each •tnread' and its' 
address is placed in the 
corresponding ISB at ISBPSI. 



Routine Lafcel 



DL/I interface initialization 



Diagram - 6.3.2-C 
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Processing 



Register I 

flcA 
[address 



Output 



PAGS 1 CV 3 



Hegister 2 

[IliLX 

Hegister 3 

! Number of 1 
tytes 
requested j 






••i > 



1DLPPSBMS 
DLPDMBNS 



3 : 



Hegister 2 



_ j \ 

••••I : 



[01J Simulated DI/I WAIT 

routine for I/O operations 



r J\ 

••••I > 
I -/ 

DL/I 



[02j Simulate DL/I GET BUFFER 
routine. Check for PSB or 
DHB buffer reguest 

[oil Check for buffer f°°1 
large enough 

fo«] If sufficient space is not. 
available, wait until 
another task frees space 

[05j Acquire the reguired 
storage 



J-' 



7777777777// \ 



!*<> 



7777777777/ V| 



/i, — 1\ 
< I- 1 > 

. \r — i/ 



SCP 
GiTHAIN~ 



1.2.1J 



[•-»ni 



[06] Simulate DL/I FREE BUFFER - 
routine/Check PSB or DHB 
buffer request 



V 

Dl/I 

. «\ 

J ,/ 



DL/I Simulated Boutin 6 



[n?H2006 1 
JABEHC ACLXJ 

fDFH2006 1 
ABEND ADLBj 

DLPISECB*""! 
ISBPsIci j 



fDFH2006 
[ABEND * 



006 "j 
D ADLXl 



Diagram - 6, 3. 3-C i 



[oTj DFHKC XXPficMAIT 



foal Hegister contains the.address 
of the SCD. It short on storage 
and register is negative, 
return to DL/JL immediately. If 
register is positive, issue a 
DFHKC TYPE-HAIT macro 
instruction. 



E3 



DFHSC TYPE=G£XaAIN 



DL/I Simulated Routine 
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Input 



Register 3 

flddress ofl 
fruiter ) 



[cECTYPE ^] 



I~ 



DL/I Simulated Routine 



Processing 



PAGE 2 0? 3 



r J \ 

••••I J 
J-77---1/ 



Free the buffer storage 









SCE 

iiliMAiN" 



1.2.2 



ED 



If any tasks are waiting 
for storage, post their 
ECB's 



iiiizniiia 
r — j \ 

I::::'/ 

IDL/I 



|09J Simulate DL/I logging 

function. If record is a 
control record, ABEND 
CICS/VS and send message 
to operator 

Ho] Write the log record to 
the CICS/VS system log 



I77i 
7777777777//' 

DL/I 



?<> 



DLPISBCB 
TSBPSECB*" 



System log 



Diagram T 6.3.3-02 



[09] Types 50, 51, and 52 are valid. 
The record is printed via a 
DPHCC TYPJi=PAHTIAL. 

[To! DPUJC TXPB-GEWCA and DPHJC 
TXPE«(MR11E, DL/I, PARTIAL). 



Routine Lafcel 



DL/I Simulated Routine 



Diagram - 6.3.3-C2 
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Input 



DL/I Simulated Boutin 6 



Processing 



j\ 

••••I : 



DL/l 



[••••I : 



Ml] Simulate DL/I Send Message- 
routine. Send message t 
the master terminal using 
Transient Data destination 
- CSM1 



zir 



< !••! >JSCP 



GETMAIN 



1. 2. 1J 
< |«e| >[lDP 1 

x ~' fczzz;;] 



< |««| >)SCP 

\ r— — -j/ I — — — — — • 

PREEMAIN 



[Ti] Simulate Dl/I Termination - 
request for Message 
Processing region 

[13] Simulate DL/I reguest for - 
creation or destruction of 
a PSB or DMB foo! 



IDL/I r -»\ 

'r— ,/ 



« -1/ 



!DFH39'0 
Message 
from DL/l 



DPH390 
DL/I AB 
XXX - 



7— I 

BEND 



|"d?H2006 1 
[ABEND ADLKJ 



Diagram - C.3.3-C3 



[77] DPHSC TXPE=GETMAIN 
DFhlD TYPE=P0I 
DPHSC TKPE=PBEJ3MAIN 

V\2 J DL/I cannot continue processing 
the request. 

[75] This implies a logic error in 
the interface. 



Latel 
DPSCLMPO 



DL/I Simulated Boutin e 



Diagram - 6.3.3-03 
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Data interchange 

6.4.0 


1 


r 


Overview 

6.4.1 


} 


r 


Output 

6.4.2 


' 1 


r 


End Functions 

6.4.3 


y 


f 


Note Operation 

6.4.4 


} 


r 


Detach Interchange 

6.4.5 


\ 


f 


Selection Operation 

6.4.6 
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Data Interchange — Visual Index 



Diagram - 6.4.0-01 
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PROCESS 



OUTPUT 







Obtain DIB if necessary. 



Make trace entry. 



Copy TCA parameters to DIB. 



If RECEIVE issue DFHTCTYPE=READ,WAITto 
obtain input in TIOA. 



HJ£] Remove any FMHS in TIOA and update DIB. 



Set TCA fields from data in the DIB. 



Set return code in the TCA. 



=> 



'////////fy 



=> 





DIB 






DIBDI • 








TIOA 














TCA 






TCADIRC 




TCADIDNA 


TCADISEL 









Data Interchange- Input 



.Diagram 6.4.1-01 







For CTYPE-ATTACH TIOA already 
contains the data to process. 



Data Interchange- Input 
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FMH 



REFERENCE 
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INPUT 







TCA 




TCADI • 






TCTTE 




I — 


TCTTEDA 






USER 
TIOA 













TYPE* 

ADD 

ERASE 

REPLACE 

SEND 



PROCESS 







Obtain DIB if necessary. 



Make trace entry. 



Copy TCA parameters to DIB. 



Select correct destination. 



Elf not SEND ensure that function and blocksize 
factor are the same as previous specification. 



I 1 !f KEYADDR or RRNADDR specified, build and 

L2LI output RECID FMH. 



["571 Output user data. 



Set return code. 



OUTPUT 



P 



=> 



=> 





DIB 














INTERNAL 
TIOA 












TCA 






TCADI RC 













Data Interchange - Output 



Diagram 6.4.2-01 



Selecting the correct destination involves 
possibly suspending/resuming/ending the 
current destination and beginning new 
destination. 



Data Interchange — Output 



SARE0010 



SARERIDT 



REFERENCE 



Diagram 6.4.2-01 
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INPUT 
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PROCESS 







Obtain DIB if necessary. 



Make trace entry. 



nrr~| Copy TCA parameters to DIB. 



Select correct destination. 



If QUERY, output a QUERY FMH. 



Output an END FMH (or ABORT FMH for ABORT). 



Update DIB selection information. 



Set return code. 



OUTPUT 



:> 



^> 



$ 





DIB 














TIOAWITH 
FMHS 












TCA 






TCADIRC 













Data Interchange - End Functions 



Diagram 6.4.3-01 



See 6.4.6 



Data Interchange — End Functions 
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INPUT 




NOTE 



PROCESS 



OUTPUT 



K3 



0- 







Obtain DIB if neccesary. 



Make trace entry. 



nrr] Copy TCA parameters to DIB. 



Select correct destination. 



Build and output NOTE FMH. 



Issue DFHTC READ.WAIT to obtain reply. 



r^H Format reply and save in DIB. 



Set return code and TCA pointer to reply. 



:> 



$ 



:> 





DIB 














INTERNAL 
TIOAWITH 
FMH 












TCA 






TCADIRC 




TCADIRNA 











Data Interchange - Note Operation 



Diagram 6.4.4-01 



Data Interchange — Note Operation 



FMHBNOTE 



FMHBN010 



Diagram 6.4.4-01 
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INPUT 



TCTTE 



TCTEDIBA 



PROCESS 



OUTPUT 







Test if any active or suspended destination if so, set 
aborted flags and exit. 



If aborted flags set then exit. 



Free the DIB and set TCTEDIBA to zero. 



^mzfy 



-mkzfy 





TCTTE 






TCTEDIBA 








DIB 

















Data Interchange - Detach Operation 



Diagram 6.4.5-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 







DETACH 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Data Interchange - Detach Operation 
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INPUT 



PROCESS 



I I Test if selection, destination and volume are as 
I °1 I previously specified if so exit. 



Test if new selection is for the console, issue suspend 



for any active destination. 



If not for console issue resume for any suspended 
destination and retry destination tests in 01. 



If new destination not the same as current, end 
current destination and begin new destination. 



OUTPUT 



=> 





TIOAWITH 
FMHS 






















DIBDBAM 




DIBVNAM 


DIBMSB 









Data Interchange - Selection Operation 



Diagram 6.4.6-01 







DESTC300 



REFERENCE 



Data Interchange - Selection Operation 
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Initialization Routine 



6.5.1 



Acquire Dynamic 
Storage 



6.5.2 



i 



Call Entry 



6.5.3 



i 



Exceptional Condition 
Handler 



6.5.4 



i 



Local/Remote 
Resource (ISC) 



6.5.5 
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EIP -Visual Index 



Diagram - 6.5.0-01 
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INPUT 



OUTPUT 



FROM 1.3.4-02 







Initialize the address slots for communication 
between the PL/I, COBOL, or Assembler application 
program, the stub and the interface. 






<frmfy 



PL/I 

DFHEPI 

I DFHAICBA 




COBOL 
DFHECI 




DFHAICBA 




Assembler 
DFHEAI 




I DFHAICBA 




DFHEIP 




| EICSAA 







EIP Initialization routine 



Diagram -6.5.1-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


r— j PCP passes register 1 to DFHEIPIN which 

I I points at an argument list that contains the 

address of the slot in the stub which is to 
contain the address of the call entry point to 
EIP-DFHEIPCN. 




DFHEIPIN 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











EIP Initialization routine 



Diagram -6.5.1-01 
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INPUT 



TCAKCTTA 
TCAFCI 



CSATODP 
CSAJYDP 



TCTTETI 

TCTTECAD 

TCTTEAID 



PROCESS 



@ 



If EIS does not exist then GETMAIN and initialize. 



H 



The address of EIS is saved in the system TCA. 



If there is an EXEC CICS RETURN TRANSID 
COMMAREA specified, then merge the argument list 
into the argument list in EIS. 



For Assembler, set EISASM in EISFLAG1 and point 
register 1 at the argument list built in EIS to be 
passed to the application. 



For PL/I set EISPLI in EISFLAG1 and point 
register 1 at the argument list built in EIS to be p 
to the application. 



OUTPUT 



'mM) 




v////////> > 



y/////////^ 





EIS 






EISARG1 

EISARG2 

EISARG1P 

EISARG2P 

EISTITLE 

EIBTIME 

EIBDATE 

EIBTRNID 

EIBTASKN 

EIBTRMID 

EIBCPOSN 

EIBAID 

EIBCALEN 






TCA 






TCAEISA 
EISFLAG1 






........ 






EISFLAG1 






I' 











EIP Initialization routine 



Diagram -6.5.1-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


rrrj EIS will already exist if the 
l— I application program has been invoked 
by an EXEC CICS LINK or XCTL. 
(This EIS contains an argument list to 
be passed to the application). 
If EIS did not already exist then the 
argument list to be passed to the 
application is built in the system part 
of EIS. 

EIS will also exist (but will not be 
initialized) if the task has previously 
been executed and has used the EXEC 
interface. In this case KCP acquires 
EIS, along with the TCA, and EIP just 
initializes it. 

r7jT| The argument list was built in CLASS = 
L__l SHARED storage by the EXEC CICS 

RETURN function. 

It is addressed by TCTTEEIA. 

nj^"| EISASM will be used in EIP where there 
L—J are dependencies on Assembler. 

nj£] EISPLI will be used in EIP when there 

1 1 are dependencies on PL/I (eg. length 

of labels). 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











EIP Initialization routine 



Diagram - 6.5.1-02 
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CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL — PROPERTY OF IBM 



INPUT 



EIP Initialization routine 



PROCESS 



For COBOL set EISCOBOL in EISFLAG1 and 
set up BLL cells 



Invoke application. 



0=3 



Return to PCP. 



Page 3 of 3 



=> 



% 



EISFLAG1 



Diagram — 6.5.1-03 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


fTfil The BLL cells are 
l__J 1- EIB . 

2. DFHCOMMAREA 

3. points to itself 

4. CSA 

JTZ1 The application is invoked from EIP 
( I and it will return to this point in EIP 

njjri EIP normally returns to PCP after the 
I I point of invocation of EIP but control 

also reaches this point in EIP for an 

EXEC CICS XCTL in a PL/I program. 

In this case control passes to the XCTL 

code in PCP. 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











EIP Initialization routine 



Diagram - 6.5.1-03 
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INPUT 



Register 1 



Points to a 
halfword length 
in application 
program 



From Assembler 
application 



PROCESS 



OUTPUT 



i*> 



I 01 1 Check that length of storage requested is not less 
' ' than the minimum required for Assembler 

command-level pro grams . If register 1 contains 

go straight to step I 95 I 

foY] GETMAIN CLASS = USER storage of the requested 
I — J length. 



Add storage area to chain of dynamic storage areas 
pointed to by TCAPCDSA. 



04 



Return address of acquired storage to application. 



I 05 I Free dynamic storage 
| 06 | Return to application 



/////;////> > 



% 



To Assembler 
application 





Register 1 






Points to 
acquired storage 
area (first 
usable byte) 











Acquire Dynamic Storage for Command-Level Assembler Programs 



Diagram - 6.5.2-01 



The prolog code in an Assembler 
program which uses the command-level- 
interface is generated by the DFHEIENT 
macro. This prolog invokes DFHEIPAN 
to obtain the dynamic storage that the 
application will require, with register 1 
pointing at the length of storage 
required. 

The epilog code in an Assembler 
program which uses the command-level- 
interface is generated by the 
DFHEI RET macro. This epilog code 
invokes DFHEIPAN to free the dynamic 
storage. In this case register 1 contains 0. 



Acquire Dynamic Storage for Command-Level Assembler Programs 
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INPUT 



EIP Call Entry 



| EICSAA 



TCACDTA 



EIA 



EIAARGO 
EIAARG1 
EIAARG2 
EIAARG3 



|eidfunc 



EIA 
EID 



applications 
register 
save area 



FROM PROCESS 

APPLICATION 

PROGRAM 



OUTPUT 



J 

3 



^> 



DFHEIPCN: 



| 01 I Save application program registers in application's 
*-■ — ' save area. 



1 02 | Load EIP registers for CSA, TCA, EIS, 
I Q3 I Restore the CICS program mask. 

















Set up registers that point permanently at the first 
few arguments. 

If trace enabled, make trace entry. 
Invoke EDF. 

Invoke ELR. 

Use the encoded f unption group as an index down the 
table of function group offsets to find the table of 
function offsets. 

Use the encoded function as an index down the table 
of function offsets to find the routine for this function. 

Invoke the routine for this function. 



If abnormal response go to exceptional condition 
handler. 

If trace enabled, make trace entry, Restore application 
program registers and program mask and return to 
application. 



V////////J} 



'/////////> > 



Y////////J ) 



• y to 6.5.4 



% 



applications 
register 
save area 



CICS control blocks 



to application program 



Diagram - 6.5.3-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





For COBOL they are saved in the TGT, 
for PL/I they are saved in the DSA, and 
for Assembler they are saved in DFHEISTG. 
In each case this is the register save area 
that register 13 points to when EIP is 
invoked. 











The CSA address was stored on DFHEIP 
byDFHEIPIN 






6.5.1 





The application program may run with 
a different program mask from CICS. 
(eg. PL/I) 











To minimise code size and maximise 
performance,.four registers are reserved 
to point at the first four arguments 
(theother arguments are addressed 
indirectly via the argument list which is 
pointed at by register 1) 











The EIP trace entry records the application 
program's register 14, the function group 
and function encoding, the application 
program's save area address. 




EICC40 







If debug mode is on in EIS, then invoke 
EDF. 











If ISC - YES was specified at CICS 
initialization, invoke DFHELR. 






6.5.5 





Function groups are by CICS component, 
e.g. TC, FC, TD etc. 




EICC60 







Examples of functions are READ, WRITE, 
READNEXT within the FC function group. 









NOTES 












There are separate load modules for each 
of the separate function groups of EIP, 
e.g., DFHETC, DFHEFC, DFHETD, etc. 
The individual function code may invoke 
routines in the nucleus of EIP, DFHEIP. 

The routine for each function takes the 
arguments passed by a call statement and 
stores information in EIS and/or CICS 
control blocks. This may be done in 
individual function code or in routines 
which are common across a function 
group. If required, the appropriate 
CICS/VS module is then involved. 



Abnormal responses are handled separately. 

The EIP trace entry for normal return, 
records the application program's 
register 14, the function group and 
function encoding and the response code. 



REFERENCE 



EIP Call Entry 



Diagram - 6.5.3-01 
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Page 1 of 1 



INPUT 



From Page 6.5.2 PROCESS 



OUTPUT 



EIS 
EISGROUP ~| 



EILLABI 
EILLAB2 



applications 
register save 



EIP Exceptional Condition Handler 



it> 



=> 



EICCEROO: 
I 01 I Save response in EIS 
n^H Invoke EDF.- 

I 03 I F ind table of response codes for this function group 



E 



If the response matches one of the. response codes in 
this table, then pick up the offset within the label 
table from the response code table. If the response 
does not match, then use. the offset of the ERROR 
response within the label table. 

Examine the label table at this offset to see if an EXEC 
CICS HANDLE CONDITION is active for this 
exceptional condition. 

If a HANDLE CONDITION is not active then take the 
system action. 

If a HANDLE CONDITION is active return to the 
application program at the label specified by the 
EXEC CICS HANDLE CONDITION 



'/////////> > 



% 



to application 
program 



EIS 
| ElBRCOpT" 



Diagram - 6.5.4-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





The response is saved in the user area of 
EIS (EIB) for the application to access. 




EICCEROO 




@ 


If debug mode is on in EIS, then invoke 
EDF. 











The response codes from CICS/VS are 
only unique within a CICS/VS component,, 
so the function group is used to find the 
convert table of response codes for this 
component. 




EICCER20 











EICCER30 











EICCER60 




E 


For some exceptional conditions the 
system action is to return normally 
to the applications (via DFHEIPCX on 
6.5.2-01). For most exceptional 
conditions the system action is to abend 
with an ABEND code that begins AEI 
or AEY. The last character of the abend 
code indicates the exceptional condition. 




EICCER70 







The EIP trace entry for abnormal return, 
records the address of the exceptional 
condition label, the function group and 
function encoding, the response code. 
For COBOL, return is to a GO TO 
DEPENDING ON EIBGDI statement 
withElBGDIsetupbyEIP. 

For PL/1, return uses the PL/1 
abnormal GOTO code. 




EICCND50 





EIP Exceptional Condition Handler 



Diagram - 6.5.441 
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CICS/OS/VS Program Logic: Description 
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INPUT 



PROCESS 



Local/Remote Resource Determination (Intersystem Communication) 











05 



If the function group is not FC, TD, TS, IC, then 
return to El P. 



njj] For all FC, TD, TS functions and for IC START and 
I 1 CANCEL, determine if the resource is local or remote. 



03 If local, return to EIP. 

If remote, find XFRSTG or GETMAIN a new one. 



Issue DFHIS TYPE = CONVERSE. 



[771 Return to EIP to branch straight to exception 
I 1 handler. 



OUTPUT 



EHV> 



To 
DFHEIP 



EH^> 



To 
DFHEIP 



% 



Page 1 of 1 



Diagram -6.5.5-01 







A resource is remote if the SYSID 
option is specified or if the entry in the 
associated CICS table indicates the 
resource to be remote. The CICS tables 
involved are: 

FCT for FC 

DCTforTD 

TST for TS 

PCT for IC 



XFRSTG is used to pass information 
through ISP to XFP. 



LABEL REFERENCE 



Local/Remote Resource Determination (Intersystem Communication) 



Diagram - 6.5.5-01 
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Intersystem 

Communication 

(ISC) 

6.6.0 






































Intersystem 
Communication 
Program 
(DFHISP) , 661 




ISC-ALLOCATE, 
POINT, FREE 
(DFHZISP) 

6.6.2 




Transformation 

Program 

(DFHXFP) 

6.6.3 




Mirror 

Transaction 

(DFHMIR) 

6.6.4 






















Intersystem 
Communication 
• Converse 

,DFHISP) 6.6.1.1 




ALLOCATE 
(DFHZISP) 

6.6.2.1 




Transformation 1 
(DFHXFP) 

16.6.3.1 






















POINT 
(DFHZISP) 

'6.6.2.2 




Transformation 2 
(DFHXFP) 

6.6.3.2 




















FREE 
(DFHZISP) 

,6.6.2.3 




Transformation 3 
(DFHXFP) 

6.6.3.3 


















Transformation 4 
(DFHXFP) 

I6.6.3.4 





Intersystem Communication - Visual Index 



Diagram - 6.6.0-01 
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CICS/OS/VS Program Logic: Description 
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INPUT 



From 
DFHELR 



Page 1 of 1 



PROCESS 



OUTPUT 





R1 




^> 


DFHISP 



m 
















Register 1 j 


Establish addressability to the ISC parameter list 

The ISC request byte determines the service routine 
to be used 

Check if TCTTE was supplied 

a. Yes 

b. No 








LFDSOFDR 
LFDSOFR1 






DFHISCRQ 










ISCRQTCT j 








M •> 








<n> 


ADDTAB 




Service Routines 


Return error codes to user 
Return to caller 


- 








M \> 





EI>0 
[rr^0 



Y///////fy 



% 




Intersystem Communication Program (DFHISP) 



Diagram -6.6.1-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


I 01 I The address of the ISC parameter list 

« 1 is in the register save area of the LI FO 

stack 

j"~~] The ISC request byte is used as an index 
I 1 to an address list of service routines 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











Intersystem Communication Program (DFHISP) 



Diagram -6.6.1-01 
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INPUT 



| Register 1 | 



From 
DFHELR 


PROCESS 


lib?> 


DFHISP 













Establish addressability to LIFO storage 
Establish addressability to ISC parameter list 






Establish addressability to transformer parameter list 




Obtain remote system name 




Does a link exist to the required remote system 




a. Yes 







b. No 

Can a link be allocated to remote system 


|oe| • > 




a. Yes 







b. No - return error code to user and return to 
caller 

Call Transformer 1 to format user's request for 
shipping 


H ' > 







If errors detected by Transformer 1 , either 

a. Go to Transformer 4, or 

b. Issue an ABEND 



Page 1 of 2 



OUTPUT 



m>0 

ED0 

EO0. 
K///////// D 

GZI/ To Cai 



ED(3 




Intersystem Communication - Converse (DFHISP) 



Diagram -6.6.1.1-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


fTTI DFHTC TYPE = POINT, 
Llll REQUID = CSMI, 
TRMIDNT = YES 

|— 1 DFHTC TYPE = ALLOCATE, 
l°°l REQUID = CSMI, 
TRMIDNT = YES 

[77] DFHISTYPE = XFORM, 

1 1 XFNUM = 1, 

XFSTG = DFHXFRDS 
DFHXFRDS is the start of the 
transformer parameter list 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











Intersystem Communication - Converse (DFHISP) 



Diagram -6.6.1.1-01 
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INPUT 



PROCESS 



^X> 





CD 




Converse with the remote system 

Call Transformer 4 to format the reply from the 
remote system into user storage 

Check if link to remote system is to be released 

a. Yes 

b. No 

Free the link 

Return error code to user and return to caller 



OUTPUT 



V////////A) 









|XFRCODES~" 



Intersystem Communication - Converse (DFHISP) 



Diagram -6.6.1.1-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


rZTI DFHTC TYPE = (WRITE, WAIT, READ), 
l__J TERM = YES, 
FMH = YES 

rrri dfhistype = xform, 

L_J XFNUM = 4. 

xfstg = dfhxfrds 

DFHXFRDS is the start of the trans- 
former parameter list 

rrri dfhtctype = free, 

1 1 TERM = YES 

nri dfhlfmtype= return, 
L_lJ plist = lfmplz 

LFMPLZ is LI FO parameter list 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











Intersystem Communication - Converse (DFHISP) 



Diagram -6.6.1.1-02 
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INPUT 



FromDFHISPor 
DFHSPP 

PROCESS 



^ 



6.6.2.2 1« » * 

6.6.2.3 







DFH2ISP: 

[5] 



Reserve LIFO storage 
Initialize return code 



HJJ1 Establish addressability of TCT prefix 

rrri Analyze request 
«— ' a. ALLOCATE 

b. POINT 

c. FREE 

d. Invalid request 

(TTl Set error code for user to act upon 







Return to user 



OUTPUT 



| »> y 6.6.2.1 

| '• • y 6.6.2.2 
|»» ) 6.6.2.3 



^ 



% 



Page 1 of 1 











TCATPAPR 












TCATPAPR 











ISC - ALLOCATE. POINT, FREE (DFHZISP) 



Diagram - 6.6.2-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


(TTj DFHLFM TYPE » RETURN, 
l__J PLIST «= TCZISLFM 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











ISC - ALLOCATE, POINT, FREE (DFHZISP) 



Diagram - 6.6.2-01 
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INPUT 



FromDFHISP PROCESS 



OUTPUT 









TCATPTA 
TCATPREQ 








TCATPTA | 




TCTTETT | 








TCTIVTAM | 








TCTTECA | 




TCTTETT | 


| TCTTEIST | 

TCTTEAR 

| Register 10 | 



Ik 


t> 


DFHZISP: 











Save input parameters 

Locate a TCTTE that will satisfy the request. 
If noTCTTE exists 


' • 


1 


V 









Save located TCTTE address 









Determine the type of TCTTE located 

a. Intersystem table 

b. VTAM conversation 

Does executing task already own this session? 
a. Yes 





















b. No 









Is TCTTE valid for VTAM 






a. Yes 








b. No 










Point to intersystem table for requested system 
Save 1ST address 


1 > 


|08| . 


^> 




1 > 







eO« 



[Z>0 



| • • ^ > 6.6.2 



CE>0 

["•"■_/> 6.6.2 



> 



^> 











TCZISPTN 
TCZISPRQ 












TCATPTA 
TCTTEAR 
Register 10 






TCZISPTA 

TCTTEAR 
Register 10 






| TCZISPSE 


I 









ALLOCATE (DFHZISP) 



Diagram -6.6.2.1-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


[^1 DFHTC CTYPE = LOCATE, 
L_J TERM = ID 

The remote system identification is in 

TCATPTA 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











ALLOCATE (DFHZISP) 



Diagram - 6.6.2.1-01 
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INPUT 



PROCESS 



OUTPUT 





| TCTTETS | 


| TCSESUS J 


| TCTTETT | 









Is session out of service 

a. Yes 

b. No 

Is there already a request waiting for this session 

a. Yes 

b. No 

User may have requested a specific session or any 
session to give access to the remote system 

a. Any session to the system was requested 

b. A specific session was requested 

Check the status of the bracket 

a. TCTTE is available 

b. TCTTE not allocated so request must be queued 

c. A TCTTE cannot be allocated 



[H>l 

ci>i 



ALLOCATE (DFHZISP) 



Diagram -6.6.2.1-02 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


rrri dfhtcpcmtype = bracheck 

l_U The TCTTE address is in TCATPTA 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











ALLOCATE (DFHZISP) 



IDiagram - 6.6.2.1-02 
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INPUT 



PROCESS 









| TCTTECA | 






TCSEVC2 


TCTTEAB 


Register 10 


TCTTECA 


TCTESLNK 










TCATCUCN 


TCTTEAR 


Register 10 


TCACBAR 


Register 1 2 














TCATPREQ 


TCATCPC 




PCT 




PCTMIOAJ 


PCTMSJID 







STD 



:> 



(TT"| Check if TCTTE is currently in use 

a. Yes - therefore a request must be queued 

b. No — therefore it can be allocated for immediate 



E 



The chain of TCTTE's available for the remote system 
to be accessed is searched for one that is available. 

a. TCTTE available and allocated for immediate 
use. 

b. TCTTE not available, therefore request must be 
queued. 



Form the logical connection between the allocated 
TCTTE and the TC A 



rTTl Initialize fields in TCTTE before returning to user 



QE 



Return to user 



OUTPUT 



EDI") 

eOh 



EDI3 



P 







TCTTEUCN 




TCTTECA 


TCATCUCN 







TCTETRND 




TCTEAIOF 


TCTEJID 


TCTEIFHA 


TCTENEPC 


TCATPTA 







ALLOCATE (DFHZISP) 



Diagram -6.6.2.1-03 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


[77] DFHTCPCMTYPE = BRACHECK 
I I The TCTTE address is in TCATPTA 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











ALLOCATE (DFHZISP) 



Diagram -6.6.2.1-03 
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INPUT 



PROCESS 



OUTPUT 







TCASCSA 


AIDBBAR 


Register 4 


TC2ISPRQ 


TCZISPTN 


TCZISPSE 





0H> 



=> 



|TT"| Get storage to create an Automatic Initiation 
I I Descrip 







Descriptor 



Establish addressability of AID and create fields 



I 2Q I The AID is placed on the existing AID chain and the 

I 1 task suspended until a TCTTE becomes available. 

The task is then resumed 



I 21 I Test if a TCTTE was available 
a. Yes 



ECX3 

Q_»\ 6.6.2 











| TCASCSA 










AIDBBAR 




Register 4 


AIDTRNID 


AIDTRMID 


AIDTCTA 


AIDTYPE 


TCAKCFA 







ALLOCATE (DFHZISP) 



Diagram -6.6.2.1-04 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


r—\ DFHSCTYPE = GETMAIN, 
LIL) CLASS = AID, 
INITIMG = 00, 
NUMBYTE = AIDXTAD 

\TZ] DFHKC TYPE = SCHEDULE, 
L_J CLASS = IS, 

TRMIDNT = YES 









NOTES 


ROUTINE 


LABEL 


REFERENCE 











ALLOCATE (DFHZISP) 



Diagram -6.6.2.1-04 
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INPUT 



FromDFHISP PROCESS 



OUTPUT 



r~*~| Search chain of existing sessions to find a TCTTE that 
I ' 1 will satisfy the user's request to access a remote 
system. 



a. A TCTTE was found for this conversation. 
Return to user 



b. A TCTTE was not found for this conversation. 



^ 







To User 



A> 66 - 











TCATPAPR 




TCATPTA 









POINT (DFHZISP) 



Diagra>ij - 6.6.2.2-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 











NOTES 


ROUTINE 


LABEL 


REFERENCE 











POINT (DFHZISP) 



Diagram - 6.6.2.2-01 



Section 2: Method of Operation 



773 



LICENSED MATERIAL— PROPERTY OF IBM 



INPUT 









TCACBAR 


Register 12 


TCTTECA 













TCTTESC 


TCTESRI2 


TCALCDSA 







FromDFHISP 

orDFHSPP PROCESS 



Page 1 of 2 



^> 



OUTPUT 



DFHZISP: 


M 


Check that TCTTE to be FREEd is owned by 
this task 
a. Yes 




b. No 


@ 


Access method is VTAM 


■0 


Check bracket status 
a. Out of bracket 




b. End bracket has not flowed 


E 


Check inbound request header. 
If response received or not required 


S 


Acquire a TIOA if necessary and send positive 
response 



| . . * y 6.6.2 

EOS 

| m" ) 6.6.2 

EI>! 



Register 10 







TCASCSA 




TCTTE DA 


TIOATDL 


TCTESR01 


TCTESR02 


TCTESR03 







FREE (DFHZISP) 



Diagram - 6.6.2.3-01 
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rZT\ If the task does not have a TIOA then 

I I one must be acquired: 

DFHSCTYPE = GETMAIN, 

CLASS = TERMINAL, 
NUMBYTE=12 
with zero data length so that a positive 
response can be sent: 
DFHISTYPE = IOR, 

PLIST = ZISCRQ. 
REQUEST = WRITEL, 
TERM = TCTTEAR 









NOTES 


ROUTINE 


LABEL 


REFERENCE 
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INPUT 













TCATCUCN 




TCTTEUCN 
















TCATPTA 





PROCESS 



^EZ> 



^> 



^ 



♦ 



I Qg I Reset bracket request header. Abort and sync 
I I point status 



Remove TCTTE from the TCA-TCTTE chain 



If the access method is not VTAM, all terminal 
storage associated with the FREEd TCTTE is 
released and return made to the user 



For VTAM storage is also released but the method 
differs from that for other access methods. Return is 
then made to the user 



E2> 



t> 



OUTPUT 







TCATCUCN 




TCTTEUCN 


TCTTECA 



FREE(DFHZISP) 



Diagram - 6.6.2.3-02 
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[771 DFHSCTYPE = FREEMAIN, 

1 1 CLASS = TERMINAL. 

RELEASE = ALL, 
TERM = YES 

nnri DFHTCCTYPE = DETACH, 
till TERM = YES 









NOTES 


ROUTINE 


LABEL 


REFERENCE 
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From DFHISP 
orDFHMIR 



Page 1 of 1 



INPUT 



PROCESS 



I q 1 I Transformation 1 - transform requested command 
I 1 and parameter list into a form suitable for trans- 
mission to remote system 



Transformation2 - transform received request into a 
form suitable for execution 



I Q3 I Transformation 3 - transform the command response 
I I into a suitable form for transmission of the reply. 



E 



Transformation 4 - transform reply into a form 
expected by application program. 



Transformat 
6.6.3.1 

cz> 

Transformat 
6.6.3.2 

m> 

Transformai 
6.6.3.3 

CO 

Transformation 4 
6.6.3.4 



Transformation 2 
6.6.3.2 



Transformation 3 
6.6.3.3 




Transformation Program (DFHXFP) 



Diagram - 6.6.3-01 
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Transformation Program (DFHXFP) 
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INPUT 
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DFHISP PROCESS 
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OUTPUT 















User parameter 
list 






XF control block 












DL/I control 
blocks 




CICS control 
blocks 






RIB 
RPDIR 


or 


FCT 
PCT 
TST 
DCT 















S" 



Identify user request 



rTT"| Select code appropriate to function and 
I I transformation 



I 03 | Identify architecture model for transmission 



Construct attach header and FMH in TIOA 



Terminate processing 



Return to caller 



Y////////fy 



Y////////J ) 



% 





noA 






Transformed 
data for 
request 






XF control block 

















Transformation 1 (DFHXFP) 



Diagram -6.6.3.1-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


1 q. 1 This is the paramater list passed from 
I I the application program to the EXEC 

interface program or to the DL/I 

interface program 

1 Q3 I I Q4 1 Done by routines such as TSWQ01 00 






INIT0100 
CMN0000 

CMN0100 





NOTES 


ROUTINE 


LABEL 


REFERENCE 











Transformation 1 (DFHXFP) 



Diagram -6.6.3.1-01 
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INPUT 





TIOA 






Transmitted 
request 






XF control block 

















From 

DFHMIR PROCESS 
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O 



Remove attach headers and set pointers to FMH 



Select code appropriate to function and 



transformation 



FZTl Construct argument list, expanding arguments as 
I 1 necessary 



E 



Terminal processing 



Return to caller 



Y////////A) 



V///////J) 



% 











Argument list 
to be passed 
toEIPorto 
DL/I 






XF control block 






I 









Transformation 2 (DFHXFP) 



Diagram - 6.6.3.2-01 
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[T7"| This is the data as constructed during 
I 1 transformation 1 

njj] Done by routines such as TSWQ0200 






INIT0200 
CM N 0000 

CMN0200 
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Transformation 2 (DFHXFP) 



Diagram - 6.6.3.2-01 



778 



CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL — PROPERTY OF IBM 



INPUT 















Argument list 
as created 
during 

transformation 
2 






XF control 
block 












CICS control 
block 




DL/I control 
blocks 






EIB 


or 


PST 
PCB 
UIB 
PDLR 















From 

DFHMIR PROCESS 
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^> 



Select code appropriate to function and to 
transformation 



Construct FMH inTlOA 



l Q ~ | Terminate processing 







Return to caller 



OUTPUT 



y/////////^ 



% 





TIOA 






Transformed 
data for reply 






XF control block 

















Transformation 3 (DFHXFP) 
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rTTI This is the argument list as 

I 1 constructed during. transformation 2 

rrri Done by routines such as TSWQ0300 




INIT0300 
CMN0000 

CMNQ300 
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Transformation 3 (DFHXFP) 



Diagram - 6.6.3.3-01 
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INPUT 
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OFHISP PROCESS 
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OUTPUT 









User parameter 
list 




XF control 
block 








TIOA 




Transmitted 
reply 







DFHXFP: 


no 


Set parameters to FMH 


s 


Select code appropriate to function and 
transformation 


B 


Complete execution of request 


E 


Terminal processing 


@ 


Return to caller 






^> 



Y//////Z? ) 



% 





User data areas 












CICS control blocks 




EIB 






DL/I control blocks 




RIB 

RPCB 

PCB 






Transformation 1 private control block 
for DL/I 




XFPCB 






XF control block 

















Transformation 4 (DFHXFP) 



Diagram - 6.6.3.4-01 



NOTES 
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rTTl This is the data as constructed 
1 1 during transformation 3 

H^l Done by routines such as TSWQ0400 






INIT0400 
CMN0000 

CMN0400 
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Transformation 4 (DFHXFP) 



Diagram - 6.6.3.44)1 



780 



CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OF IBM 



INPUT 



| TCAFCI | 



From 
DFHISP 



Pago 1 of 2 



PROCESS 



enr> 



i 



° 9 I • > 






1*771 If facility is not a terminal, issue ABEND 
njTI Establish addressability to TCTTE 

[*""71 If a sync point request was made, return to caller 
rTTI Pass TIOA address to Transformation 2 
"771 Call Transformation 2 

("77] If any errors on return from Transformation either 

a. Go to Transformation 3, or 

b. Issue an ABEND 



07 



Determine if user's request is: 

a. DL/I 

b. EIP 

Pass the user's parameter list and CALL DL/I 

Check for any exceptional conditions for the request 

a. Errors 

b. No errors 

Pass the user's parameter list and CALL EIP 



OUTPUT 



EZ=> 



To 
Caller 



ED® 
ED® 

EDJJ 
ED® 



Mirror Transaction (DFHMIR) 



Diagram - 6.6.4-01 



NOTES 
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LABEL 


REFERENCE 


[Tri DFHPC TYPE = ABEND. ABCODE 
LlU =AISA 

fTT] The sync point will be issued by 
till DFHKCP 

[77] The TIOA contains data about the user's 
1 1 request and was formatted by 

Transformation 1 on the user side of the 

intersystem link 

[-771 DFHISTYPE-XFORM. 

Lrll XFNUM=2, 

XFSTG=XFRSAA 
XF RSAA is the start of the 
transformation parameter list 

njT] This action depends on the severity of 
1 1 the errors 

b. DFHPC TYPE « ABEND, 
ABCODE = AISB 

[771 CALLDLI ASMTDLI MF=(E.D 

[771 EXEC CICS HANDLE CONDITION 
1 1 ERROR 

fTT] DFHEICAL 









NOTES 
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REFERENCE 











Mirror Transaction (DFHMIR) 
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INPUT 











XFR FLAGS 
TCADWLBA 
TCAKCQC 











PROCESS 



W$ 



["771 Call Transformation 3 

["771 Checkif DFHMIR is to process a reply 

["771 Send response to remote system 

ESend response to remote system and await a reply. 
Process reply 



OUTPUT 



Y////////A ) 






Mirror Transaction (DFHMIR) 



Diagram - 6.6.4-02 



NOTES 
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LABEL 
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r77\ DFHISTYPE = XFORM, 
L_J XFNUM = 3, 

XFSTG = XFRSAA 

XFRSAA is the start of the transformation 

parameter list 

fTTl DFHTC TYPE = (WRITE, WAIT, LAST), 
l—J FMH = YES 

r—\ DFHTC TYPE -(WRITE, WAIT, READ), 
L_J FMH = YES 

[T£"| DFHLFMTYPE = PCRETURN 









NOTES 
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Mirror Transaction (DFHMIR) 
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INPUT 



PROCESS 



OUTPUT 





TCA 




TCAPCAC 




EIS 




EISEDFDM 
EISEDFRB 




PCT 




PCTTSKA 




PPT 




PPTPI 




TCTTE 











From DFHACP. 
DFHEIP, or 
DFHPCP 



DFHEDFX: 

I 01 I Attach task CEDF 




<n> 


KCP 




1.1.1 


| 1 Store information about user task in 
l 02 l attached task's TWA 

03 Suspend user task 


CO 


KCP 




1.1.7 


I 04 I If Abend requested by CEDF task Abend user 


<^> 


PCP 




1.3.3 


05 Return to ca 


ler 






To DFHACP, 
DFHEIP. or 
DFHPCP 



EDF Task Switch Program 



Diagram -6.7.1-01 











Do not attach another CEDF task if this 
task is already under the control of a 
CEDF task 

Most information is copied directly. In 
some instances the address of the data 
is recorded. The CEDF task must take 
care not to write back into the user 
task's control blocks if the user task is 
purged. 

The user task should be resumed by 
CEDF but may be resumed by KCP 
in a stall situation. 

User may instruct CEDF to Abend 
the user task 

Caller may be EIP, PCP, or ACP 



EDF Task Switch Program 



Diagram -6.7.1-01 
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INPUT 



PROCESS 





TCTTE 




TCTTEDA 




PCT 




PCTTI 




TWA 








EIS 




EISEDFDIV 







From DFHKCP 



01 



DFHEDFP: 

If invoked from a terminal by a PF key, 
set EDF on. 



If invoked from a terminal by transaction 
ID CEDF, set EDF on/off for specified 
terminal. 



If attached by DFHEDFX for EDF on a single 
terminal, or initiated by DFHEDFP, link to 
DFHEDFD. 



<H3 



("04"] If attached by DFHEDFX for EDF on a 
I 1 different terminal, initiate DFHEDFP. 



<£OI 



If necessary restore terminal to user task 
and resume user task. 



Return to CIC 



OUTPUT 




22Z|p£> 



^0 



EDF Control Program 



•••••• I 



TCTTEEIA 
TCTTECA 



TCA (of user task) 



Diagram - 6.7.2-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 


["qTI The PF key always means that the 

I 1 Execution Diagnostic Facility (EDF) is to 

be switched on for the direct terminal. 

1 Q2 I Input message is analyzed and named 

I I tefminal located. If HLPI task is active 

but not yet in EDF mode, switch EDF 
bit in EIS; otherwise switch bit in TCTTE. 

1 03 I Using EDF on a separate terminal an 
L — I IC PUT macro starts the CEDF task at the 
display terminal. The associated data is 
retrieved and stored in the TWA. 

j"q7| Using EDF on a separate terminal 

I I DFHEDFP is first invoked to initiate a 

task on the display terminal. The data 
stored in the TWA is passed to the initiated 
task by using an IC PUT macro. 

|0g 1 Using EDF on a single terminal the 
I— J terminal is removed from the CEDF task 
and restored to the user. 

[T~"j The CEDF task terminates, the user task 
I J having been allowed to continue. 









NOTES 
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EDF Control Program 



Diagram - 6.7.2-01 
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INPUT 



PROCESS 



OUTPUT 





TWA 











From DFHEDFP 

m 








-Hk»> 


DFHEDFD: 









If necessary remember user display 













Build EDF display 









If EXEC command to be executed load table 
DFHEDFF and interpret parameter list 









If EXEC command complete load table 
DFHEDFR and interpret response 









Display map 









Receive and process user input 









If necessary restore user display 











Remember EDF display 
Refresh control information 
Return 






V////////A 




... .."i.n 








To DFHEDFP 





TWA 

















EDF Display Program 



Diagram - 6.7.3-01 



NOTES 


ROUTINE 


LABEL 


REFERENCE 





If the EDF display terminal is the same as 
the user terminal and the user screen may 
be different from the last saved screen, 
issue a read buffer and store a copy of the 
buffer on a temporary storage queue 
named X'FDOT || TERMINAL- ID 











There are five types-of display: 

1 . Function display, for example 
initialization, about to execute 
command 

2. EIB display 

3. Storage display 

4. Stop conditions 

5. Remembered display 











DFHEDFF is a table that relates particular 
arguments to their keyword and specifies 
the data type, length, etc. 











DFHEDFR is a table that relates particular 
responses to their exceptional condition. 











The display can have one of three formats 
defined by map. 

DFHEDFM 

DFHEDFN 

DFHEDFP 

all of which reside in mapset 
DFHEDFM 













The user may modify data on the screen 
and then press ENTER or a PF key. 
The modified data is checked and then 
used to overwrite user data. The action 
defined for the PF key is then performed. 

If the user task is about to use the EDF 
display terminal in some way, restore the 
remembered user display. 



Remember current EDF display on 
temporary storage queue. 



Refresh control information (for example, 
number of current display) and store on 
temporary storage for next invocation 
of CEDF task. 



Return to DFHEDFP. 



EDF Display Program 



Diagram - 6.7.3-01 



Section 2 : Method of Operation 



785 



LICENSED MATERIAL — PROPERTY OF IBM 



SECTION 3, PROGRAM ORGANIZATION 



CICS/OS/VS source-program listings are the key to the organization of 
CICS/OS/VS. You get into the listings from the method of operation 
(HIPO) diagrams. That is, you are aware of the general function being 
performed; that leads you to a set of HIPO charts; the HIPO charts 
identify specific modules involved in that function. Once you have 
located the module or routine name that interests you in the diagrams, 
you are ready to turn to a source— program listing to find the additional 
information you require. 

CICS/OS/VS code is well commented. The processing steps within a 
module are described throughout the code. Many of the modules interact 
extensively with other CICS/OS/VS components during execution. Certain 
| control blocks (the format and content of which are detailed in Section 
| 2 of CICS/OS/VS Program Logic : Data Areas) provide vital system 
information. 

Interface diagrams are given in this section for modules which 
interact frequently with other modules or make frequent use of external 
control blocks. The diagrams are supported by notes, keyed by numerical 
indicators (1, 2, and so on) to specific portions of the diagrams. 

For the most part, modules are documented in this section in 
alphabetic order according to their symbolic names pFHACP, and so on) . 
However, certain modules are discussed in logical groupings, to aid you 
in using this section. The logical groupings are: Asynchronous 
Transaction Processing, Basic Mapping Support, and Intersystem 
Communication. 

Not all modules need be described by interface diagrams. Hence, you 
will not find interface diagrams for all modules in this section. The 
modules that cure not described (as well as those that are) are listed in 
| the Directory (Section 1 of CICS/OS/VS Program Logic; Data Areas) . As 
noted above, your next point of reference should be the CICS/OS/VS 
source code. 
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ABNORMAL CONDITION PROGRAM (DFHACP) 

The Abnormal Condition program (DFHACP) is a system service program used 
to analyze abnormal conditions that occur within the system and inform 
the terminal operator of problems. Errors can be classified as 
belonging in either of two broad categories : 

• Task abnormal conditions , which are detected by CICS/VS management 
programs and are often due to an application program destroying 
system control information. When this happens , the task is 
terminated , the terminal operator is, if possible, informed of the 
error, and the error is logged at destination CSMT (computer system 
master terminal.) 

• Operator errors, such as invalid transaction identifications, 
security key violations, or failure of an operator to sign on the 
system before attempting to communicate with CICS/VS. When this 
happens, the terminal operator is notified, and the error is logged 
at destination CSMT. 

The notes below refer to Figure 3-1. 

Notes ; 

1. DFHACP is invoked by Task Control whenever an invalid transaction 
code is detected. 

2. DFHACP is invoked by Program Control whenever a task is abnormally 
terminated. The Sign-On Table (SNT) is loaded to obtain the 
operator identification (if present) for error messages. DFHACP 
returns to Program Control after the error message has been issued. 
When a task is abnormally terminated because of a stall purge 
condition, the stall purge count is increased by one and the 
transaction identification (from the Program Control Table) is 
included in the error message. 

3. DFHACP communicates with Storage Control to obtain and release 
Terminal Input/Output Areas (TIOAs) and Transient Data Output Areas 

fTDOAs) for writing error messages. 

4. If a user-written Program Error program (PEP) is provided, DFHACP 
issues a DFHPC TYPE=LINK macro instruction to transfer control to 
the program so that it can execute its function. All user-written 
PEPs communicate their requests through the TCA. The CSA is used 
to obtain the addresses of programs, and the Terminal Control Table 
terminal entry and line entry fTCTTE and TCTLE) are used to 
determine the status of the terminal and the line. 

5. If a transaction that is using Dynamic Transaction Backout abends, 
DFHDBP will link to DFHACP to write messages to the user terminal 
and to CSMT. 

6. Error messages are written to Transient Data destination, CSMT. 

7. DFHACP communicates with Dump Control to initiate a complete dump, 
identified by the code AACA. 
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Figure 3—1. Abnormal Condition Program Interfaces 
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ACTIVITY KEYPOINT PROGRAM (DFHAKP) 

The Activity Keypoint program (DFHAKP) is invoked by transaction CSKP 
when activity keypointing is required* It invokes the Keypoint program 

(DPHKPP) to perform the keypointing. When control is returned to 
DFHAKP , an exit can be taken to a user-written routine pFHUAKP) for 
further processing. DFHAKP writes a time stamp to the master terminal 

(CSMT) at completion of activity keypointing. For further details, see 
the HYPO diagram for DFHAKP in Section 2 and "Keypoint Program PFHKPP) ■ 
in this section . 
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ASYNCHRONOUS TRANSACTION PROCESSING GROUP (ATP) 

The Asynchronous Transaction Control program (part of the Asynchronous 
Transaction Processing group, ATP) controls the initiation and data 
handling of all asynchronous tasks submitted as part of a batch. The 
batch consists of one or more CICS/VS transactions, along with any 
associated data, entered into CICS/VS through the Asynchronous 
Transaction Input Processing programs pFHRDl and DFHRD2) . 

When an entire batch has been submitted , the transactions are 
executed asynchronously with other possible terminal activity by the 
originating terminal. When all transactions have been processed , the 
output of the batch can be transmitted back to a terminal, depending on 
how the batch was entered , by the Asynchronous Transaction Output 
Processing programs (DFHWT1 and DFHWT2) . If not transmitted 
automatically , the output remains queued until it is requested by the 
originating terminal or an alternate terminal. A batch may also be 
deleted by the Asynchronous Queue Purge program pFHAQP) . 

ATP is executed as a unique CICS/VS task, with its own TCA f and may 
be resident and active only when one or more batches exist within 
CICS/VS. 



ASYNCHRONOUS TRANSACTION INPUT PROCESSOR pFHRDl, DFHRD2) 

The Asynchronous Transaction Input Processor (RDR) communicates directly 
with five functions of the CICS/VS System Management component: Storage 
Control, Program Control, Terminal Control, Task Control, and Transient 
Data Control. RDR communicates indirectly with the user— exit program as 
well as with the ATP modules AQP and ATP through the Terminal 
Input/Output Area (TIOA) and the Transient Data intrapartition queue 
(constructed in a Transient Data Output Area, or TDOA), respectively. 

The notes below refer to Figure 3—2 . 

Notes : 

1. The first phase of RDR (DFHRD1) is attached by Terminal Control (by 
means of a Task Control DFHKC TYPE=ATTACH macro instruction) in 
response to a CRDR command entered from a terminal. 

2. DFHRD1 interprets the CRDR request and returns any messages to the 
requesting terminal. 

3. DFHRD1 places a Batch Control Area (BCA) containing batch status * 
information on a BCA chain. Storage Control services are requested 
by means of DFHSC TYPE=GETMAIN macro instruction to obtain a 
storage area for the BCA. 

4. The second phase of RDR (DFHRD2) reads the batch data, which 
consists of transaction— initiating records, input data records, and 
one or more delimiters. 

5. DFHRD2 interacts with any user exit routines (for more about these 
routines, see the CICS/VS System Programmer's Reference Manual . 
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6 . DFHRD2 queues the input data onto a Transient Data intrapartition 
queue. Transient Data Control services are requested by means of 
DFHTD TYPE=PUT requests. Communication with Storage control is 
required to obtain and release the TDOA. 

7. When an entire batch has been read, the Asynchronous Transaction 
Control program pFHATP) is either attached (by means of a Task 
Control DFHKC TYPE=ATTACH macro instruction) or marked "ready to 
run." 

8. The TCAFCAAA field of the RDR TCA points to the terminal associated 
with this ATP task . 

9. If a batch is to be deleted # the Asynchronous Queue Purge program 

PFHAQP) is attached to perform the purging of data from the 
Transient Data intrapartition queue. 

10. RDR communicates with Program Control by means of DFHPC TYPE=L0AD, 
TYPE=XCTL, and TYPE=RETURN macro instructions requesting Program 
Control services. 

11. RDR communicates with Terminal Control by means of DFHTC macro 
instructions for WRITE, SAVE, WAIT, and GET operations on terminal 
data. 
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ASYNCHRONOUS TRANSACTION OUTPUT PROCESSOR (DFHWT1, DFHWT2) 

The Asynchronous Transaction Output Processor (WTR) communicates 
directly with five functions of the CICS/VS System Management component: 
Storage Control , Program Control , Terminal Control , Task Control , and 
Transient Data Control. WTR communicates indirectly with user-exit 
programs as well as with the ATP modules AQP and ATP through the 
Terminal Input/Output Area CTIOA) and the Transient Data intrapartition 
queue (constructed in a Transient Data Input Area, or TDIA) , 
respectively. 

The notes below refer to Figure 3—3. 

Notes ; 

1. The first phase of WTR pFHWTl) is attached by Terminal Control (by 
means of a Task Control DFHKC TYPE=ATTACH macro instruction) in 
response to a CWTR command entered from a terminal. Output is 
scheduled and actually occurs if CWTR is attached to a real 
terminal. 

2. DFHWT1 interprets the CWTR request and returns any messages to the 
requesting terminal. 

3. The BCA chain is searched to locate any batches requested by the 
CWTR command. A Write Request Element (WRE) is built for each 
terminal that is to receive output , with Storage Control services 
requested by means of DFHSC TYPE=GETMAIN to obtain a storage area 
for the WRE. 

4. Preparatory to output , a Terminal Input/Output Area (TIOA) is 
acquired by means of a Storage Control request. DFHWT2 writes all 
records to be sent to a terminal . 

5. DFHWT2 interacts with any user-exit routines (for more about these 
routines , see the CICS/VS System Programmer's Reference Manual . 

6. DFHWT2 retrieves the data from a Transient Data intrapartition 
queue , utilizing Transient Data Control services. 

7. At the end of a CWTR operation initiated by a WRE, the WRE is 
removed from the WRE chain and its storage released by means of a 
Storage Control DFHSC TYPE=FREEMAIN . After all WREs have been 
removed from a BCA, if SAVE was not specified, the BCA is removed 
from the BCA chain and its storage released in a similar manner. 
DFHWT2 interfaces with the Asynchronous Queue Purge program (AQP) , 
which is attached by means of a Task Control DFHKC TYPE=ATTACH 
macro instruction to perform this processing. 

8. If RELEASE was specified in the CWTR command, the Asynchronous 
Transaction Control program (ATP) is attached if it is not 
attached. The storage is released, and the task is terminated. 

9. The TCAFCAAA field of the WTR TCA points to the terminal associated 
with this ATP task. 

10. WTR communicates with Program Control by means of DFHPC TYPE=LOAD, 
LINK, XCTL, and RETURN macro instructions requesting Program 
Control services. 
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ASYNCHRONOUS TRANSACTION CONTROL PROGRAM PFHATP) 

The Asynchronous Transaction Control program (DFHATP) communicates 
directly with five functions of the CICS/VS System Management component: 
Storage Control , Program Control , Terminal Control , Task Control , and 
Transient Data Control. ATP communication with the application and with 
the ATP modules RDR, AQP, and WTR is performed indirectly through the 
Terminal Input/Output Area (TIOA) , Transient Data intrapartition queues, 
and the Batch Control Area (BCA) chain. 

The notes below refer to Figure 3— 4. 

Notes ; 

1. ATP is attached by either a CRDR transaction (RDR) or the Terminal 
Control program PFHTCP) in response to a terminal command (CATP or 
an application program read or write request) . 

2. Any DFHTC TYPE=READ or TYPE=WRITE request issued by an application 
program causes ATP to extract data from the Transient Data 
intrapartition input queue , or to place data onto the Transient 
Data intrapartition output queue , respectively. All rules that 
apply to the handling of Terminal Input/Output Areas (TIOAs) when a 
task is directly connected to a terminal also apply to tasks being 
run asynchronously. For this purpose , each task initiated by ATP 
is given the address of the dummy TCTTE, which is available in the 
BCA. 

3. Whenever a BCA is to be deleted , the Asynchronous Queue Purge 
program (DFHAQP) performs the purging of data from the Transient 
Data queues used to process batches. 

4. When all transactions in a batch have been processed , the output of 
the batch can be transmitted automatically to a terminal . 

5. ATP communicates with Task Control by means of DFHKC requests for 
WAIT, ATTACH, RESUME, and SCHEDULE functions. 

6. ATP communicates with Transient Data Control for PUT and GET 
requests of the data on Transient Data intrapartition queues. 

7. ATP communicates with Program Control by means of DFHPC TYPE=RETURN 
macro instructions . 

8. ATP communicates with Storage Control by means of DFHSC 
TYPE=GETMAIN and TYPE=FREEMAIN requests for input/output areas and 
BCA storage. 

9 . ATP communicates with Terminal Control by means of DFHTC TYPE=WRITE 
requests to write out terminal messages. 

10. The initial application program for each valid transaction code is 
attached by DFHATP via Task Control. 
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BUILT-IN FUNCTIONS PROGRAM (DFHBFP) 

| The Built-in Functions program (DFHBFP) may be generated with either or 
| both of two options: (1) the basic set, which includes Table Search, 
Phonetic Conversion, Field Edit, Field Verify, Bit Manipulation, and 
Input Formatting; and (2) Weighted Retrieval. If generated, any of 
these functions can be called by any application program. The Weighted 
Retrieval built— in function communicates with Storage Control pFHSCP) 
and File Control pFHFCP) during weighted retrieval operations as 
detailed in Figure 3— 5 and the notes below. 

Notes : 

1. When DFHBFP services are utilized in an application program, the 
symbolic storage definition for the communication area of the 
Built— In Functions program (TCACCGA) must by copied into the common 
control communication area of the application program communication 
section of the program's TCA. This copying is achieved by means of 
a DFHBFTCA macro instruction, which must immediately follow the 
statement that copies the TCA and the user's definition of a TWA, 
if any, in the application program. 

2. DFHBFP services are requested by means of DFHBIF macro 
instructions, which establish fields in the requesting program's 
TCA for communication with DFHBFP. 

3. Storage Control services are used by the Input Formatting built— in 
function to obtain a new TIOA and by the Weighted Retrieval built- 
in function to obtain a work area for internal use. 

4. File Control services are used by the Weighted Retrieval built— in 
function to perform browse operations. 
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Figure 3-5. Built-in Functions Interface 
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BASIC MAPPING SUPPORT (BMS) 



Basic Mapping Support (BMS) is provided by means of a number of modules , 
each of which interfaces with other BMS modules , CI CS/VS management 
components , and application programs. The maps that are handled by 
CICS/VS BMS may be new maps, created to utilize CICS/VS BMS mapping 
capabilities , or old maps, created for pre— VS BMS. The 
interrelationships of CICS/VS components providing mapping services to 
pre— VS programs and CICS/VS programs requesting mapping services are 
summarized in Figure 3—6. Additional details for specific programs 
within CICS/VS Basic Mapping Support are given on the pages that follow. 
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Figure 3—6. CICS/VS Basic Mapping Support 
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PRE-VS BMS MAPPING MODULE (DFHBMSMM, BMS) 

The pre— VS BMS Mapping Module pFHBMSMM) is called in response to 
requests for BMS services coded in the form established for CICS (that 
is, prior to CICS/VS) . 

The notes below refer to Figure 3—7. 

Notes s 

1. A pre-CICS/VS DFHBMS TYPE=IN, MAP, or OUT macro request by an 
application program communicating with a 3270 terminal passes 
information via the TCA through the Program Control program 

PFHPCP) to DFHBMSMM. 

2. A CICS/VS DFHBMS TYPE=IN, MAP, or OUT macro instruction using pre- 
CICS/VS maps and DSECTs to communicate with a 3270 terminal passes 
information via the TCA through the Mapping Control program 

(DFHMCP) to DFHBMSMM. 

3. Maps are either passed by the application program or loaded by 
DFHBMSMM. 

4. The address of a Terminal Input/Output Area {TIOA) is supplied by 
the application program for TYPE=MAP or TYPE=OUT requests and by 
Terminal Control (DFHTCP) for TYPE=IN. 

5. Terminal Control is used to read the data for a TYPE=IN request. 

6. DFHBMSMM communicates with Storage Control pFHSCP) to obtain and 
release work areas and buffers for mapping operations. 

7. DFHBMSMM communicates with Program Control PFHPCP) to load and 
delete maps required for mapping operations. 
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DATA STREAM BUILD pFHDSB, BMS) 

The Data Stream Build program addresses the page buffer , which was 
composed by the Page and Text Build program (DFHPBP) . The page buffer 
contains lines of output data that are to be written to a terminal other 
than a 3270. The number of lines is contained in the TTPLINES field. 
The following functions are performed by the Data Stream Build program 
on the data in the page buffer: 

• Truncates trailing blanks within data lines. 

• Substitutes strings of physical device control characters for 
logical new-line characters that terminate each line of data. 

• Provides a format management header (FMH) for some VTAM— supported 
devices. 

• Allows horizontal and/or vertical tab processing. 
The notes below refer to Figure 3—8 . 

Notes : 

1. DFHDSB is entered from the Page Build program to process the page 
buffer. 

2. For TYPE=NOEDIT, page buffer compression is skipped and control is 
given to the Terminal Page Processor (DFHTPP) . 

3. If not TYPE=NOEDIT, the appropriate device control characters for 
the target device are selected for substitution. 

4. The page buffer containing the data to be compressed is located 
through the address stored at TTPPGBUF. 

5. After compression of the page buffer data, DFHTPP is called to 
provide disposition of the page. 
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NON-3270 INPUT MAPPING (DFHIIP, BMS) 

The Non— 3270 Input Mapping program PFHIIP) is called in response to 
requests for BMS services involving terminals other than 3270 devices. 

The notes below refer to Figure 3—9. 

Notes : 

1. A DFHBMS TYPE=IN or TYPE=MAP request by an application program 
communicating with other than a 3270 terminal passes information 
via the TCA through the Mapping Control program PFHMCP) to DFHIIP. 

2. The map required for an operation is either passed by the 
application program or loaded by DFHMCP. 

3. The address of a Terminal Input/Output Area (TIOA) is supplied by 
the application program for TYPE=MAP and by Terminal Control for 
TYPE=IN. 

4. Terminal Control is used to read the data for a TYPE=IN request 
except when the input is from a batch LU with INBFMH=DIP specified 
in the PCT, in which case DFHIIP interfaces with DFHDIP to read in 
the data. 

5. DFHIIP communicates with Storage Control (DFHSCP) to obtain and 
release buffers for mapping operations. 
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MAPPING CONTROL PROGRAM pFHMCP, BMS) 

The Mapping Control program (DFHMCP) is the interface between 
application programs and the modules which perform mapping , message 
switching , page and text building , device-dependent output preparation # 
and message disposition to terminals , temporary storage areas , or the 
application program. 

The notes below refer to Figure 3-10. 

Notes : 

1. This program is entered when an application program issues a DFHBMS 
request for Basic Mapping Support services. 

2. It may also be called by Task Control to process a Deferred Work 
Element (DWE) if an application program terminates and there are 
partial pages in storage or the Message Control Record (MCR) 
created during execution of the task has not been placed in 
temporary storage. 

3. The expansion of the DFHBMS macro instruction and the application 
program insert data in TCA fields labeled TCAMSxxx. 

4. The following information is returned to the requestor in fields of 
| the TCA: error codes , page overflow information , and (if 

| TYPE=RETURN was specified in the request) , a list of completed 
| pages. 

5. A Terminal Control DFHTC TYPE=SAVE macro instruction is issued if 
TYPE=SAVE was specified in the DFHBMS macro instruction. 

6. DFHMCP communicates with Temporary Storage Control to put the MCR 
for routed or stored messages (TYPE=ROUTE and/or TYPE=STORE was 
specified) . A DFHTS TYPE=PURGE macro instruction is issued to 
request that a message be purged from temporary storage if a DFHBMS 
TYPE=PURGE request is issued. 

7. DFHMCP communicates with Storage Control to: 

a. Acquire and free storage in which the MCR is built 

(TYPE=PAGEOUT after TYPE=STORE and/or TYPE=ROUTE) 

b. Acquire and free storage in which to copy the message title 

(TYPE=ROUTE,TITLE=symbolic address or YES) 

c. Acquire storage to build Automatic Initiate Descriptors (AIDs) 
| for non-routed messages or routed messages to be delivered 

immediately (TYPE=PAGEOUT) 

d. Acquire a BMS work area (OSPWA) at the time of the initial BMS 
request 

e. Acquire and free an area used for user request data if a 
TYPE=PAGEOUT must be simulated before processing the user's 
request 

f . Free the returned page list (TYPE=PURGE) 

g. Free map copies if TYPE=PAGEOUT and pages were being built in 
response to TYPE=PAGEBLD requests 
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h. Free Terminal Type Parameters (TTPs) (TYPE=PAGEOUT) 

8. DFHMCP communicates with Program Control to 

a. Load and delete map sets 

b. Link to the Page Retrieval program (DFHTPR) to process one or 
more pages of a message if TYPE=PAGEOUT and CTRL=RETAIN or 
CTRL=RELEASE 

c. Abnormally terminate a task if uncorrectable errors occur 

d. Link to the BMS Mapping Module PFHBMSMM) if a map created 
prior to CICS/VS is loaded 

9. DFHMCP communicates with Interval Control to 

a. Initiate transaction CSPQ (see HIPO 6.1.8) 

b. Obtain the current time of day, which is then used to time- 
stamp AIDs for routed messages 

c. Initiate transaction CSPS (see HIPO 6.1.10) for messages to be 
delivered at some future time 

10. DFHMCP communicates with Task Control to schedule transaction CSPG 

(see HIPO 6.1.9) for every terminal that is to receive a routed 
message to be delivered immediately. 

11. Transient Data Control is used to send error and informational 
messages to the master terminal. 

12. Route List Resolution pFHRLR) is used to collect terminals from a 
user— supplied route list or from the entire TCT by terminal type, 
and build a Terminal Type Parameter (TTP) , which controls message 
building , for each terminal type. It is also used to build a one- 
element TTP for the originating terminal. 

13. Non-3270 Input Mapping (DFHIIP) is used to process TYPE=IN or 
TYPE=MAP macro instructions for a terminal other than a 3270. 

14. 3270 Mapping (DFHM32) is used to process TYPE=IN or TYPE=MAP macro 
instructions for a 3270 terminal. 

15. Page and Text Build (DFHPBP) processes all output requests 

(TYPE=OUT, TYPE=STORE, or TYPE=RETURN) . 
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3270 MAPPING (DFHM32, BMS) 

The 3270 Mapping program (DFHM32) is called in response to requests for 
BMS services involving terminals of the 3270 Information Display System. 

The notes below refer to Figure 3—11. 

Notes : 

1. A DFHBMS TYPE=PAGEBLD, TEXTBLD, OUT, STORE, or RETURN macro request 
by an application program communicating with a 3270 terminal passes 
information via the TCA through the Mapping Control program 

PFHMCP) and the Page and Text Build program PFHPBP) to DFHM32. 

2. A DFHBMS TYPE=IN or TYPE=MAP macro request by an application 
program communicating with a 3270 terminal passes information via 
the TCA through the Message Control program pFHMCP) to DFHM32. 

3. Maps are either passed by the application program or loaded by 
DFHMCP. 

4. The address of a Terminal Input/Output Area fPIOA) is supplied by 
Terminal Control pFHTCP) for TYPE=IN requests and by the 
application program for all other requests. 

5. Terminal Control is used to read the data for a TYPE=IN request. 

6. DFHM32 communicates with Storage Control (DFHSCP) to obtain and 
release buffers for mapping operations. 

7. All output requests (see note 1) are sent to a designated 
destination by the Terminal Page Processor pFHTPP) . 
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Figure 3-11. 3270 Mapping Program Interfaces 
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PAGE AND TEXT BUILD (DFHPBP, BMS) 

The Page and Text Build program (DFHPBP) processes all BMS output 
requests (DFHBMS TYPE=OUT, STORE , RETURN , or PAGEOUT) . It performs the 
following functions: 

• positions the data in the page/ either by actually placing it in a 
buffer or by copying it and adjusting the map for a 3270 

(TYPE=PAGEBLD) 

• places the data into the page buffer (TYPE=TEXTBLD) 

| • inserts device dependent control characters for other than 3270 
I Information Display System devices 

The notes below refer to Figure 3—12 . 

Notes 

1. DFHPBP is entered from the Mapping Control program pFHMCP) to 
process all BMS output requests. It is called once for each 
Terminal Type Parameter (TTP) on the TTP chain pointed to by 
OSPTTP. The current TTP in the chain is pointed to by OSPCTTP. 

2. DFHPBP returns control to DFHMCP when request processing is 
complete , or when the page must be written out before a 
TYPE=PAGEBLD request can be processed and an OFLOW=syrabolic address 
operand was specified. 

3. OSPTR2, OSPTR3, . . . ,OSPTR7 contain request data from the DFHBMS 
macro expansion. OSPRC1 and OSPRC3 contain return codes to be 
examined by DFHMCP. 

4. For a TYPE=PAGEBLD request for a 3270 , the map is copied and 
chained to the TTP. For a TYPE=TEXTBLD request for a 3270, a dummy 
map is created and chained to the TTP. When a page is complete, 
control is given to 3270 Mapping (DFHM32) , which combines the map 
copies chained to the TTP and maps the data. 

5. DFHPBP communicates with Storage Control to 

a. Acquire and free buffers in which pages are built 

b. Acquire storage for copies of maps for TYPE=TEXTBLD or 
TYPE=PAGEBLD 

c. Acquire storage for a copy of the user's data for 
TYPE=TEXTBLDor TYPE=PAGEBLD 

6. DFHPBP requests Program Control to abnormally terminate a 
transaction (DFHPC TYPE=ABEND) if certain uncorrectable errors 
occur. 

7. TYPE=TEXTBLD request for a 3270 causes a map set consisting of one 
dummy map to be passed to 3270 Mapping pFHM32) . The map has one 
field with attributes FREEKB and FRESET. 
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page. 
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Figure 3—12. Page and Text Build Program Interfaces 
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ROUTE LIST RESOLUTION PROGRAM (DFHRLR, BMS) 

The Route List Resolution program pFHRLR) builds Terminal Type 
Parameters (TTPs) , which are the main blocks for building and outputting 
data In BMS. 

The notes below refer to Figure 3—13. 

Notes: 

1. DFHRLR is called by the Mapping Control program pFHMCP) to 
determine the grouping of terminal destinations. 

2. If data is to be routed, DFHRLR groups the terminals in the user's 
route list by terminal type and builds a routing TTP for each type. 
The address of the first routing TTP in the chain of TTPs is placed 
in OSPTTP. 

3. If data is not to be routed, a direct TTP is built for the 
originating terminal and its address is placed in OSPDTTP. 

4. DFHRLR communicates with Storage Control to acquire storage for the 
TTP. 

5. Program Control services are requested by means of a DFHPC 
TYPE=ABEND macro instruction if certain uncorrectable errors occur. 
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Figure 3-13. Route List Resolution Program Interfaces 
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TERMINAL PAGE PROCESSOR pFHTPP, BMS) 

The Terminal Page Processor pFHTPP) puts completed pages to a 
destination specified in the BMS output request (TYPE=OUT sends to the 
originating terminal; TYPE=STORE directs to temporary storage; and 
TYPE=RETURN directs to a list of completed pages that are returned to 
the application program) . 

The notes below refer to Figure 3— 14, 

Notes : 

1. DFHTPP is entered from 3270 Mapping (DFHM32) for 3270s, from FASTER 
2260 Compatibility (DFHF2P) for FASTER 2260 compatibility output, 
and from Data Stream Build pFHDSB) for other devices. 

2. DFHTPP communicates with Storage Control to obtain. 

a. The return list (to store the address of completed pages to be 
returned to the programmer) . 

b. Deferred Work Elements (DWEs) , which ensure that message 
control information is written to disk even if the programmer 
neglects to issue a DFHBMS TYPE=PAGEOUT request. 

c. Storage for a list that correlates pages on temporary storage 
with the logical device codes for which they are destined. 

3. Temporary Storage Control is used to store pages and the Message 
Control Record (MCR) for messages stored on Temporary Storage. 

4. The Terminal Type Parameter (TTP) controls the formatting of a 
message for a particular terminal type, for example, 2741. 
TTPPGBUF contains the address of a completed page. 

5. The Terminal Output macro instruction pFHTOM) is issued to provide 
an open subroutine assembled within DFHTPP that puts a completed 
page out to the terminal. 
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Figure 3-14. Terminal Page Processor Interfaces 
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CLEANUP UNDELIVERED MESSAGES PROGRAM (DFHTPQ, BMS) 

The Cleanup Undelivered Messages program pPHTPQ) checks the chain of 
Automatic Initiate Descriptors (AIDs) to detect and delete AIDs that 
have been on the chain for longer than the purge— delay time specified at 
system generation (DFHSG PROGRAM=BMS,PRGDLAY=hhmm) . 

The notes below refer to Figure 3-15. 

Notes ; 

1. DFHTPQ is initiated the first time by the Mapping Control program 

(DFHMCP) via Interval Control, Thereafter, it reinitiates itself 
(see note 4) • 

2. DFHTPQ communicates with Storage Control to free AIDs which have 
been purged and to acquire storage for notification messages. 

3. Transient Data Control is used to send notification messages. 

4. Interval Control is used to obtain the current time and to 
reinitiate this task (DFHTPQ) . 

5. DFHTPQ communicates with Temporary Storage Control to retrieve and 
replace Message Control Records (MCRs) and to purge messages. 
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Figure 3-15. Cleanup Undelivered Messages Program Interfaces 
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PAGE RETRIEVAL PROGRAM (DFHTPR, BMS) 

The Page Retrieval program (DFHTPR) processes messages built by BMS and 
placed in temporary storage • 

The notes below refer to Figure 3—16. 

Notes ; 

1. DFHTPR can be initiated as a standalone transaction (CSPG or user 
defined paging command , for example e ?/e or 3270 PA/PF keys) , or 
linked to from BMS conversational operation. pFHBMS TYPE=PAGEOUT, 
CTRL-RELEASE | RETAIN) . The functions of DFHTPR are: 

a. Display the first page of a routed message. 

b. Display subsequent pages of a message at a terminal for which 
TYPE=PAGEOOT # CTRL=AUTOPAGE was specified. 

c. Process paging commands from a terminal. 

d. Process transaction CSPG (see HIPO 6.1.9) when it is entered at 
the terminal. 

e. Purge a message displayed at the terminal if the terminal is in 
display status and other than a paging command is entered at 
the terminal. 

2. DFHTPR is entered from the BMS Mapping Control program pFHMCP) to 
display the first page of a message originated at the terminal if 
CTRL=RETAIN was specified in the BMS request. DFHTPR reads from 
the terminal and processes paging commands until other than a 
paging command is entered. 

3. DFHTPR communicates with Storage Control to 

a. Acquire and free Message Control Blocks (MCBs) . 

b. Free Message Control Record (MCR) storage 

c. Acquire storage for informational and error messages to be sent 
to the destination terminal and the master terminal 

d. Free an Automatic Initiate Descriptor (AID) taken off the AID 
chain 

e. Acquire and free storage for a route list constructed in 
response to a COPY command entered at a terminal 

f. Acquire a TIOA into which to place a device— independent page 
when performing the COPY function 

4. Temporary Storage Control is used to retrieve and replace MCRs and 
to retrieve and purge pages. 

5. Basic Mapping Support is used to display error and informational 
messages at a requesting terminal and to send a page to the 
destination terminal in the COPY function. 
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6. Task Control is used to retain exclusive control of a MCR while it 
is being updated. 

7. DFHTPR communicates with interval Control during error processing 
when a Temporary Storage identification error is returned while 
attempting to retrieve a MCR. Up to four retries (each consisting 
of a one— second wait followed by another attempt to read the MCR) 
are performed. (The error may be due to the fact that an MCR has 
been temporarily released because another task is updating it. If 
so, the situation may correct itself , in which case a retry is 
successful.) 

8. Terminal Control is used to read in the next portion of terminal 
input after a page or informational message is sent to the terminal 
when TYPE=PAGEOUT,CTRL=RETAlN was specified. 

9. Transient Data Control is used to send error or informational 
messages to the master terminal. 

10. The Terminal Output macro instruction (DFHTOM) is issued to provide 
an open subroutine that puts a completed page out to the terminal. 
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Figure 3-16/ Page Retrieval Program Interfaces 
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TERMINAL PAGE SCHEDULING PROGRAM (DFHTPS, BMS) 

The Terminal Page Scheduling program (DFHTPS) processes messages that 
have been scheduled for delayed delivery. An Automatic Initiate 
Descriptor (AID) is built and scheduled for every terminal specified in 
the Message Control Record (MCR) that Interval Control provides. 

The notes below refer to Figure 3—17. 

Notes ; 

1. DFHTPS is called by Program Control when a delayed message is to be 
sent. 

2. DFHTPS communicates with Interval Control to obtain the Message 
Control Record (MCR) that has the IDs of all terminals that are to 
receive the message. 

3. DFHTPS communicates with Temporary Storage Control to replace the 
MCR, since Interval Control released the MCR while retrieving it. 

4. Interval Control has created an Interval Control Element (ICE) for 
the time— dependent request that is now to be serviced. DFHTPS 
refers to many fields of the MCR (supplied via Interval Control) 
when building the AIDs required for the message. 

5. DFHTPS communicates with Storage Control to acquire storage for the 
AIDs that it constructs. 

6. After the AIDs have been constructed , DFHTPS communicates with Task 
Control to schedule the AIDs for processing. 
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Figure 3—17. Terminal Page Scheduling Program Interfaces 
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DYNAMIC ALLOCATION PROGRAM (MVS ONLY) 

The program runs as a CICS/VS transaction , using CICS/VS function at the 
command level wherever possible. It does not modify any CICS/VS control 
blocks. Only the DYNALIOC function is available through the program; 
any manipulation of the environment before or after the DYNALLOC request 
must be done by other means. 

The flow in a normal invocation is as follows. The main program, 
DFH99M receives control from CICS/VS , and carries out initialization. 
This includes determining the screen size and allocating input and 
output buffer sections , and issuing initial messages. It then invokes 
DFH99GI .to get the input command from the terminal. Upon return, if the 
command was null, the main program terminates, issuing a final message. 

The command obtained has its start and end addresses stored in the 
global communications area, COMM. The main program allocates storage 
for tokenised text, and calls DFH99TK to tokenise the command. If 
errors were detected during this stage, further analysis of the command 
is bypassed. 

Following successful tokenising, the main program calls DFH99FP to 
analyse the verb keyword. DFH99FP calls DFH99LK to look up the verb 
keyword in the table , DFH99T. DFH99LK calls DFH99MT if an abbreviation 
is possible. Upon finding the matching verb, DFH99FP puts the address 
of the operand section of the table into COMM, and puts the function 
code into the dynalloc request block. 

The main program now calls DFH99KO to process the operand keywords. 
Each keyword in turn is looked up in the table by calling DFH99LK, and 
the value coded for the keyword is checked against the attributes in the 
table. DFH99KO then starts off a text unit with the appropriate code, 
and, depending on the attributes the value should have, calls a convert 
routine . 

For character and numeric string, DFH99CC is called. It validates 
the string, and puts its length and value into the text unit. 

For binary, DFH99BC is called. It validates the value, converts it 
to binary of the required length, and puts its length and value into the 
text unit. 

For keyword values, DFH99KC is called. It looks up the value in the 
description part of the keyword table using DFH99LK, and puts the coded 
equivalent value and its length into the text unit. 

When a keyword specifying a returned value is encountered, DHF99KO 
makes an entry on the returned value chain, which is anchored in COMM. 
This addresses the keyword entry in DFH99T, the text unit where the 
value will be returned, and the next entry. In this case the convert 
routine is still called, but it only reserves storage in the text unit, 
setting the length to the maximum and the value to zeros. 

When all the operand keywords have been processed, DFH99KO returns to 
the main program, which calls DFH99DY to issue the dynalloc request. 

DFH99DY sets up the remaining parts of the parameter list, and if no 
errors too severe have been previously detected, a subtask is ATTACH ed 
to issue the DYNALLOC SVC. A WAIT EVENT is then issued against the 
subtask termination ECB. When the subtask ends, and CICS dispatches the 
program again, the DYNALLOC return code is captured from the subtask 
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ECB, and the error and reason codes from the DYNALLOC request block , and 
a message is issued to give these values to the terminal • 

DFH99DY then returns to the main program , which calls DFH99RP to 
process returned values. DFH99RP scans the returned value chain , and 
for each element issues a message containing the keyword and the value 
found in the text unit. If a returned value corresponds to a keyword 
value , DFH99KR is called to look up the value in the description, and 
issue the message. 

Processing of the command is now complete, and the main program 
reinitializes for the next one, and loops back to the point where it 
calls DFH99GI. 

Messages are issued at many places, using macros. The macro 
expansion ends with a call to DFH99MP, which ensures that a new line is 
started for each new message, and calls DFH99ML, the message editor. 
Input to the message editor is a list of tokens, and each one is picked 
up in turn and converted to displayable text. For each piece of text, 
DFH99TX is called, which inserts the text into the output buffer, 
starting a new line if necessary. This arranges that a word is never 
split over two lines . 

At the end of processing the command, the main program calls DFH99MP 
with no parameters, which causes it to send the output buffer to the 
terminal, and initialize it to empty. 
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DYNAMIC BACKOUT PROGRAM (DFHDBP) 

The Dynamic Backout Program PFHDBP) is invoked by the Program Control 
Program during ABEND processing for transactions for which dynamic 
transaction backout has been specified. 

DFHDBP backs out the changes made by the transaction to recoverable 
resources. It does this by first scanning the DWE chain to identify 
changes to Transient Data, Temporary storage , and AIDs. DFHDBP then 
scans the dynamic log to pick up file control and DL/I 'before ■ images , 
and "durable 1 data, so that the files , data bases, and initial images of 
TCTUA and COMMAREA may be restored. 

For a restartable transaction, either the user— written program DFHRTY 
is invoked or the default rules are applied, to determine if restart is 
required. If restart is required, DFHPCP is invoked. 

The notes below refer to Figure 3—18 . 

Notes ; 

1. DFHPCP invokes DFHDBP using XCTL. 

2. DFHACP is linked to issue message DFH2205 to the user's terminal. 

3. The DWE list is scanned. DFHTDP is invoked for Transient Data 
DWEs, and DFHTSP is invoked for Temporary Storage DWEs, to backout 
changes to the destinations. DFHFCP is invoked for File Control 
DWEs to perform any outstanding RELEASE. 

4. The Dynamic Log is scanned and DFHFC macro instructions issued to 
reverse file control changes. The DL/I backout module is invoked 
to backout DL/I changes. 

5. ■Spilled 1 Dynamic Log entries are recovered from temporary storage. 

6. Transfer control to DFHACP. 

7. DFHPC TYPE=RETRY is invoked to restart the transaction. 

8 . The retry program PFHRTY) is invoked to decide whether restart is 
appropriate. 
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Figure 3-18. Dynamic Backout Program 
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DUMP MANAGEMENT (DFHDCP) 

The Dump Control program (DFHDCP) dumps specified areas of storage to 
tape or disk (to be printed later by the Dump Utility program) . . It 
functions in response to a requesting task, performing the service 
requested and returning control to the requesting task upon completion 
of the dump operation. 

The notes below refer to Figure 3-19. 

Note s; 

1. DFHDCP may be called by either an application program or a CICS/VS 
management program to write out the contents of main storage at any 
time. The DFHDC macro instruction sets the type of request switch 

(TCADCTR) , number of bytes to be dumped (TCADCNB) , storage address 
(TCADCSA) , and dump identifier (TCADCDC) in the requesting 
program's TCA. 

2. The Common System Area (CSA) and Task Control Area (TCA) are always 
the first areas to be dumped. Additional areas that may be dumped 
include: transaction storage, Trace Table, terminal storage, 
program and register save areas, and system control tables. 

3. DFHDCP communicates with Interval Control, Trace Control, and 
Program Control to set runaway task control, request and release a 
lock of the dump facility, request a trace, and reset and test 
runaway task control. 

4. Dump Control refers to a Data Event Control Block (DECB) to 
determine address (DCECBIOA) and length (DCECBIOL) . DCDTFI 
identifies a dummy ECB, referenced in the lock and release of the 
dump facility. 

5. Output is written to a sequential data set on tape or disk. 
Records have a variable blocked format. A single record may be a 
CICS/VS system control table, one TCA, or an entire program. Each 
logical record contains a one byte identifier to indicate the type 
of control block, table, or program that it contains. 
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Figure 3—19. Dump Control Interfaces 
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DATA INTERCHANGE PROGRAM (DFHDIP) 

The data interchange program is designed as a f unction manager for SNA 
devices . It is invoked by DFHDI requests directly or by the BMS 
routines from DFHBMS requests (that is, the BMS routines issue DFHDI 
requests) DFHDIP provides the following functions: 

1. Determines whether a new output destination has been specified and 
if so, builds appropriate FMHs to select the new destination, and 
outputs these FMHs to the SNA device via terminal control. 

2. Invokes the appropriate subroutine to perform the desired function: 

ADD — build ADD FMH, transmit it and the user data. 

REPLACE — build REPLACE FMH, transmit it and the user data. 

ERASE - build ERASE FMH, RECID FMH and transmit it. 

NOTE — build NOTE FMH, transmit it, return the reply to the user, 

QUERY - build QUERY FMH, transmit it, and output END FMH. 

SEND - output user data. 

WAIT — wait for completion of the I/O* 

END - build END FMH and transmit it. 

ABORT — build ABORT FMH and transmit it. 

ATTACH — remove FMH from initial input. 

DETACH — free the storage used by DFHDIP. 

RECEIVE — read a complete record from the logical device. 

3. Sets the appropriate return code. 
The notes below refer to Figure 3—20. 

Notes 

1. The application program issues DFHDI requests. 

2. DFHDIP receives control via the macro invocation. 

3. If no storage has been obtained for the data interchange block 

(DIB) then storage control is invoked. The storage is chained to 
the TCTTE. 

4. A trace entry is made. 

5. If logging is present (protected task and message integrity) and if 
a destination change or function change occurs on output then 
temporary storage is invoked to write the DIB to recoverable 
temporary storage. 

6. Terminal control is invoked to output amy built FMH and also to 
output the user data. pFHTC TYPE=WRITE is issued) . For input 
requests DFHTC TYPE=READ requests are issued to obtain a non— null 
input record. 

7. Any errors obtained from the device are decoded and placed in the 
TCA return code slot. If no errors were detected then a return 
code of zero is returned. 
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DL/I INTERFACE (DFHDLI) 

The CICS/OS/VS— DL/I Interface program (DFHDLI) communicates directly 
with user— written application programs , DL/I, and other CICS/VS 
f unctions . The DL/I Interface accepts requests for DL/I processing from 
application programs as well as CICS/OS/VS Service modules. 

The notes below refer to Figure 3—21. 

Notes ; 

1. When DL/I functions are requested by an application program through 
execution of a File Control macro instruction pFHFC TYPE=DLI, 

xxx) , fields within the common communications area of the TCA are 
filled with appropriate entries to communicate with the DL/I 
Interface. The functions can also be requested by a CALL or a 
CALLDLI macro instruction, in which case DFHDLI will fill in the 
required fields in the TCA. If the request is for a local data 
base, DFHDLI communicates the requested function to IMS/VS service 
modules. If the request is for a remote data base, DFHDLI invokes 
the ISC CONVERSE service to transmit the request to the appropriate 
system. In addition to processing DL/I input/output requests, 
DFHDLI will, upon request, schedule and terminate Program 
Specification Blocks (PSB) . 

2. DFHDLI receives and communicates requests from the Master Terminal 
program (DFHMTP) to logically close a DL/I data base pBRCVR) or 
logically close for updating a DL/I data base pBDUMP) . 

3. DFHDLI receives requests from the Open/Close program pFHOCP) to 
physically open or close a DL/I data base. These requests are 
normally issued by DFHOCP on behalf of DFHMTP. 

4. DFHDLI receives requests to terminate DL/I processing (UNLD) . This 
request is accepted only from the System Termination program 

pFHSTP) . 

5. In servicing the requests mentioned above, DFHDLI communicates 
these requests to DL/I modules and also uses various CICS/OS/VS 
modules. DFHDLI issues requests to File Control to perform a 
LOCATE function, to Journal Control to perform logging functions, 
to Storage Control to obtain required storage, to Task Control to 
perform the WAIT function, and to Program Control in the event of 
abnormal termination. DFHDLI also uses the DL/I Interface 
Parameters and the DL/I Interface Scheduling Block (ISB) for 
storing and retrieving control information. If the request is for 
a remote data base, then a Remote Scheduling Block (RSB) is used 
instead of the DL/I Interface Scheduling Block. 
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Figure 3-21. CICS/OS/VS-DL/I Interface 
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DL/I INTERFACE INITIALIZATION (DFHDLQ) 

The CICS/OS/VS— DL/I Interface Initialization Program consists of two 
phases of execution — an initialization phase and a DL/I substitute 
function phase. In the initialization phase , DFHDLQ communicates with 
the System Initialization program PFHSIP) and the DL/I initialization 
functions. In the DL/I substitute function phase , DFHDLQ provides the 
interface to mask DL/I function requests and substitutes appropriate 
CICS/VS functions. 

The notes below refer to Figure 3—22. 

Notes s 

Phase 1 

1. Initialization values are passed to DFHDLQ from the System 
Initialization Program (DFHSIP) in the DL/I extension (DFHLISTA) of 
the System Initialization Table pFHSIT) and also in the DL/I 
Interface Parameters (DFHDLPDS) . 

2. DFHDLQ invokes the IMS initialization modules which initialize DL/I 
areas and control blocks. 

3. DFHDLQ then initializes parameter blocks in the CICS/VS Interface 
Parameters pFHDLPDS) and the Interface Scheduling Blocks 

(DFHISBDS) . 

4. DFHDLQ then reinitializes some of the DL/I control blocks in the 
SCD and PST. Pointers are modified to point to the DFHDLQ DL/I 
Substitute Function Phase instead of IMS service modules. 

Phase 2 

1. DL/I passes control to DFHDLQ when requesting certain DL/I services 
whose pointers have been masked to point to DFHDLQ. Some of the 
services processed through DFHDLQ are indicated below. 

2. A DL/I request for its Wait routine passes control to DFHDLQ , which 
then issues the WAIT through CICS/VS Task Control . 

3. A DL/I request for main storage for PSB and DMB buffers and 
workspace is intercepted by DFHDLQ which then issues the request 
through CICS/VS Storage Control. 

4. A DL/I request for logging of data base records is intercepted by 
DFHDLQ which then issues the request to CICS/VS Journal Control to 
perform the logging function. 

5. DL/I request to send a message is intercepted by DFHDLQ , which then 
sends a message to the Master Terminal destination via CICS/VS 
Transient Data. 

6. A DL/I request for abnormal termination is intercepted by DFHDLQ 
which requests task abnormal termination via the CICS/VS Program 
Control . 

7. After servicing the DL/I service requested, DFHDLQ returns control 
to IMS to resume processing. 
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Figure 3-22. CICS/OS/VS-DL/I Interface Initialization Interface 
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EXEC INTERFACE (DFHEIPj 

The EXEC Interface program is used by application programs using the 
Command— Level Interface. It invokes the required CICS/VS services on 
behalf of the application program. 

/ 
/ 
The EXEC Interface program is divided into a number of separate 

modules . It consists of the EXEC Interface program nucleus pFHEIP) and 
one module for each of the CICS/VS management modules. These separate 
modules are called the EXEC Interface stubs and are named with the 
following convention: 

the stub for DFHFCP is DFHEFC, 
the stub for DFHTDP is DFHETD, 
and so on. 

The notes below refer to Figure 3—23. 

Notes ; 

1. When DFHPCP loads an application program that uses the Command- 
Level Interface, it invokes DFHEIP initialization routine to set up 
the Command— Level Interface environment. DFHEIP then invokes the 
application. 

2. The initialization routine obtains and initializes the EXEC 
Interface Structure (EIS) . This contains an EXEC Interface Block 

(EIB) which is used to pass information to the application program. 

3. The statements inserted by the command— language translator for each 
EXEC CICS command include a CALL statement that causes the 
application to invoke DFHEIP. The nucleus module DFHEIP then 
invokes the appropriate EXEC Interface stub. 

4. The arguments passed by the application are moved into CICS/VS 
control blocks by the appropriate EXEC interface stub. 

5. The appropriate CICS/VS management module is invoked by the 
appropriate EXEC interface stub. 

6. Information is returned to the application program by DFHEIP via 
EIB. 
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FILE MANAGEMENT (DFHFCP AND DFHFCD) 

There are two file control programs , DFHFCP and DFHFCD. DFHFCP 
processes all VSAM requests , and in addition processes certain requests 
which may be ISAM or BDAM requests. These common requests which DFHFCP 
processes are: 

OPEN 

CLOSE 

LOCATE 

RELEASE 

GETAREA 

ESETL 

The second file control module processes the remaining ISAM and BDAM 
requests. 

The File Control programs communicate directly with other CICS/VS 
functions , the standard access methods , and user-written application 
programs (see Figure 3—24) . The on-page connectors show the 
relationships of the logical elements of the programs. 

When file services are requested by another CICS/VS module , File 
Control locates the necessary File Control Table (FCT) entries according 
to the OPEN/CLOSE/LOCATE Parameter List. It may perform a logical open 
or close on those entries. 

When file services are requested by an application program (through 
execution of a File Control (DFHFC) macro instruction) , fields within 
the common communication area of the TCA are filled with appropriate 
entries to communicate with File Control. The File Control interface is 
determined accordingly; that is. File Control may: 

• Request Storage Control to acquire any required storage areas 

• Communicate with the standard access methods to request that any 
required I/O operations be performed 

• Request Task Control to place the application program (requesting 
task) in a wait state until I/O operations are completed as 
required 

• Request Journal Control to perform any automatic journaling 
required 

• Return the address of the appropriate control block to the 
requesting task in the field TCAFCAA of the task*s TCA 

• Request Task Control to enter and leave SRB mode 
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FORMATTED DUMP PROGRAM PFHFDP) 

The Formatted Dump Program (FDP) will be invoked by abnormal termination 
of CICS/VS, by specification of DUMP at CICS shut-down time, by the 
issue of a CSMT SNAP command by the Master Terminal Operator, or if a 
CICS/VS task is abnormally terminated due to a program interrupt (ABEND 
code ASRA) . The output of the Formatted Dump Program is written to the 
dump data set and may be printed by means of the Dump Utility Program. 

The output of the FDP can be in one of three forms, depending on the 
specification made either at CICS start— up via one of the start 
parameters, or at system generation by the FDP parameter of the DFHSIT 
macro. The three forms of output thus specified are: 

1. a dump of the supervisor and CICS partition [DUMP (ABEND) ], 

2. a dump of the CICS partition only [PDUMP(SNAP) ], or 

3. a dump of the CICS partition [PDUMP (SNAP) ] followed by a series of 
control blocks, each dumped in as logical an order as possible. 
Fields to be highlighted in each control block will precede the 
hexadecimal dump of the appropriate control block. 

The Formatted Dump Program PFHFDP) consists of three modules: 
DFHFDA, DFHFDB, and DFHFDC. 

DFHFDA is the control module of the FDP, and acts as an interface 
module to CICS/VS and the operating system. It has only one entry point 
which is used for taking a dump with or without formatting. It contains 
all system-dependent code and output routines. It also contains the 
code which is to be executed at CICS initialization time. According to 
the option selected at CICS start— up time, DFHFDA will issue 
DUMP (ABEND) , or issue PDUMP (SNAP) and return, or issue PDUMP (SNAP) , call 
DFHFDB and return. 

The main routines and subroutines of DFHFDA are: 

Initialization (at CICS/VS start— up) 

Main dump routine 

Subroutines used by DFHFDB 

First level program check handler 

Second level program check handler 

Initial working storage area 

Communication area for DFHFDP pFHFDPDS) 

DFHFDB is the module which performs the bulk of the work in producing 
the formatted dump. It consists mainly of an interpreter which 
"executes" the text contained in DFHFDC. It calls DFHFDA to perform all 
operating system-dependent functions. The functions of its main 
routines are: 

• Initialization — reinitializes the necessary areas of the 
interpreter so that the FDP is serially reusable. 
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• Primes the interpreter by starting it with a pointer to the Common 
System Area (CSA) and the text string for the CSA, which must be 
the first string in DFHFDC. 

• Queue scan routine — this is the "scheduler" of the interpreter; it 
decides which control block should be processed next. 

• Work element preparation — having decided which control block is to 
be processed next, generates the necessary pointers and control 
information. 

• IFETCH — fetches the operation code of the next descriptor and 
branches to the appropriate descriptor processing routine. 

• Descriptor processing routines 

• Termination processing routines 

• Error processing routines 

Module DFHFDC contains the text which is interpreted by DFHFDB, and 
consists of two CSECTs. The first of these contains fixed length 
entries , one for each type of control block to be dumped, and acts as an 
index to the second CSECT which contains the text strings, one for each 
control block type. The text strings contain ra instructions" which 
describe to the interpreter where it will find pointers to other control 
blocks, which fields should be formatted, etc. All lengths and offsets 
used in DFHFDC are determined from the appropriate DSECT, so that any 
change of position or length in a DSECT will be reflected in the FDP by 
reassembly of DFHFDC only. 
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FASTER 2260 COMPATIBILITY (DFHFIP, DFHF2P) 



The FASTER 2260 compatibility routines provide 2260 compatibility on a 
3270 for users of the FASTER Language Facility (FLF) . However, 2260 
compatibility is not available for 3270 support through VTAM. 

DFHFIP is invoked by the Terminal Control program after each 
successful Read operation on a 3270 terminal that was defined as being 
FASTER 2260 compatible. All input that is not in 3270 native mode (no 
SBA as a first character) is rearranged to provide to the application 
program only the data between the start— of-m ess age indicator (SMI) , if 
present, and the cursor. If a new— line character (NL) is encountered, 
the remainder of the 2260 logical line is dropped. 

DFHF2P is invoked by the BMS program for each page of output that is 
not in 3270 native mode and is destined for a 3270 that was defined as 
being FASTER 2260 compatible. The program arranges the output page to 
appear as it would on a 2260 by inserting user— defined SMI and NL 
characters in the data stream. 
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FORMAT TAPE (DFHFTAP) 



To prevent invalid recovery due to erroneous data on the System Log f all 
tape volumes used for this purpose should be formatted prior to use. 
Formatting magnetic tapes facilitates finding the end of file for 
mounted volumes if the system abnormally terminates without writing an 
end—of— file mark. This function can be performed by the standalone 
program DFHFTAP, which provides the following services: 

• Opens message data set 

• Acquires 32K of storage for a record area 

• Opens tape volume and writes binary zero records 

If any of these services cannot be performed successfully , a message 
is returned and the program is terminated. Otherwise , binary zeros are 
written until the end-of — f ile condition is encountered or an I/O error 
occurs. If an I/O error occurs, no recovery of the write error is 
performed and no more formatting occurs. The volume is closed and 
another volume is requested. If no other volume is to be formatted , the 
program is terminated. If end of file occurs (normal end) , the volume 
is closed and another volume is requested. If no other volume is to be 
formatted , the program is terminated; otherwise , processing continues 
with opening and writing of records until all volumes have been 
formatted. 
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TIME MANAGEMENT (DFHICP) 

Time Management consists of the Interval Control program PFHICP) f which 
can be divided into two functional areas. The first of these is that 
portion of logic that services Interval Control (DFHIC) macro 
instructions and is executed under control of the requesting task f s TCA. 
The second functional area is that of detecting the expiration of time- 
dependent events. This function is performed for the Task Dispatcher. 

The notes below refer to Figure 3—25. 

Notes s 

1. Issuing a DFHIC macro instruction causes a type— of— request code to 
be set in TCAICTR, a field in the requesting task's TCA. 
Processing enters the Interval Control macro instruction service 
logic. The register contents are saved in TCAICRS and the 
requested service is performed or initiated. While performing the 
service , Interval Control interfaces with other CICS/VS management 
functions (Storage Control , Task Control , and Temporary Storage 
Control) . Interval Control builds Interval Control Elements (ICEs) 
for time— dependent requests made via DFHIC macro instructions. The 
ICEs are chained off the CSA (CSAICEBA) in expiration time sequence 

(ICEXTOD) . Control is returned to the requesting CICS/VS module or 
user— written program when the requested service has been queued or 
performed. The DFHIC TYPE=RESET macro service (used to 
resynchronize the CICS/VS time-of— day with the operating system) 
interfaces with the timer facilities of the operating system. 

2. The Task Dispatcher activates Task Control *s TCA for intermodule 
communication and branches to the expiration analysis logic of the 
Interval Control program. This logic checks the ICE chain entries , 
in expiration time sequence , determining whether or not each has 
expired. Provided certain conditions do not exist , for example, 
any unfinished B Post-Initialization 1 programs, or a ■short-on— 
storage 1 condition , each expired ICE is removed from the chain, and 
processing related to the service requested through the DFHIC macro 
instruction is performed or initiated. During expiration analysis. 
Interval Control interfaces with Storage Control and uses Task 
Control services as well. Since the normal processing flow in the 
Task Control program is from the requested service logic, the 
expiration analysis logic is reentered by again activating Task 
Control B s TCA as described above. The time remaining until the 
next ICE expires is returned in TCAICRT. 

One of the functions of the Task Dispatcher is to continually 
refresh the current time-of-day values retained in the CSA (CSATODP 
and CSACTODB) . During this process, resetting the clock at 
midnight can be detected. 

3. During expiration analysis, a CICS/VS system task to adjust the 
expiration times of day to reflect the occurrence of midnight and 
to reset the CICS/VS current time— of— day and date values to 
coincide with the operating system can be initiated. The CICS/VS— 
provided Time Adjustment program performs these functions by 
adjusting the expiration times in the ICEs (as well as other 
CICS/VS— maintained expiration times) , and then changing the time- 
of-day values in the CSA to equal the operating system clock . 
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INTERREGION COMMUNICATION (FOR SHARED DATA BASES) 

The interregion communication facility enables an IMS/VS DL/I data base 
to be accessed by CiCS/OS/VS and by concurrently active DL/I batch 
programs in other regions. All requests for access to the data base are 
coordinated in one region — the CICS/OS/VS region. 

DL/I requests from application programs in batch regions are handled, 
in the first instance , by CICS— DL/I Batch Region Controllers (one in 
each batch region) instead of by the IMS/VS DB batch region controller. 
Using an interregion SVC routine , the batch region controller ships the 
DL/I request to the CICS/OS/VS region where a mirror transaction handles 
the request as if the request had come from an ISC— connected CICS/VS 
system. 

The DL/I response is subsequently returned to the calling batch 
region 9 again by use of the interregion SVC routine. 

The interregion communication facility for shared data bases is 
provided by three sets of modules: 

1. Interregion Communication SVC module pFHIRCP) 

2. Batch Region modules (DFHDRP, DFHDRPA/B/C/D/E/F) 

3. CICS/OS/VS Region modules pFHCRC, DFHCRSP, DFHCRNP, DFHZCX) . 



INTERREGION COMMUNICATION SVC MODULE pFHIRCP) 

DFHIRCP provides the SVC services required for two or more regions to 
communicate with each other. The six SVC services are described below. 

Note : In the following description of the IRC SVC services , the term 
subsystem is used in a general sense to mean an application in one 
region that needs to communicate with an application in another region. 
(In the data— base-sharing context , the term subsystem refers to 
CICS/OS/VS in its region or to an IMS/VS job step in a batch region.) 

LOGON The LOGON service prepares the subsystem for communication with 
other subsystems. The LOGON service allows the subsystem to identify 
itself to the SVC routine and to specify how many simultaneous 
connections with other subsystems are to be allowed. During LOGON , 
control blocks are allocated, some in key storage (for use only by the 
SVC) and others in user— key storage (for use by the SVC and the 
subsystem) . 

The following control blocks are allocated in key storage: 

• LCB — logon control block. There is one LCB per logged-on 
subsystem and it is the basic control block used for control of all 
subsystems. 

• CACB — connection address control block. There is one CACB per 
logged-on subsystem and it contains the addresses of all connection 
control blocks (CCBs) for the subsystem. 
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• CCB — connection control block. The LOGON request causes % n* CCBs 
to be created per logged— on subsystem , where 'n 1 is the maximum 
number of simultaneous connections with other subsystems. ('n* is 
passed as a parameter to the LOGON service by the user.) The CCB 
controls a connection to another subsystem. 

The following control blocks are allocated in user— key storage: 

• SLCB — subsystem logon control block. Within the SLCB is an ECB 

(event control block) that the SVC routine posts (with an OS/VS 
POST macro instruction) when the subsystem has any interregion 
activity to perform; only one SLCB is allocated per subsystem. 

• SCACB — subsystem connection address control block. There is one 
SCACB per logged— on subsystem and it contains the addresses of all 
subsystem connection control blocks (SCCBs) for the subsystem. 

• SCCB — subsystem connection control block. The LOGON request 
causes ■n i SCCBs to be created, where "n* is the allowable number 
of simultaneous connections with other subsystems. The SVC routine 
allocates one of the SCCBs to represent one end of a connection 
only when another subsystem issues a CONNECT request. In each 
allocated SCCB is an ECB that is posted (the SVC routine sets the 
post bit on) when the subsystem has any new input from the other 

(connected) subsystem. The SCCB remains allocated until the 
connected subsystem issues a DISCONNECT request. 

• Buffers. Buffers are allocated to hold input to the subsystem from 
other subsystems. 

CONNECT After it has logged on, a subsystem issues a CONNECT request to 
the SVC routine in order to establish a connection with another 
subsystem. The SVC routine effects this connection by allocating, in 
both subsystems, an unused CCB/SCCB pair to represent the connection. 
The CONNECT request then posts the connected-to subsystem to inform it 
that it has a new incoming connection. (In data— base sharing, it is the 
batch region that issues the CONNECT request — as a result of which the 
SVC routine allocates a CCB/SCCB pair in both the CICS/OS/VS region and 
the batch region.) 

SWITCH After a subsystem has established a connection, the SWITCH 
service is used to pass control (and optionally data) to the other 
subsystem. All DL/I requests and responses are shipped between regions 
by means of the SWITCH service. In performing the SWITCH service, the 
SVC routine causes the ECBs in the SLCB and the SCCB of the other 
subsystem to be posted. 

DISCONNECT The DISCONNECT service breaks connection with another 
subsystem; it frees those control blocks that were associated with that 
particular connection, and posts the other subsystem to say that the 
disconnection has occurred. The other subsystem then issues its own 
DISCONNECT to free its own control blocks that were associated with the 
connection . 
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QUIESCE The QUIESCE service prevents further connections being 
established to or from the requesting subsystem , and posts the SLCB ECB 
when all existing connections are broken. If the request is for an 
immediate quiesce, the SVC immediately disconnects all active 
connections to and from the subsystem # at both ends, and posts all the 
SCCBs involved. 

LOGOFF The LOGOFF service removes the subsystem from interregion 
activity, and the SVC frees all control blocks allocated for the 
subsystem. 



Invocation of the SVC 

On invocation of the SVC, register 1 is set to contain the address of a 
parameter list. Each element of the parameter list contains the address 
of a sublist. Each sublist represents a single SVC request. Thus the 
SVC can process several requests during a single invocation. 

The parameter list and sublists are built, and the SVC is invoked, by 
using the DFHIR macro. For each SVC request, the parameters passed in 
the sublist to the SVC are coded as operands on the DFHIR macro. The 
operands are detailed below. The underscored operands represent items 
set (rather than used) by the SVC during the request. 

TYPE~L0G0N # MYNAME= # USER3TOM = # USERID= # SLCBAD= # MXTHRDS=^BUFSZ= 

MYNAME 

the name of this subsystem. 

USERNUM 

a number allocated to this subsystem, and to be used for 
subsequent SVC requests. 

USERID 

an ID allocated to this subsystem (for security purposes) and 
to be used for subsequent SVC requests. 

SLCBAD 

the address of this subsystem's SLCB. 

MXTHRDS 

the maximum number of simultaneous connections which can be 
active for this subsystem. The SVC allocates this number of 
CCBs and SCCBs for this subsystem. 

BUFSZ 

the buffer size for this subsystem. There is one buffer for 
each connection to this subsystem, and the buffer is used to 
hold data sent to this subsystem from the other end of the 
connection. The buffer must be large enough to contain such 
data. 

TYPE=CONNECT , TONAME= , USERNUM= ,USERID= . THRDNUM = . THRDID = . SCCBAD= 

TONAME 

the name of the subsystem to which the connection is to be 
made. 
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USERNUM 

as provided by LOGON. 

USERID 

as provided by LOGON. 

THRDNUM 

a number allocated to this connection by the SVC f and to be 
used for subsequent connection— specific requests to the SVC. 

THRDID 

an ID allocated to this connection by the SVC (for security 
purposes) and to be used for subsequent connection— specif ic 
requests to the SVC. 

SCCBAD 

the address of the SCCB for the connection. 

TYPE=SWITCH # USERNUM= # THRDNUM= # THRDID= f DATA= 

USERNUM 

as provided by LOGON. 

THRDNUM 

as provided by CONNECT. 

THRDID 

as provided by CONNECT. 

DATA 

data to be passed to the other end of the connection. 

TYPE=DI SC , USERNUM= , THRDUM= , THRDID= , DSCTYP= 

USERNUM 

as provided by LOGON. 

THRDNUM 

as provided by CONNECT. 

THRDID 

as provided by CONNECT. 

DSCTYP 

"N* for normal disconnect. 

■A* for abnormal disconnect. 

TYPE=QUIESCE , USERNUM= , USERID= , QUITYP= 

USERNUM 

as provided by LOGON. 

USERID 

as provided by LOGON. 

QUITYP 

■l e for immediate quiesce. 

■N* for normal quiesce. 
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TYPE=LOGOFF,USERNUM= ,USERID= 
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as provided by LOGON. 
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BATCH REGION MODULES (DFHDRP, DFHDRPA/B/C/D/E/F) 

The batch region modules control the execution of the data— base— sharing 
job step in the batch region (see Figure 3—26) . The functions of each 
module are described below. 



Batch Region Control (DFHDRP) 

DFHDRP is the first module to be executed during a batch data— base- 
sharing job step. The module resides in the link pack area, and is APF 
(Authorized Program Facility) —authorized. DFHDRP opens the APF— 
authorized library , DFHLIB, in which all the batch region controller 
modules (DFHDRPA-F) reside , and transfers control to DFHDRPA. Using 
this mechanism the batch region controller modules are authorized, but 
the user's application program (in STEPLIB or JOBLIB) is not. 



Batch Region Initialization (DFHDRPA) 

DFHDRPA processes the user parameters in the JCL EXEC statement, and 
then loads DFHDRPD and DFHDRPE. Finally, DFHDRPA links to DFHDRPF to 
establish a connection to the CICS/OS/VS partition/region, before 
passing control to DFHDRPB. 



Application Program Control (DFHDRPB) 

DFHDRPB initiates execution of the batch application program. When the 
application finishes, DFHDRPB invokes DFHDRPC. 



Batch Region Termination (DFHDRPC) 

DFHDRPC invokes the converse routine in DFHDRPE in order to send 
CICS/OS/VS a sync point request to indicate that DL/I activity is 
complete. DFHDRPC then invokes the cleanup routine in DFHDRPD to 
disconnect from the CICS/OS/VS region, and to logoff. 



Batch Region Cleanup (DFHDRPD) 

This module contains the cleanup routine, and the STAE and SPIE exits. 
The cleanup routine is invoked when the batch job step is to terminate, 
either normally or abnormally. The routine issues a DISCONNECT request 
to the SVC, in order to break the connection to CICS/OS/VS, and then 
issues a LOGOFF request. 

The STAE and SPIE exits invoke the cleanup routine before continuing 
the abnormal termination. 
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DL/I Request Handling (DFHDRPE) 

DFHDRPE contains two routines 9 the Program Request Handler routine and 
the Converse routine. 

The Program Request Handler receives control , via the link edit stub 
(DFSLIOOO) , when the application program issues a DL/I request. The 
routine then invokes the Converse routine in order to send the request 
to CICS/OS/VS and await a reply. 

If the request is a DL/I request, the Converse routine invokes DFHXFQ 
(which is link edited with DFHDRPE) to transform the DL/I argument list 
into a format which can be processed in the CICS/OS/VS region/partition. 
The formatted data is sent by issuing a SWITCH request to the SVC. When 
the SVC posts the batch SLCB ECB to indicate that the reply has arrived f 
the Converse routine again invokes DFHXFQ to transform the reply into 
the format required by the user. 



SVC Initialization (DFHDRPF) 

DFHDRPF issues a LOGON request and a CONNECT request to the SVC routine 
to establish a connection with CICS/OS/VS. It then passes a DL/I 
argument list (representing a scheduling request for the user"s PSB) to 
the Converse routine in DFHDRPE, so that CICS/OS/VS may schedule the 
PSB. 



CICS/OS/VS REGION MODULES (DFHCRSP,DFHCRNP,DFHZCX,DFHCRC) 

The CICS/OS/VS region modules control the handling of DL/I requests from 
other regions. The functions of each module are described below. 



CICS/OS/VS Interregion Communication Startup (DFHCRSP) 

DFHCRSP is optionally invoked at either system initialization (by 
DFHSIJ1) 9 or via a CSMT IRC, BEGIN command from the master terminal. 
DFHCRSP issues a LOGON request to the SVC and attaches CSNC (the New 
Connection Manager , represented by DFHCRNP) . The SLCB ECB is also added 
to the wait list which is embedded in the DFHTCT table. Thus , the 
Terminal Control Dispatcher , DFHZDSP (within DFHZCP) , will receive 
control when the SLCB ECB is posted. Finally, DFHCRSP allocates the 
CICS/OS/VS Region Block (CRB) , which controls CICS/OS/VS interregion 
activity. 



New Connection Manager— Transaction CSNC (DFHCRNP) 

Transaction CSNC is attached by DFHCRSP and immediately suspends itself. 
When the Terminal Control Dispatcher pFHZDSP) finds either there are 
new incoming connections from other regions/partitions f or that 
interregion quiesce is complete, CSNC is resumed by DFHZDSP. 
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If quiesce is complete, DFHCRNP issues DFHIS TYPE=LOGOFF (see 
description of DFHCRC) , and then DFHPC TYPE=RETURN. 

If a new incoming connection exists f DFHCRNP allocates an inter region 
TCTTE (generated as part of DFHTCT TYPE=IRCBCH) , places the incoming 
data in a TIOA, and invokes DFHIS TYPE=RECEIVE in order to attach the 
mirror transaction, CSMI. Thereafter , CSMI handles DL/I requests on 
behalf of the batch program in the same way as it does for a remote ISC- 
connected system. 

If DFHIS TYPE=RECEIVE fails for a temporary reason (for example , 
MAXTASKS) , the TCTTE is chained from the CRB in preparation for a later 
retry. 



CICS/OS/VS Region Communication (DFHZCX) 

DFHZCX contains several routines which are used for interregion 
communication. 

I/O Request Routine CI OR) This routine is invoked when data is to be 
sent to the connected (batch) subsystem. For instance , when the mirror 
transaction, CSMI, has performed the DL/I request and wishes to send the 
response to the requesting batch region/partition, it issues a DFHTC 
TYPE= (WRITE, WAIT, RE AD) which is recognized as an interregion request 
(the TCTTE is an interregion TCTTE) , and passed to IOR. The IOR routine 
issues a SWITCH request to the SVC and awaits a reply (it waits on the 
ECB contained in the connection's SCCB) . 

STOP Routine This routine is invoked when the interregion session is to 
be quiesced. This happens during: 

• Abend processing (see description of DFHCRC) 

• System termination (via DFHSTP) 

• Master terminal command CSMT IRC, END 

The routine issues a QUIESCE request to the SVC. 

FREE Routine This routine is invoked during sync point processing and 
issues a DISCONNECT request to the SVC. 

LOGOFF Routine This routine is invoked when interregion quiesce is 
complete. This happens when: 

• Terminal Control Dispatcher notices that quiesce is complete, and 
resumes CSNC (see description of DFHCRNP) . 

• System termination (via DFHSTP) . 

• Abend processing (see description of DFHCRC) . 
The routine issues a LOGOFF request to the SVC. 
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Interreqion Abnormal Exit (DFHCRC) 

DFHCRC is the interregion STAE exit module . The STAE macro is issued in 
DFHSIB1, and when DFHSRP continues an ABEND, DFHCRC receives control. 
DFHCRC issues DFHIS TYPE=STOPIMM which (from within DFHZCX) issues an 
IMMEDIATE QUIESCE request' to the SVC. Then DFHCRC issues DFHIS 
TYPE=LOGOFF which (from within DFHZCX) issues a LOGOFF request to the 
SVC. 
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INTERSYSTEM COMMUNICATION (ISC) 

The intersystem communication (ISC) facility (see Figures 3-27 , 3— 28, 
and 3—29) enables separate CICS/VS systems to be connected so that a 
transaction in one system is able to retrieve data from, to send data 
to, or to initiate a transaction in, another CICS/VS system. The 
facility is available to application programs that use the command— level 
interface. 



ISC HANDLING OF CICS/VS EXEC REQUESTS 

The user issues a command— level request, which is handled by the EXEC 
interface program (DFHEIP) . DFHEIP invokes DFHELR, which determines 
| whether the request is for a local or a remote resource. If the 

resource is local, DFHELR returns control to DFHEIP, which invokes the 
appropriate CICS/VS modules locally. 

If the resource is remote, DFHELR allocates a storage area into which 
it places the name of the remote system, address of the EXEC parameter 
list, and the address of the table (FCT, DCT, etc.) for the requested 
resource. Finally, DFHELR issues a DFHIS TYPE=CONVERSE macro, which 
passes control to the intersystem program DFHESP. 

| DFHISP determines whether a usable session is already established for 
| the task. If no session is established DFHISP issues an allocate 
| request to establish one. DFHISP then invokes DFHXFP to transform the 
requested command and parameter list into a form suitable for 
transmission. (This is known as "transformation 1".) A DFHTC 
TYPE= (WRITE, WAIT, READ) macro is then issued by DFHISP, and terminal 
| control transmits the request to the remote system. If the NOCHECK 
I option is specified on the EXEC request then a DFHTC TYPE= (WRITE, LAST) 
| macro is issued by DFHISP, to optimize the flows since no reply is now 
| necessary. 

| On receiving the request, terminal control in the remote system 
| attaches the mirror transaction program (DFHMIR) . DFHMIR allocates 
storage, as in the requesting system, in which the addresses of the 
session TCTTE and the TIOA are placed. The mirror program then invokes 
DFHXFP to transform the received request into a form suitable for 
execution by DFHEIP. (This is known as "transformation 2".) 

DFHEIP invokes DFHELR which determines whether the request is for a 
remote resource on yet another system or for a local resource. If the 
resource is remote, DFHELR allocates a new and separate storage area and 
invokes DFHISP etc. 

If the resource is local, DFHELR returns control to DFHEIP which 
processes the command for the mirror program in the normal way. 

When DFHEIP has successfully completed execution of the command, 
control is returned to the mirror program with the results of the 
| execution. If the mirror program was attached due to a DFHTC 
| TYPE= (WRITE, LAST) macro request, at this point the macro request has 
| been completed and the mirror program terminates without sending a 
| reply. Otherwise, for requests that do not specify the NOCHECK option, 
I the mirror program invokes DFHXFP to transform the command response into 
a suitable form for the transmission of the reply. (This is known as 
"transformation 3".) 
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DFHXFP returns control to the mirror program which then invokes 
terminal control to transmit the reply to DFHISP. The mirror program 
does this by issuing either a DFHTC TYPE= (WRITE , LAST) or a DFHTC 
TYPE= (WRITE , WAIT , READ) macro . 

On receiving the reply , DFHISP invokes DFHXFP in order to transform 
the reply into a form expected by the application program, (This is 
known as "transformation 4".) DFHISP then returns control via DFHELR to 
DFHEIP which raises any error conditions associated with return codes. 
Finally , DFHEIP returns control to the application program. 
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ISC HANDLING OF CICS/VS EXEC NOCHECK REQUESTS 

The command-level NOCHECK requests (see Figure 3—28) are handled in the 
same manner as other command— level requests, except that: 

• There is a single message transmitted to the remote system, and 
there is no reply transmitted from the remote system. 

• DFHISP issues a DFHTC TYPE= (WRITE, LAST) request instead of a DFHTC 
TYPE= (WRITE, WAIT, READ) request. 

• DFHMIR does not issue any terminal control requests. 

• Transformations 3 and 4 normally performed by DFHXFP are avoided. 

(Errors are not returned to the requesting system.) 
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| Figure 3-28. (Part 1 of 2) . Overview of Intersystem Communication 
| (with NOCHECK Option) 
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| ISC HANDLING OF DL/I REQUESTS 
I 

| Whereas all CICS/VS commands (for a local or remote system) are handled 
| by DFHEIP, all DL/I requests are handled by the CICS/VS module DFHDLI 
(See Figure 3—29) . DFHDLI checks whether the request is for a local or 
remote data base. If local # the request is handled normally. If 
remote , control is passed to DFHISP. On receiving control, DFHISP 
invokes DFHXFP to transform the request into a form suitable for 
transmission, and then invokes terminal control to transmit. 

As for a CICS/VS request, the mirror transaction (CSMI) is attached 
and then invokes DFHXFP to transform the received request into a form 
suitable for execution by DFHDLI. The mirror program (DFHMIR) then 
passes the request to DFHDLI in the same way as any other application 
program would. DFHDLI in the receiving system then checks if the 
request is for yet another remote system. 

When DFHDLI has successfully completed the request, control is 
returned to the mirror program with the results in the user interface 
block (UIB) . DFHMIR then invokes DFHXFP to transform the results into a 
form suitable for transmission, and then invokes terminal control to 
transmit the reply. 

On receipt of the reply, terminal control returns to DFHISP, which 
has been waiting for the reply; DFHISP then invokes DFHXFP to transform 
the reply into a form that can be used by DFHDLI. DFHXFP sets the 
return codes in an intermediate control block DFHDRX so that they may 
ultimately be copied to the UIB or the TCA for the application program. 
Control is then returned via DFHISP and DFHDLI to the application 
program. 
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LOCAL/REMOTE DETERMINATION PROGRAM (DFHELR) 

The local/remote determination program pFHELR) is called by the EXEC 
interface program (DFHEIP) and inspects the appopriate CICS/VS table to 
determine if the request is for a local or a remote resource. The 
following tests are made to determine if a resource is local or remote: 

1. If the function group is not FC, TD, TS, IC, then the resource is 
local. 

2. If the function group is IC, but the function is not START or 
CANCEL, then the resource is local. 

3. If SYSID is specified then the resource is remote. 

4. If the relevant CICS table entry specifies REMOTE, then the 
resource is remote. The relevant tables are: 

FC FCT 

TD DCT 

TS TST 

IC PCT 

The notes below refer to Figure 3—30. 

Notes: 

1. DFHELR is called by DFHEIP to determine if the resource associated 
with the command— level request is on a local or a remote system. 

2. If the resource is local, DFHELR returns control to DFHEIP which 
invokes the appropriate CICS/VS modules locally. 

3. If the resource is remote, DFHELR then: 

a. Allocates a transformer storage area (XFSTG) chained off the 
EXEC interface storage EIS. XFSTG provides a central area in 
which all information about processing of the request can be 
accessed. 

b. Places the following data in XFSTG: 

(1) Name of remote system, for subsequent use by DFHISP. 

(2) Address of application's list of parameters (EXEC parameter 
list) associated with the command being executed. 

(3) Address of the table (FCT, DCT etc.,) for the requested 
resource. 

c. Issues a DFHIS TYPE=CONVERSE macro which passes control to the 
inter system program DFHISP. 

4. The reply from the remote system is passed to DFHELR by DFHISP. 

5. Control is returned to DFHEIP to examine the reply and invoke the 
EIP exception handler if necessary. 
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INTERSY STEM COMMUNICATION PROGRAM (DFHISP) 

The macro DFHIS TYPE=CONVERSE expands into a call to the inter system 
communication program (DFHISP). On receiving control , DFHISP is 
responsible for allocating a session TCTTE, sending requested command to 
remote location, receiving reply from remote location, returning result 
to application program, and if necessary, freeing the session. 

The notes below refer to Figure 3—31. 

Notes: 

1. The local/remote determination program (DFHELR) issues a DFHIS 
TYPE=CONVERSE macro request. 

2. Many ISC sessions can exist at the same time and consequently a 
task can own more than one TCTTE. Ownership of a TCTTE by a TCA is 
represented by a chain that starts at the TCA and links all the 
owned TCTTEs. DFHZISP manipulates this chain and actions requests 
for session TCTTEs. 

DFHZISP contains three separate routines, POINT, ALLOCATE, and 
FREE. DFHISP obtains the address of the TCTTE that controls the 
session with the remote system and places it in XFSTG. The address 
of the TCTTE is obtained by DFHISP issuing a DFHTC TYPE=POINT 
macro, the processing being carried out by DFHZISP. 

3. If no session is established, there will be no TCTTE; in this case 
DFHISP issues a DFHTC TYPE=ALLOCATE macro and DFHZISP establishes 
the session TCTTE. If all the session TCTTEs are in use, the 
request is queued. 

4. The transformation program (DFHXFP) is then invoked to transform 
the requested command and parameter list into a form suitable for 
transmission. 

5. DFHISP then issues a DFHTC TYPE= (WRITE, WAIT, READ) macro and the 
terminal control program transmits the request to the remote 

| terminal. If a NOCHECK macro request is being transmitted then a 

| DFHTC TYPE= (WRITE, LAST) macro is issued. No reply is given and the 

|. session is immediately freed by issuing DFHTC TYPE=FREE. Control 

I then returns to the caller. 

6. Following processing in the remote system the resulting reply is 
transformed by the transformation program (DFHXFP) into a form 
expected by the application program. 

7. Session TCTTEs can be freed either explicitly or implicitly. If 
the mirror program detects that the request has completely 
terminated, it will issue a DFHTC TYPE= (WRITE, LAST) macro and then 
issue a DFHPC TYPE^ETURN macro. Since DFHISP receives the end 
bracket indication, it will explicitly issue a DFHTC TYPE=FREE 
macro, processing being carried out by DFHZISP, in order to release 
the session TCTTE. 

8. Control is then returned to DFHEIP via the local/remote 
determination program (DFHELR). 
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TRANSFORMATION PROGRAM (DFHXFP) 

The trans formation program PFHXFP) is responsible for encoding data 
that is to be transmitted during intersystem communication. For any 
request (and reply) , the data has to go through four transformations: 

1. From standard parameter list form to address free form for the 
request, 

2. From address free form to standard parameter list form for the 
request, 

3. From standard parameter list form .to address free form for the 
reply . 

4. From address free form to standard parameter list form for the 
reply. 

Whilst each of the transformations is logically distinct from the 
others , the code for all four transformations is held in the one module 
DFHXFP. 

The requests (and replies) that can be handled by DFHXFP include: 

• CICS file control requests 

• CICS interval control requests 

• CICS transient data requests 

• CICS temporary storage requests 

• DL/I schedule and data base requests 

For each request , the address free form consists of a function 
management header (FMH) and (possibly) following data. CICS file 
control requests are represented by FMHs of type 43 which are 
architected privately by CICS. All other requests are represented by 
FMHs of type 6 which form part of the overall LU6 architecture. 

The notes below refer to Figure 3—32. 

Notes : 

1. Transformation 1 

The intersystem communication program pFHISP) invokes DFHXFP to 
transform the request into a suitable form for transmission. 

DFHXFP establishes the group and function codes for the request. 
The group code identifies , for example, a transient data request. 
It is used to locate the tables and code for transient data 
requests. The function code is then used to locate the routine for 
a specific request , for example , a WRITEQ— TD request. Finally, the 
transformation number , in this case 1, is used to locate the 
routine for the specific transformation; control is then passed to 
this routine. 

The standard parameter list is scanned twice , the first time to 
determine how large a TIOA is required, and the second time to 
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complete the TIOA. In determining the TIOA size, attempts are made 
to reduce the amount of data that is actually transmitted. For 
example, trailing blanks are removed from queue names • 

During transformation 1 an attach function mangement header (AFMH) 
is generated when a change of architected model occurs, for example 
from DL/I model to CICS private model. The generated AFMH will 
cause the mirror table CSMI to be attached in the remote system. 

When processing is complete, transformation 1 passes control back 
to DFHISP. 
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2. Transformation 2 



DFHMIR, the mirror transaction program, passes control to DFHXFP 
which during transformation 2 constructs a standard parameter list 
from the data contained in the input TIOA. 

During transformation 2 the attach function management header, if 
present, is ignored in favour of the FMH of interest. The group 
and function codes, and the type carried in the FMH are used to 
select the relevant processing code. For CICS private model (file 
control) requests and DL/I model requests, the processing code will 
be that which constructs the standard parameter list. For queue 
and schedule model requests the processing code distinguishes 
between, for example, a transient data request and a temporary 
storage request; control is then passed to the routine that 
constructs the standard parameter list. 

Working storage is then obtained to hold the standard parameter 
list and values that were compressed for transmission. The storage 
will also hold the POINTER and LENGTH variables that are to be set 
as a result of executing a READ SET command. In the case of file 
control requests, working storage also holds the transmitted key. 
All remaining values are left in the input TIOA. 

Before finally passing control back to DFHMIR transformation 2 
places the address of the parameter list into the XF control block, 
and also indicates whether DFHHEIP or DL/I is to be called. 

3. Transformation 3 

DFHMIR invokes DFHXFP to prepare the reply for transmission. The 
processing done during transformation 3 is very similar to that 
carried out during transformation 1. The main difference is that 
the EIB and UIB control blocks have to be considered in addition to 
the standard parameter list. 

The final actions taken during trans format ion 3 are to free the 
working storage obtained during transformation 2 (note that this 
does not include storage for a file control request) , and to 
determine whether or not the mirror task can be terminated. This 
test is complementary to that performed by DFHMIR. Control is then 
returned to the mirror transaction program. 
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4. Transformation 4 

The reply is received by DFHISP and then DFHXFP is invoked to set 
up data areas and status fields from the data contained in the 
input TIOA. 

The selection of the specific processing code is very similar to 
that done during transformation 2. During transformation 4 
execution of the request is completed except for the raising of any 
error condition; this is done by DFHEIP or DL/I. 

Where the request was READ INTO, the reply is moved from the TIOA 
into the user's designated area. For a READ SET request storage is 
allocated to hold the reply. For all requests, status information 
is moved into the EIB control block for CICS requests or into 
TCAFCTR and TCADLTR for DL/I requests. PL/I schedule requests 
require special processing because much of the control block 
structure on the remote system has to be reconstructed in the local 
system.) 

After freeing the input TIOA, DFHXFP returns control to DFHISP. 
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MIRROR TRANSACTION PROGRAM pFHMIR) 

The mirror transaction program pFHMIR) executes under the transaction 
identification CSMI. It is attached by terminal control on receipt of a 
message on an intersystem communication TCTTE. Its function is to call 
DFHEIP to execute the request, and then to return the response to the 
requesting system. Depending on certain conditions the mirror 
transaction will then be terminated. 

The notes below refer to Figure 3-33. 

Notes ; 

1. Terminal control receives the request from DFHISP and attaches the 
mirror program (DFHMIR) . 

2. The transformation program PFHXFP) is invoked to convert the 
request into a form suitable for execution by the EXEC interface 
program pFHEIP) . 

| 3. The mirror program calls DFHEIP to execute the request. If the 
I mirror program is attached due to a DFHTC TYPE= (WRITE , LAST) 
| request, then since no reply can be given, the mirror program 
| issues a DFHPC TYPE=RETURN macro to terminate immediately. 

( 4. Otherwise , on receipt of the reply from DFHEIP, the mirror program 
invokes DFHXFP to convert the reply into a suitable form for 
transmission. 

5. The mirror program then issues a DFHTC TYPE= (WRITE , LAST) macro if 
it detects that the request has completely terminated. If the 
request has not terminated , DFHMIR issues a DFHTC TYPE= (WRITE, 
WAIT, READ) macro. This macro is issued in the following 
circumstances: 

a. If the mirror program has altered a recoverable resource. 

b. If the mirror program has executed a request that gives the 
mirror program access to a file or positional information in 
browsing or updating a file. 

In the two cases above the termination of the mirror task will be 
initiated, not by DFHMIR, but by the user issuing a sync point. On 
receiving a PREPARE or SPR message as a result of the sync point, 
DFHMIR will issue a DFHPC TYPE=RETURN macro. The mirror task is 
thus terminated and return is then made via terminal control to 
DFHISP. 
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JOURNAL MANAGEMENT (DFHJCP) 

The Journal Control program (DFHJCP) communicates directly with three 
other CICS/VS management modules: Task Control , Program Control , and 
Interval Control. In addition , it communicates with the operating 
system and standard access' methods , and within its component parts. 

Not all portions of the Journal Control program need be resident in 
main storage. Some seldom— used Journal Control macro services are 
performed by separate modules (transients) that are loaded into main 
storage when required. 

CICS/VS provides optional Automatic Journaling facilities for records 
that are updated , deleted from , or added to a file control data set. 
Automatic Journaling is specified in the File Control Table , by the 
user, for each data set affected. For a specified data set, a record 
read for update , a new record added, or an existing record deleted is 
automatically written to the specified journal. 

The notes below refer to Figure 3— 34. 

Notes ; 

1. Journal Control PFHJC) macro instructions are communicated to 
Journal Control through a special area, the Journal Control Area 

(JCA) . This area must be acquired for a task by means of a DFHJC 
macro instruction before any other DFHJC macro instructions are 
issued by the task. The TCAJCAAD field of the TCA then points to 
the JCA for the duration of the task. 

2. The normal DFHJC macro expansion sets indicators and addresses in 
the JCA, before branching to Journal Control. 

3 . Program Control services are requested by Journal control when a 
request for a seldom-used macro service (for example, OPEN, CLOSE, 
or input) performed by a nonresident module (transient) is 
received. A DFHPC TYPE-LINK macro instruction is used to request 
that Prog r sun Control load the program. All output and wait 
requests are serviced by resident code. 

4. The Journal Control Open and Close transients use the Journal 
Control Open/Close List to communicate requests to an operating 
system subtask, which then issues the actual Open or Close. The 
main CICS/VS task remains di spat chable even while a journal open or 
close is outstanding. Communication is via OS/VS POST plus CICS/VS 
Task Control DFHKC TYPE=WAIT. The Journal control Open/Close List 
is located at the start of the Journal Control program and is 
mapped via COPY DFHJCOCL. 
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5. If this task requires logging for Dynamic Transaction Backout, a 
decision is taken whether to log this record or not. If a record 
is logged , user storage may be required for a dynamic buffer. If 
the record will not fit into the buffer , the record or the buffer 
will spill to temporary storage. The queue used to spill to is 
idenitified by a byte'X , FF* followed by the characters DTB followed 
by the task number. 

Output requests cause journal records to be built in the 
appropriate journal's buffer. Journal Control accesses the buffer 
through pointers in the journal's Journal Control Table Table— Entry 
(JCTTE) . The JCTTE is the repository for all pointers associated 
with the journal , thus enabling the main Journal Control program to 
remain truly reentrant. The JCTTE is mapped via COPY DFH JCTTE. 

The journal buffer was acquired at system initialization and is 
owned as transaction storage by a separate , never-ending CICS/VS 
journal task. Journal tasks , like CICS/VS Terminal Control, run at 
high priority and enable I/O to be scheduled rapidly and 
efficiently for common high— usage resources — in .this case, journal 
data sets. There is one CICS/VS journal task for each journal data 
set. 

6. While building a journal record , Journal Control accesses the 
system area of the caller "s TCA for task number and to locate the 
terminal identification and transaction identification, for 
inclusion in the system prefix of the journal record. Journal 
records are mapped via COPY DFHJCR. 

7. If I/O initiation is necessary. Journal Control uses the pointers 
in the JCTTE to access and set up the journal'" s DTF. The OS/VS DTF 
is mapped via COPY DFHJCICA. Journal Control then links to the 
Basic Sequential Access Method (BSAM) to initiate I/O. If 
necessary. Journal Control issues a DFHKC TYPE=RESUME macro 
instruction (a Task Control macro instruction documented only for 
system programming) for the journal task, which in turn issues a 
DFHKC TYPE=WAIT on the I/O event. 

8. If the user task wishes to wait (synchronize) , Journal Control 
issues a DFHKC TYPE=WAIT macro instruction on a special logical ECB 

(LECB) . The journal task will POST that LECB when the I/O 
completes successfully. 

9. The Journal Control Table (JCT) contains a pool of LECBs, from 
which LECBs are allocated and deallocated by Journal Control as 
required. The LECB pool is controlled through pointers at the 
beginning of the JCT, which is mapped via COPY DFHJCTDS. 

10. When there is no outstanding output I/O event for a journal, 
Journal Control issues a DFHKC TYPE=SUSPEND macro instruction 

(another Task Control macro instruction intended only for system ° 
programming) to suspend the journal task. 

11. In the particular case when the user task waits on a journal output 
request for which STARTIO=NO was specified, then Interval Control 
is called to provide a Timer Event Control Area which will limit 
the user wait to a maximum of one second. 
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TASK MANAGEMENT (DFHKCP, DFHKCSP, DFHHPSVC) 

The Task Control program pFHKCP) can be divided into three functional 
areas. The first of these supports the Task Control (DFHKC) macro 
instruction by performing or initiating a particular service requested. 
As for other CICS/VS service modules , the requesting task's TCA is the 
communication vehicle and is in control during the execution of the 
requested service. Unlike other CICS/VS service modules, however, 
control is not returned directly to the requesting program. Instead 
control passes to the second functional area of Task Control # known as 
the Task Dispatcher. The CICS/VS system function of selecting the task 
to be given control is performed. The third functional area comprises 
the time— of -day and timer interruption routines that support CICS/VS 
operations . 

The notes below refer to Figure 3—35. , 

Notes: 

1. Issuing a DFHKC macro instruction causes a type of request code to 
be set in TCATCTR in the requesting task's TCA. Processing enters 
the Task Control macro instruction service logic. The register 
contents are saved in TCATCRS, or in CSA0SRSA for RESUME and ATTACH 
HTA services # and the requested service is performed or initiated. 

While processing the DFHKC macro request other modules may be 
called. DFHKCP also interfaces with DFHPCP to terminate tasks in 
certain situations. During ATTACH macro processing the search code 
in the DFHPCT table is used to find the PCT entry for the new 
transaction ID. DFHSPP is called during DETACH macro processing 
for DWE and sync point processing. If the task owned a terminal, 
then during DETACH macro processing DFHTCP/DFHZCP are called to 
free the terminal , DFHTSP is called to free data associated with an 
automatically initiated task, DFHDIP is called to terminate 
outstanding requests and free the DIB, and DFHICP is called to 
cancel any ICEs associated with the task. 

2. Storage Control services are used by Task Control macro instruction 
service logic. With the exception of task termination service, the 
requesting task's TCA remains in control and is the communication 
vehicle during Storage Control processing. 

3. Upon entry to the Task Dispatcher/ Task Control's TCA is activated 
as an intermodule communication vehicle. 

| 4. If the expiry time of any ICE (describing a time-ordered event) has 
| passed/ the Task Dispatcher calls a section of the Interval Control 
| program where such events are initiated. The time remaining until 
expiration of the next time— ordered event is returned to the Task 
Dispatcher of Task Control. This value is used when operating 
| system services are requested (see note 8 below) • 
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5. Two task chains are maintained by the Task Control program: an 
active task chain and a suspended task chain. The Task Dispatcher 
scans the active task chain when attempting to locate a 
dispatchable task. The suspended task chain is scanned only during 
exception processing (for example , stall corrective action) • The 
elements on the chains are Dispatch Control Areas (DCAs) , each of 
which contains pointers to the previous and next elements on the 
chain. In the case of the active task chain, the pointers address 
the next higher priority DCA and next lower priority DCA (DCAKCFA 
and DCAKCBA, respectively) . Each DCA also contains a pointer to 
the associated task's TCA pCATCAA) . The CSA contains pointers to 
the highest and lowest priority DCAs on the active chain (CSAACTBA 
and CSAACTFA, respectively) . The dispatchability of a task is 
determined by examining the setting of the dispatch control 
indicator (DCATCDC) in the DCA. If it indicates that the task is 
waiting on the completion of some event, the ECB associated with 
the event (pointed to by DCATCEA) is tested for completion posting. 

The suspended task chain is not a priority— ordered chain. If a 
task has a timeout value associated with it (TCATRTO is non— zero) , 
then task control will add the timeout task to the DCA chain in 
timeout sequence. CSASUSFA addresses the DCA with the temporarily 
most remote timeout value. KCP maintains an internal pointer 
(KCLTPTR) to the most imminent. Tasks with no timeout value 
(TCATRTO is zero) are placed at the other end of the suspended 
chain (addressed by CSASUSBA) . Placement in timeout sequence helps 
to minimize the overhead for tasks that have timed-out. 

6. If the Task Dispatcher determines that a task is dispatchable, its 
TCA is activated, the task's register contents are restored, and 
control passes back to the module or program that requested the 
Task Control service. During this processing, operating system 
timer facilities may be used, as described in note 8 below, in 
support of the runaway task control facility of CICS/VS • 

7. If the Task Dispatcher finds no CICS/VS task that is currently 
dispatchable, it releases control of the CPU through operating 
system WAIT facilities, requesting that control be returned to 
CICS/VS upon completion of the next event. One of the events 
represents the expiration of a time interval as noted in 8, below. 
Others may be associated with completion of I/O requests, 
completion of SRB mode activity (see Note 13) , etc. 

8. The Task Dispatcher interfaces with OS/VS timer facilities. When 
dispatching a task, the OS/VS timer is set at the runaway task 
interval value defined by the user. Its purpose is to interrupt 
any task that is apparently looping and initiate its removal from 
the system. When relinquishing control to the operating system, 
the timer is set to the time interval remaining until expiration of 
the next time-controlled event. This, in effect, requests that 
control be returned to CICS/VS at a time no later than the 
expiration of that interval. The dispatcher continually updates 
the current time-of-day values in the CSA (CSATODP and CSACTODB) , 
but does not use the OS/VS timer facilities for this process. 
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9. The Task Dispatcher either sets the operating system timer to a 
maximum time that CICS/VS wishes to relinquish control to the 
operating system via a WAIT, or uses the timer as a means of 
interrupting an apparently looping (runaway) CICS/VS task. When a 
time interval expires, the operating system gives control to the 
Interval Control Timer Interrupt routine. Based on the setting of 
an indicator in the CSA (CSAICRIN) , the Timer Interrupt routine 
determines which type of interval has expired. In a non— runaway 
case, the Timer Interrupt routine merely posts the CICS/VS timer 
ECB (CSATTECB) and returns control to the operating system. 

10. If a runaway task interval has expired, the Timer Interrupt routine 
takes steps to purge (abnormally terminate) the apparently looping 
task. The setting of bits in a system— maintained field in a task's 
TCA (TCASVMID) indicate whether a task is currently executing in a 
CICS/VS management module or the application program itself. In 
the latter case, the Timer Interrupt routine ensures that an 
immediate purge will be initiated when CICS/OS/VS is again given 
control, then returns control to the operating system. This is 
done by changing the next instruction operation code to X'OO 1 to 
force a program check. The SPIE exit then sets the instruction 
back to its former value and purges the task. If the runaway task 
interval expired while a CICS/VS management module was executing, 
the abnormal termination is deferred until control returns to the 
application program. The Timer Interrupt routine then returns 
control to the operating system. 

11. Occurrence of a timer interrupt when the application program is in 
control causes the Timer Interrupt routine to replace the "next 
instruction" (addressed by the interrupt PSW) by an invalid 
operation code. The consequent operation exception interrupt is 
recognized by CICS/VS as indicating a runaway task situation. The 
application code is restored by the program check routine, and the 
offending task purged by resetting the interrupt PSW to address the 
abnormal termination linkage in the CSA, see Note 12. 

12. When exiting from a CICS/VS management module, the bits 
representing the module in TCASVMID are set off. If all bits in 
this indicator are off, the module exits to the task abnormal 
termination linkage in the CSA. 

13. The linkage in the CSA causes entry into the Task Abnormal 
Termination routine, which requests abnormal termination by means 
of a Program Control DFHPC TYPE=ABEND macro instruction. The 
CICS/VS Program control program terminates the task. 

14. If SRB support generated, tasks on the active chain may be running 
under SRBs, rather than the CICS/VS TCB, during execution of 
certain CICS/VS services. Such tasks must not, of course, be 
dispatched by the normal (TCB mode) CICS/VS task dispatcher. Upon 
completion of the SRB mode service, a task becomes eligible for 
normal TCB mode dispatch again. To indicate that a task has become 
eligible in this way, the SRB mode service posts an ECB (DCAPECB in 
the task's DCA) , and places the HTA of the task on the stage chain 

(SRASTGCH) . The task dispatcher dispatches from the stage chain in 
preference to the active chain except when the "next dispatch time" 
for the terminal control task (CSATCNDT) expires. 

15. In response to an ENTER SRB mode or ATTACH HTA service, KCP issues 
an SVC SRBSVC (HPO only) . This causes control to pass to KCSP 
running as an SRB. KCP itself continues in TCB mode. 



884 CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL PROPERTY OF IBM 



t 



Requesting 
Module/Program 



DFHKC 
TYPE = .. 



;> 



o 



TCATCTR 
TCATCRS 



I 



I 



Task Control 
Services 



OS/VS 
WAIT 







d 







7V 



ii 



Storage 
^> Control 

Program 



C 



OS/VS 
Timer 



i0pi 



n 



Task 
Dispatcher 



© 



CSAACTFA 


CSASUSBA 


CSAACTBA 


CSATODP 


CSASUSFA 


CSACTODB 



I 

I OCA 



DCAKCFA 
DCAKCBA 
DCATCAA 



V 



© 



c 



£ 



Interval 

Pf Control 

Program 







Requesting 
Program/Module 



TCATCEA 
TCATCDC 
TCATCRS 






t 



OS/VS 
Timer 
Interrupt 
Routine 



Timer 

Interrupt 

Routine 



I ECB 

HZ 




CSAICRIN ' CSAICRNX 
I 



V 



J 



© 



Task 

Abnormal 
Termination 
Routine 



Program 
Control 
Program 



Figure 3—35. Task Control Interfaces 



OPL35 



Section 3. Program Organization 



885 



LICENSED MATERIAL — PROPERTY OF IBM 



KEYPOINT PROGRAM PFHKPP) 



The Keypoint program PFHKPP) is activated for one of three purposes: 

• To collect and record data from system tables and control blocks, 
and write that information to the Restart data set for use by the 
System Initialization program (DFHSIP) in a subsequent warm start 
of CICS/VS 

• To collect and record data from system tables and control blocks , 
and write that information to the System Log for use by the 
Recovery Utility program (DFHRUP) in a subsequent emergency restart 
of CICS/VS 

• To record and retrieve records written to the Restart data set in 
support of emergency restart. DFHRUP interfaces with DFHKPP to 
cause records to be written to the Restart data set and the 
Transaction Backout program (DFHTBP) interfaces with DFHKPP to 
retrieve these records for recovery purposes. 

The first of these functions is known as warm keypointinq ; the second 
is called activity keypointinq , and the third is called emergency 
restart. support . System interfaces for warm keypointing and activity 
| keypointing are shown in Figures 3— 36 and 3—37 , respectively. 



WARM KEYPOINTING 

The notes below refer to Figure 3—36. 
Notes ; 

1. The Keypoint program is linked to by the System Termination program 

pFHSTP) when the system is terminated in response to a user 
request for termination. 

2. The System Recovery program (DFHSRP) may generate a link to the 
Keypoint program when an unrecoverable error condition precludes 
further execution of CICS/VS. 

3. Information collected by DFHKPP is written on the Restart data set 

(DFHRSD) , which is a BDAM data set with user— specif ied block size 
Preformatted by DFHSIP. 

4. The collected information consists of: 

— PPT, PCT, and FCT - the entire tables 

— TCT — the nonswitched TCTTEs 

— DCT — the intrapartition entries and the bit map 

— TSUT — the auxiliary destination identifications, queue 
counters, RBAs, and the bit map 

— Interval Control Elements (ICEs) and Automatic Initiate 
Descriptors (AIDs) — the entire control blocks 
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— Batch Control Areas (BCAs) — the entire control blocks and 
their associated Write Request Elements (WREs) 

— CSA — certain fields , such as time intervals and maximum task 
values 

When all data has been recorded, a time— stamped control record is 
written to DFHRSD. This record contains DASD addresses of the data 
and is used by DFHSIP at warm— start time. 

Control is then returned to the requesting module , either DFHSTP or 
DFHSRP. 
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ACTIVITY KEYPOINTING 

The notes below refer to Figure 3—37. 
Notes : 

1. The need for activity keypointing is signaled when an activity 
keypoint frequency count is reached during Journal Control pFHJCP) 
logging of activity on the System Log (JID1) • 

2. Journal Control attaches the task associated with transaction 
identification CSKP. CSKP invokes the Activity Keypoint program 

(DFHAKP) . 

3. DFHAKP passes control to the Keypoint program (DFHKPP) . 

4. DFHKPP gathers the TCA # DCT, and TCT information in buffers and 
interfaces with DFHJCP to log this information on the System Log. 

5. DFHKPP returns to DFHAKP # which writes a time stamp to the master 
terminal (CSMT) . 



888 CICS/0S/VS Program Logic: Description 



LICENSED MATERIAL PROPERTY OF IBM 







Journal 
Control 
(DFHJCP) 



CSAKPACT = CSAKPFRQ CSKP 



DCT 
TCA 
TCT 



© 



© 



^> 



© 



Activity Keypoint 
Program (DFHAKP) 



J^ 



Keypoint 

Program 

(DFHKPP) 



\7 



Journal Control 
(DFHJCP) 




OPL37 



Figure 3—37. Keypoint Program Interfaces During Activity Keypointing 



Section 3 • Program Organization 



889 



LICENSED MATERIAL — PROPERTY OF IBM 

MESSAGE SWITCHING (DFHMSP) 

Message Switching runs as a task under CICS/VS. A terminal operator 
requests activation of this task by entry of the transaction 
identification CMSG (or another installation-defined four-character 
transaction identification) , followed by appropriate parameters. Once 
initiated. Message Switching interfaces with CICS/VS Basic Mapping 
Support (BMS) and CICS/VS management functions. Although Message 
Switching appears conversational to the terminal operator , the message 
switching task is terminated with each terminal response. Through the 
entry in the PCT which references program DFHMSP, the CICS/VS user can 
define the transaction identification (which must be four characters 
long) for message switching. Conversation is forced, if continuation is 
possible, by effectively terminating the transaction with a DFHPC 
TYPE=RETURN,TRANSID=XXXX, where XXXX is the transaction identification 
taken from the task's PCT entry. Actually, XXXX is dynamically moved 
into TCANXTID prior to issuing DFHPC TYPE=RETURN. 

The notes below refer to Figure 3—38. 

Notes ; 

1. If the first four characters of the TIOA (not including a possible 
SBA sequence from a 3270 terminal) do not match the transaction 
identification in the task's PCT entry, then this task must have 
started as part of a conversation, because a previous task set up 
the next transaction identification. A , C" immediately following 
the transaction identification is also a force continuation. In 
such a case, information has been stored in and has to be retrieved 
from temporary storage (using a record key of one— byte X*FC i , four- 
byte terminal identification, and three— byte C^MSG 1 ) to allow the 
task to resume where it left off. 

2. The operands in the input TIOA are processed and their values and 
status are stored in the TWA. 

3. If a ROUTE operand specifies Terminal List Table (s) (TLTs) for a 
standard routing list, a DFHPC TYPE=LOAD macro instruction is 
issued to request the Program Control program to load the requested 
TLT (s) . 

4. Message Switching requests storage areas for: 

a. Building route lists (one or more segments, each of which has 
room for the number of destinations specified by MSRTELNG, an 
EQU within the program) 

b. Constructing a record to be placed in temporary storage 

c. Providing the message text to BMS if message parts from 
previous inputs exceed the current TIOA size, a message is 
completed in the current TIOA but has parts from previous 
inputs, or a heading has been requested but the message in the 
current TIOA is too close to TIOADBA to allow the header to be 
inserted. 
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5. Message Switching requests BMS routing functions by means of the 
DFHBMS TYPE=ROUTE macro instruction. The message text is sent via 
DFHBMS TYPE=TEXTBLD, and completion of the message is indicated by 
DFHBMS TYPE=PAGEOUT. BMS returns the status of destinations and 
any error indications in response to the DFHBMS TYPE=CHECK macro 
instruction. 

6. Message Switching interfaces with BMS via DFHBMS TYPE= (EDIT, OUT) 
and with CICS/VS Terminal Control via DFHTC TYPE=WRITE (for 3270 
only) , in providing responses to terminals. These may indicate 
normal completion, signal that input is to continue, or provide 
notification of input error. 

7. Like any other task. Message Switching has a Task Control Area 

(TCA) in which values may be placed prior to issuing CICS/VS macro 
instructions and from which any returned values can be retrieved 
after an operation. All values for the DFHBMS TYPE=ROUTE macro 
instruction are placed in the TCA because they are created at 
execution time. The TWA is used for storing status information 

(partly saved in Temporary Storage across conversations) and space 
for work area. The DFHMSP module is coded reentrant. 
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MASTER TERMINAL PROGRAM (DFHMTP) 

The Master Terminal program (DFHMTP) is an optional feature of CICS/VS 
selected at system initialization. This program consists of seven 
modules: DFHMTPA, DFHMTPB, DFHMTPC, DFHMTPD , DFHMTPE , DFHMTPF, and 
DFHMTPG. It is a service program that provides the user with the means 
of dynamically changing certain system parameters , the status of lines , 
control units , or terminals. 

The Master Terminal program is invoked by operator keying of the 
proper transaction identification at a master terminal, a supervisory 
terminal , or a single terminal. The transaction identification may be 
followed by a series of keywords describing the services to be 
performed. If the keyword CANCEL is entered anywhere in the original 
message or subsequent entries , the Master Terminal program is terminated 
immediately. If, while trying to perform a requested service, the 
Master Terminal program discovers that insufficient information has been 
entered, additional information is solicited from the requesting 
terminal. 

The notes below refer to Figure 3—39. 

Notes: 

1. All transaction input under transaction identification CSMT, CSST, 
or CSOT is placed in a TIOA accessible to DFHMTPA. The input is 
scanned to determine whether sufficient keywords are present, to 
fully specify the requested service. Keyword indicators are set in 
the requesting task" s TWA for all keywords entered. Control is 
transferred to the DFHMTP module that will provide the requested 
service. If time or runaway task services are requested, DFHMTPA 
responds to the request. Otherwise , additional information is 
requested from the input terminal as needed. DFHMTPA interfaces 
with Terminal Control for reads and writes and with Storage Control 
to obtain necessary storage, as do all other DFHMTP modules. 

2. DFHMTPB responds to all requests for file, cushion, maximum task, 
negative poll delay, and trace services. The File Control program 

PFHFCP) is used to locate file entries in the File Control Table 
(FCT) . 

3. DFHMTPC responds to all requests for terminal services. 

4. DFHMTPD responds to all requests for open, close, and switch of 
Dump data sets. The Dynamic Open/Close program PFH0CP) is used to 
perform the actual file open or close. 

5. DFHMTPE responds to all requests for Transient Data destinations, 
stall, trigger level, and copy services. The Transient Data 
Control program (DFHTDP) is used to locate destinations in the 
Destination Control Table pCT) . Program Control pFHPCP) services 
are requested by means of a DFHPC TYPE=BLDL macro instruction when 
responding to a NEWCOPY request. 

6. DFHMTPF responds to all requests for line, control unit, terminate 
task, and task list services. Task Control is used to schedule a 
task for termination. 

7. DFHMTPG responds to all requests for transaction and program 
services. 
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8. DFHSTP responds to requests for system shutdown* 
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DYNAMIC OPEN/CLOSE PROGRAM (DFHOCP) 

The Dynamic Open/Close program provides open/close capabilities for Dump 
data sets , Transient Data extrapartition data sets, and File Control 
data base data sets. These facilities may be invoked via the CICS/VS 
Master Terminal program or through the use of DFHOC macro instructions 
in an Assembler— language application program. 

The notes below refer to Figure 3—40. 

Notes: 

1. The DFHOC macro expansion issues a Program Control DFHPC TYPE=LINK 
macro instruction to transfer control to the Dynamic Open/Close 
program. This transfer is transparent to the program issuing the 
DFHOC macro instruction. 

2. Dynamic Open/Close communicates with 

a. Storage Control , in response to all requests for services 

b. Dump Control in response to requests for open, close, or switch 
of Dump data sets 

c. File Control for open or close of data base data sets and 
initialization of indices 

d. Transient Data Control and Program Control for open or close of 
extrapartition data sets 

3. Return to the requesting program is achieved by means of a Program 
Control DFHPC TYPE=RETURN macro instruction, which is transparent 
to the requesting program. 
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PROGRAM MANAGEMENT (DFHPCP) 

The Program Control program pFHPCE) may communicate with any CICS/VS 
function or any user-written application program. In addition , CICS/VS- 
supported high— level language compilers interface with CICS/VS through 
Program Control when they use the macro interface to CICS/VS . 

The notes below refer to Figure 3—41. 

Notes : 

1. Program Control (DFHPC) macro instructions establish fields in the 
TCA to communicate with the Program Control program. 

2. ANS COBOL and PL/I modules that use the macro interface establish 
fields in the TCA and communicate with Program Control en route to 
other required CICS/VS functions. 

3. Any CICS/VS or user— written module may issue a Program Control 
DFHPC TYPE=ABEND macro instruction to request that a task be 
abnormally terminated. 

4. Control is passed to the calling program or the called program, on 
the successful completion of a LINK, XCTL, LOAD, SETXIT, or RETURN 
routine. 

If the called program uses the Command Interface, DFHPCP invokes 
DFHEIP to initialize the Command Interface environment. 

5. Calls from ANS COBOL and PL/I modules using the macro interface may 
result in an exit to any CICS/VS management function. 

6. In the event of an ABEND, control may be passed to a user— specified 
SETX IT module or subroutine. If, however, there is no SETXIT or 
the SETXIT routine (s) returns abnormally , the ABEND continues. In 
this situation DFHACP will be invoked unless Dynamic Transaction 
Backout is required, in which case DFHDBP will be invoked. 
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RECOVERY UTILITY PROGRAM (DFHRUP) 

The Recovery Utility program pFHRUP) is invoked by the System 
Initialization program PFHSIP) in the event of an Emergency Restart. 
The object is to restore the system to the point at which it was when 
the breakdown occurred. Prior to calling DFHRUP , DFHSIP restarts the 
PPT, PCT, TCT, FCT, DCT, and CSA. (This is a cold start.) DFHSIP also 
provides a cold start for Transient Data and Temporary Storage and 
builds their maps to indicate that all tracks or control intervals are 
empty. 

The notes below refer to Figure 3—42. 

Notes ; 

1. During an Emergency Re start, the System Log is automatically 
repositioned after the last record written during the previous 
execution. DFHRUP interfaces with DFHJCP to read this data set 
backwards in order to process System recovery data and to collect 
user recovery backout data. The backward scan is completed when 
the two following conditions are met: 

a. At least one complete Activity Keypoint (delimited by end and 
start of keypoint records) has been retrieved. 

b. The start— of— task record for all Logical Units of Work (LUWs), 
in— flight at system termination, has been reached. 

2. During the backward scan, DFHRUP uses DFHKPP to output to the 
Restart data set the following data: 

a. Records output to the System Log by tasks (LUWs) that did not 
complete processing before the system abnormally terminated 

(in— flight tasks) . These records follow the standard Journal 
Control Record Layout, they have the flag JCSPRRIF set ON in 
field JCSPP1, and they are as follows: 

(1) Records automatically logged by the File Control program 
for data sets with the specification LOG=YES in the FCT. 

(2) Records automatically journaled to the System Log by the 
File Control program (FCP) , according to the user— specif ied 
option in the FCT. 

(3) User— journaled records written to the System Log that were 
output by in— flight tasks. 

Note : User— journaled records with the high— order bit set 
ON in the JTYPEID which are encountered during the backward 
scan, are copied over to the Restart data set regardless of 
the status of the task (in— flight or complete) . If the 
task was completed, the flag JCSPRRIF is OFF in field 
JCSPF1. User— written activity keypoint records should have 
an identification as stated above in order to be accessible 
from the Restart data set. 

b. Initial input and final output message per LUW logged by 
Terminal Control program for terminals with the PROTECT option 
group specified in the PCT. 
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c. All input/output messages for in— flight tasks journaled by the 
Journal Control program as specified in the MSGJRNL=operand in 
the PCT. 

d. All DL/I records logged to the system log that did not complete 
processing before the system abnormally terminated. 

e. All update/replace records entered on the system log by the 
Temporary Storage Control program, as specified in the 
Temporary Storage Table (TST) . 

3. The following tables are created by DFHRUP and later written to the 
Restart data set using DPHKPP. 

a. The Transaction Backout Table (TBO) contains an entry for each 
task in— flight at the time the system abnormally terminated. 

There are two types of entries in the Transaction Backout 
Control Record: 

(1) In— flight tasks. These are tasks that caused records to be 
written to the System Log, but failed to complete before 
system failure. No special start— of— task record is written 
to the System Log, but the first record logged for the task 
is flagged as being star t-of— task. When DFHRUP reads the 
log backwards, and the first record found for a task is one 
other than an end-of-task record, this task is considered 
in— flight. DFHRUP must then find the corresponding start— 
of— task indication to complete the collection of recovery 
backout data for this task. 

(2) Active tasks. These are tasks that completed a LUW and 
started another, but did not cause any records to be 
written to the System Log during this LUW. Thus, during 
DFHRUP processing, a completion of a LUW was found, but no 
physical end-of-task (that is, task DETACH) was found. 

b. The File Backout Table (FBO) contains an entry for each data 
set for which a logged or journaled record was written to the 
Restart data set. 

c. The Message Backout Table (MBO) contains an entry for each 
terminal for which logged or journaled message or message 
resynchronization records were written to the Restart data set. 

d. The DL/I Backout Table PBO) contains an entry for each in- 
flight transaction that was scheduled to alter a DL/I data 
base • 

4. DFHRUP links to the Transient Data Recovery program to create the 
Transient Data bit map. 

5. DFHRUP links to the Temporary Storage Recovery Program, which 
restores the Temporary Storage byte map (to reflect the recoverable 
data records) and reschedules the recoverable ICEs. 

6. DFHRUP interfaces with the Transient Data program to write the 
recovery statistics to the CSSL destination. 
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7. DFHRUP schedules any terminal dependent AID 1 s for Transient Data 
destinations whose trigger level has been reached or had been 
scheduled prior to system abnormal termination, 

8. After building all recovery information on the Restart data set* 
DFHRUP returns control to the System Initialization program which 
passes control to the Transaction Backout program to perform 
recovery processing. 
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STORAGE MANAGEMENT (DFHSCP) 

The Storage Control program (DFHSCP) communicates with other CICS/VS 
functions and user— written application programs to satisfy their storage 
requirements. It makes extensive use of CICS/VS control blocks and 
interfaces with other CICS/VS functions for special processing when 
exception conditions arise. 

The notes below refer to Figure 3—43. 

Notes ; 

1. All CICS/VS and user-written programs communicate their requests 
for Storage Control services through the TCA. The address of 
acquired storage is returned to the requesting program in the TCA. 

2. Storage Control determines the type of request by referring to the 
TCA and returns the address of acquired storage in the TCA. 
Storage associated with a task is chained off the TCA. When 
working with terminal storage , the address of the TCTTE is found in 
the TCA. Storage chained off the TCA can be frozen to aid problem 
determination (for more information refer to the CICS/VS Problem 
Determination Guide) . Requests to free frozen storage are not 
honored. The storage is only freed when the transaction that 
acquired it is terminated. 

3. Storage Control maintains a chain of terminal storage through a 
field in the TCTTE. A count of storage violations associated with 
a terminal is also kept in the TCTTE. Terminal storage chained off 
the TCTTE can also be frozen , as explained in note 2 above. 

4. Storage Control manipulates the short-on— storage (SOS) indicator in 
the CSA. The CSA is used to find the Page Allocation Map (PAM) ai>d 
the suspended Dispatch Control Area pCA) chain. Statistics 
related to storage control are kept in the CSA. 

5. The chain of suspended DCAs is searched by Storage Control when an 
SOS condition occurs. Suspended requests for storage are retried 
whenever storage becomes available for allocation. 

6. When the system is approaching a SOS condition. Storage Control 
searches the Processing Program Table (PPT) for programs residing 
in dynamic storage that are not currently in use. Program storage 
for programs not in use is freed , and the PPT is changed to reflect 
the fact that the program is no longer in storage. 

7. A count of the number of storage violations associated with a 
transaction identification is kept in the Program Control Table 

(PCT) . 

8. The Page Allocation Map (PAM) contains dynamic values relating to 
the allocating and freeing of storage. It also contains a map of 
all pages in the dynamic storage area that indicates the current 
disposition of each page. 
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9. If an unconditional request for storage cannot be satis fied. 
Storage Control issues a DPHKC TYPE=SUSPEND macro instruction , 
which is a Task Control macro instruction used only by CICS/VS 
management modules. The requesting task is suspended until the 
storage request can be satisfied, at which time a DPHKC TYPE=RESUME 
macro instruction (also used only by CICS/VS management modules) is 
issued to request Task Control to start the task. 

If an invalid request is issued, or an address specified in a 
request is invalid. Storage Control issues a Program Control DFHPC 
TYPE=ABEND macro instruction to request the Program Control program 
to terminate the task. 

10. If the Storage Control program program-checks while attempting to 
service a DFHSC TYPE=GETMAIN or DFHSC TYPE=FREEMAIN request, the 
System Recovery program intercepts and passes control to the 
Storage Control Recovery routine. 

11. If Storage Control detects a storage violation while servicing a 
DFHSC TYPE=GETMAIN or DFHSC TYPE=FREEMAIN request, control is 
passed to the Storage Control Recovery routine. The Storage 
Control Recovery routine optionally generates a formatted dump, 
then fixes the storage problem and returns to Storage Control so 
that the request that revealed the problem can be retried. 

12. Storage items with task— related lifetime are normally put on a 
chain suspended from TCASCCA, so that they can be freed 
automatically at task termination or abend. If the task is 
designated ■primed' in the PCT then these task— related areas are 
allocated contiguously from within the primed allocation (PRA) • 
PRAs are normal storage areas (CLASS=SHARED) which are allocated, 
one per primed task, as needed, as tasks of a particular type 
become active. When a primed task terminates, its PRA is not 
returned to the common pool but placed instead on a chain of free 
PRAs hanging off the PCT, to be reused when a new task of the same 
type is attached. Free PRAs are only returned to the common pool 
at short-on— storage. 
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SYSTEM INITIALIZATION PROGRAM (DFHSIP) 

The System Initialization program (DFHSIP) is a non— real— time component 
of CICS/VS and is resident only long enough to start up CICS/VS. It is 
responsible for readying CICS/VS for communication and inquiry by the 
user. 

System initialization provides three classes of restart which are: 

COLD 

Complete reinitialization of CICS/VS and system data sets 
without regard for any previous system activity. 



WARM 

This optional restart process reinitializes CICS/VS to the 
status that existed at the previous system termination. This 
type of restart assumes that the previous termination was 
normal , that the system was quiesced prior to termination , and 
that a warm keypoint was taken during that termination of 
CICS/VS. 

EMERGENCY 

This optional restart process restores the system using 
information recorded during the previous execution of the 
system to a predefined point which existed prior to the 
interruption. 

Selection of startup options can be made in the System Initialization 
Table specification (COLD or WARM) or in the override parameters (COLD, 
WARM, or EMER) . 



SYSTEM INITIALIZATION OVERLAYS 

User— written overlays can be added to the System Initialization program; 
however, they must conform to CICS/VS naming conventions. All system 
initialization overlays are seven— character names in the format, 
DFHSIxy, where x is a letter from A to Z and y is a number from 1 to 9. 
CICS/VS development reserves suffixes that end in 1 (Al, Bl, ...Zl) . 
User overlays may use any other two-character suffix. 

Overlay processing in system initialization is driven from the System 
Initialization Table SIMODS=parameter . User overlays can be inserted at 
any point in system initialization, but the sequence of CICS/VS overlays 
must not be disturbed. CICS/VS is responsible for common subroutine and 
overlay linkage (assuming that these routines are not modified) , and 
normal system initialization functions. 

A list of System Initialization subroutines, and the conventions for 
calling them, is in the CICS/VS System Programmer's Reference Manual . 
The following areas are always addressable to System Initialization 
overlays at entry and must be addressable at exit: 
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Register Area 

13 Common System Area (CSA) 

5 (SIPPLAR) System Initialization Table (SIT) 
4 (SIPBAR1) System Initialization Common Area (SIPCOM) 
System Initialization Common Routines 

In addition , at entry to an overlay , registers 3 (SIPBAR) and 
9 (SIPBAR2) contain the entry point address of the overlay and that 
address plus 4096 , respectively , for addressability purposes. 

The following fullword fields are supplied as parameter-passing 
fields between user overlays of System Initialization. These fields are 
not used by CICS/VS overlays. 

SIPARMP6 
SIPARMP7 

The notes below refer to Figure 3—44. 

Notes : 

1. System Initialization receives control from the OS/VS Initiator. 
Parameters may be passed to System Initialization through the PARM 
operand of the EXEC statement by which it is invoked. (These 
parameters are documented in the CICS/VS System Programmer's 
Reference Manual .) 

2. The Restart Data Set is a DAM file, used by the Keypoint program 

(DFHKPP) to save certain system information at system termination 
time so that a warm start or emergency restart can be initiated 
later. System Initialization can warm start the following CICS/VS 
control information: 

Program Control Table (PCT) 

Processing Program Table (PPT) 

Terminal Entries (nonswitched) 

File Control Table (FCT) 

Selected areas from the Common System Area (CSA) 

Destination Control Table (DCT) Intrapartition Entries 

Transient Data Intrapartition space allocation bit map 

Identifications and Relative Byte Addresses for Temporary Storage 

auxiliary destinations/queues 
Temporary Storage space allocation bit map 
Interval Control Elements (ICE) and Automatic Initiate 

Descriptors (AID) 
Batch Control Areas (BCA) and Write Request Elements (WRE) for ATP 

3. When emergency restart is invoked via the START=EMER keyword , the 
System Initialization program will take the following action: 

a. Reposition the system log. 

b. COLD start the PPT, PCT, TCT, FCT, DCT, CSA, Transient data bit 
map, and the Temporary Storage maps. 

c. Link to the Recovery Utility program which reads the system log 
and builds recovery data and tables which are written to the 
Restart data set. 
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d. Link to the Transaction Backout program which reads the 

recovery data and backs out the effects of transactions in 
process prior to system termination. 

4. The System Initialization program does the following: 

a. Builds the CICS/VS nucleus (for High-Performance Option (HPO) 
certain modules are loaded in protected storage and control 
blocks required for Service Request Block (SRB) processing are 
constructed in the System Queue Area (SQA) • Authorization is 
relinquished after this has been completed) . 

b. Initializes data sets 

c. Opens system and user data sets (for ICIP data sets page fixed 
buffers are allocated and in-core indexes are constructed if 
specified in the File Control Table (FCT) ) . 

d. Constructs and initializes tables. 

e. Builds the CICS/VS dynamic storage pool. 

5. The CICS/VS Program Library is accessed by means of BSAM READS to 
build the CICS/VS nucleus , load tables , load resident application 
programs , and initialize the Processing Program Table (PPT) • 

6. Interface to CICS/VS nucleus modules is required during post- 
initialization processing , both by System Initialization and by 
application programs running at this time. System Initialization 
always interfaces with Storage Control , Task Control , Interval 
Control , and Program Control and may interface with Temporary 
Storage Control, Transient Data Control, File Control, and System 
Recovery. All interface to CICS/VS nucleus modules is done under 
Terminal Control's Task Control Area (TCA) , which is "borrowed" 
temporarily as a communication vehicle. 

7. System Initialization first passes control to the dummy CSA module 
via an OS/VS XCTL. This frees the storage area occupied by System 
Initialization for use by OS/VS. The dummy CSA module branches to 
the CICS/VS Terminal Control program, which begins polling. 
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SYNC POINT PROGRAM (DFHSPP) 

The Sync Point program (DFHSPP) is one of the modules within CICS/OS/VS 
enabling the user to participate in recovery/restart processing. The 
recovery/restart features are available as an option to CICS/OS/VS 
users. DFHSPP is invoked by the Task Control program (DFHKCP) whenever 
a task is detached (provided DFHSPP has some work to do — DFHKCP checks 
first) . It can be invoked by an application program. Generally, DFHSPP 
services need be invoked by application programs only when tasks are 
long— running tasks. In such a case, it is used to divide the task into 
shorter units, referred to as logical units of work (LUWs) , which better 
fit recovery requirements. 

Deferred Work Elements pWEs) are created by CICS/VS management 
modules, chained off the task's TCA through the TCADWLBA field, and 
represent deferred processing to be done upon completion of a logical 
unit of work or changes to be backed out if the LUW is abandoned by the 
user. The module that creates a DWE can insert an entry address of a 
DWE processor in that DWE. Control is passed to this DWE processor at 
the end of the task or LUW by the Sync Point program. 

Three types of DWEs exist: 

• work is to be done (or previous work backed out) 

• data is to be logged 

• some work is to be done and data is to be logged 

A DWE processor pointed to by a work-only DWE can create another DWE, 
indicating that logging is required. 

The Sync Point program examines the DWE chain in the following way: 

• If DFHPC TYPE=ROLLBACK was specified, DFHDBP is invoked to scan the 
DWE chain and dynamic log, and to back out changes as required. 

• Scan the chain and pass control to a DWE processor if work is to be 
done only . 

• Scan the chain and log data as required. 

• Scan the chain and pass control to the DWE processor required for a 
DWE requiring both work and logging (the logging was completed on 
the previous scan) . 

A DWE indicating both work and logging to be done can be looked upon 
as saying: 

The data that is being written to the System Log represents the 
intention of the DWE processor. If the system terminates 
abnormally before the DWE processor has finished its work, the 
System Log tells CICS/VS modules involved in recovery what to do 
during emergency restart. 
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The notes below refer to Figure 3—45. 
Notes ; 

1. DFHSPP is entered from either the Task Control program or an 
application program. 

2. For a rollback request, DWEs and dynamically logged records from 
the current LUW are dealt with by the dynamic backout program 

pFHDBP) . 

3. The DWE chain is scanned, and control is passed to DWE processors. 
Upon return from a DWE processor, the DWE is freed. 

4. The DWE chain is scanned, and data is logged via Journal Control. 

5. An end-of— task record is written to the System Log via Journal 
Control. 

6. Scan intersystem TCTTEs issuing ■REQUEST COMMIT* and ■COMMIT* 
commands (via DFHTC CTYPE=PREPARE and CTYPE=SPR respectively) to 
synchronize associated work on remote systems. 

7. The DWE chain is scanned, and control is passed to DWE processors. 
Upon return from a DWE processor, the DWE is freed. 

8. All resources enqueued upon through the Task Control DFHKC TYPE=ENQ 
facility are dequeued. 

9. Reinitialize the dynamic log ready for the next logical unit of 
work. 
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SYSTEM RECOVERY MANAGEMENT (DFHSRP) 

The System Recovery program (DFHSRP) is a generalized abnormal 
termination handler that receives control from the operating system when 
a program check or ABEND condition is recognized. It provides program 
interrupt logic for the capture and recovery of program-check interrupts 
and system ABENDS. A program check interrupt normally causes DFHSRP to 
invoke a DFHPC ABEND of the task in which it arose. A system ABEND 
condition may be handled by user code or IBM— supplied code, after which 
CICS/VS will attempt to continue to run. 

The notes below refer to Figure 3—46. 

Notes ; 

1. The System Recovery Program is given control as a SPIE exit. 

2. If the System Recovery program determines that a program check or 
ABEND condition has occurred during an error condition, or that the 
current task is a system task, it issues a message, forces a dump, 
then terminates CICS/VS. Otherwise, it returns control to DFHPCP, 
via the operating system, to terminate one task with abend code 
ASRA. 

3. Invocation of the System Recovery program as a STAE exit (0S/VS1 
and 0S/VS2 Release 1) or an ESTAE exit (0S/VS2 Release 2 onwards) 
causes it to search the System Recovery Table for an entry 
containing the actual system AB code. 

4. If a match is found, the routine specified is invoked or the named 
program LINKed to. The routine may be that supplied by IBM as part 
of DFHSRT. 

5. Following the recovery logic, a DFHPC TYPE=ABEND macro instruction 
is issued to abnormally terminate the offending task. If recovery 
has been achieved successfully, execution of CICS/VS can continue. 
If a recovery cannot be effected, or if no recovery was attempted, 
a keypoint is taken (optionally) and CICS/VS is terminated. 

For Systems with High— Performance Option (HPO) the Service Request 
Block (SRB) in the System Queue Area (SQA) is freed by using a CICS 
SVC PFHCSVC) . 
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SYSTEM TERMINATION PROGRAM (DFHSTP) 

The purpose of System Termination (DFHSTP) is to provide for an orderly 
shutdown of CICS/VS. It is activated by the Master Terminal program 
(DFHMTPA) when that program is responding to a shutdown request entered 
by the CICS/VS master terminal operator. 

The notes below refer to Figure 3—47. 

Notes: 

1. The Master Terminal program (DFHMTPA) transfers control to DFHSTP 
by means of a Program Control DFHPC TYPE=XCTL macro instruction 
when a CSMT SHUTDOWN request has been entered by the CICS/VS master 
terminal operator. 

2. The Transaction List Table (XLT) and Program List Table (PLT) are 
loaded via Program Control from the CICS/VS Program Library 

(DFHRPL) . 

3. Terminal activity is quiesced via an indicator in the CSA. This 
tells Terminal Control not to attach any transactions other than 
those specified in the XLT. The termination task logically 
disconnects itself from the physical terminal to allow other 
activity on that terminal. 

4. The termination task allows all other tasks (except any journal 
tasks) to complete before linking to the first program specified in 
the first portion of the PLT. 

5. When all programs in the first portion of the PLT have executed , 
terminal activity is quiesced completely via an indicator in the 
CSA. The ICE, AID, and BCA chains are broken (addresses saved in 
the TWA) , and the programs specified in the second portion of the 
PLT are executed. 

6 . CICS/VS-DL/I Interface and Journal Control (subtasks) are 
terminated; Temporary Storage Control pFHTSP) is requested to 
output its buffer; statistics are taken by means of a link to the 
System Statistics program pFHSTKQ ; and a keypoint is taken by the 
Keypoint program pFHKPP) . 

7. Control is returned to the operating system, with or without a dump 

(depending upon the parameters specified in the shutdown request 
causing termination) . 

For Systems with High— Performance Option (HPO) the Service Request 
Block (SRB) in the System Queue Area (SQA) is freed by using a CICS 
SVC (DFHCSVC) . 

If an immediate shutdown is requested, no load of tables, terminal 
quiescing, or execution or programs specified in the PLT (see notes 
2, 3, 4, and 5) occurs. 
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TERMINAL MANAGEMENT (DFHTCP, DFHZCP) 

The Terminal Management function consists of seven CICS control modules , 
DFHTCP, DFHZCP, DFHZCX, DFHZCA, DFHZCB, DFHZCY, and DFHZCZ . DFHZCP and 
DFHZCX provide the common functions (VTAM and non-VTAM) while DFHZCA, 
DFHZCB, DFHZCY, and DFHZCZ provide VTAM only support. DFHTCP provides 
the non— VTAM support. The Terminal Management function communicates 
with user— written application programs, CICS/VS System Management 
f unctions (Task Control , Storage Control) , CICS/VS Application Services 
(Basic Mapping Support) , System Reliability functions (abnormal 
condition handling) , and with operating system access methods (BTAM, 
QAM, SAM, or VTAM) . Requests for Terminal Management functions made by 
application programs, BMS, or Task Control, are processed through the 
common interface of DFHZCP. Generally Terminal Management requests for 
other CICS/VS or operating system functions are issued by any one of the 
six DFHZC modules (VTAM support) or by DFHTCP, depending upon the 
terminal being serviced • 

The notes below refer to Figure 3—48. 

Notes: 



Common Interface 

1. When a Terminal Management (DFHTC) macro instruction is issued by 
an application program or by the Basic Mapping Support program 

(BMS) , request bits are set in the user's TCA (Transaction Control 
Area) and control is passed to the common interface (VTAM, non- 
VTAM) routines of DFHZCP. 

2. If the DFHTC macro instruction includes a WAIT request and the 
IMMED option is not in effect, control is passed to Task Control to 
place the requesting program (task) in a suspended state. If a 
WAIT request is not included, control is returned to the requesting 
task • 

3. The task's TCA contains either a field named TCAFCAAA (Facility 
Control Area Associated Address) a pointer to the terminal with 
which the task is associated, or a field named TCATPTA in which the 
address of the TCTTE to be used may be passed. 

4. Task Control dispatches Terminal Management through the common 
interface for one of the following reasons: 

a. The system partition/region exit time interval (specified in 
the ICV operand of the DFHS IT macro instruction by which the 
System Initialization Table is generated) has elapsed. 

b. The Terminal Management event initiated by the DFHTC macro 
instruction has been posted complete (non-VTAM ECB posted or 
exit scheduled in the case of VTAM) . 

c. Neither a nor b, above, has occurred, but one second has 
elapsed since the last time Terminal Management was dispatched 
with a pending request to be serviced. 
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5. Terminal Management through its common interface , requests Task 
Control to perform a CICS/VS WAIT when Terminal Management has 
processed through the terminal network and has no further work that 
it can do. 



Access Method Dependent Interface 

6. Terminal Management communicates with Storage Management by means 
of DFHSC TYPE=GETMAIN or FREEMAIN macro instructions to obtain and 
release storage as follows: 

Non-VTAM 

DFHTCP issues DFHSC macro instructions to obtain and release 
terminal and line storage . 

VTAM 

Any one of the six DFHZC modules issues DFHSC macro 
instructions to obtain and release terminal, line (line class 
is used for the Receive— Any I/O areas) , and RPL storage. 

7. Terminal Management communicates with Task Management by means of 
the DFHK.C macro instruction. The macro instruction is issued by 
any one of the seven CICS control modules, depending upon the 
terminal being serviced. Terminal Management may request Task 
Management to perform one of the following: 

a. attach a task upon receipt of a transaction identification from 
a terminal 

b. respond to a DFHKC TYPE=AVAIL request (a Task Control macro 
instruction documented only for system programming) when a 
time— initiated task is indicated for a terminal and that 
facility is available* 

8. Terminal Control communicates with operating system access methods 
in either of the following ways, depending upon the terminal being 
serviced: 

Non-VTAM (DFHTCP) 

DFHTCP builds access method requests in the DECB, which is part 
of the TCTLE. The DECB portion of the TCTLE is passed to the 
access method by Terminal Management to request a service of 
that access method. The access method notifies Terminal 
Management of the completion of the service through the DECB. 
Terminal Management analyzes the contents of the DECB upon 
completion to determine the type of completion and to check for 
error information. 
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VTAM (DFHZCP) 

DFHZCP builds VTAM request information in the RPL which is then 
passed to VTAM for servicing. VTAM notifies Terminal 
Management of completion by placing completion information in 
the RPL. DFHZCP analyzes the contents of the RPL upon 
completion to determine the type of completion and the presence 
of error information. Communication with VTAM also occurs by 
VTAM scheduling exits , for example, LOGON or LOSTERM. VTAM 
passes parameter lists and does not always use the RPL. 

When authorized path VTAM has been generated, communication 
with VTAM also occurs in SRB mode (using DFHZHPRX) ; DFHZCP uses 
the RPL with an extension to communicate with its SRB mode 
code. When an SRB mode RPL request is complete, DFHZCP will 
call the relevant exit of post the ECB, as indicated by the RPL 
extension. 

9. Terminal Management communicates with the CICS/VS abnormal 
condition functions in either of the following ways, depending upon 
the terminal being serviced: 

Non-VTAM 

DFHTCP attaches the Terminal Abnormal Condition program (TACP) 
and passes a Terminal Abnormal Condition line entry (TACLE) 
when an error occurs. The TACLE is a copy of the DECB portion 
of the TCTLE and contains all information necessary for proper 
evaluation of the error, plus special action indicators that 
can be manipulated to alter the error correction procedure. 
After the DECB has been analyzed, it is passed to the user's 
error recovery program (DFHTEP) . 

VTAM 

DFHZCA attaches the Node Abnormal Condition Program (NACP) when 
an error occurs. DFHNACP does some preliminary error 
processing and then passes control to the user's Node Error 
Program (DFHNEP) . Upon the completion of the user's error 
processing, control is returned to DFHNACP. 

10. Terminal Management executes either under the user's TCA or its own 
TCA as follows: 

User's TCA 

a. During the application program interface 

b. During the interface with Basic Mapping Support 

c. While performing non-chained VTAM terminal requests 
Terminal Control's TCA 

a. When Task Control dispatches Terminal Control 

b. When Terminal Control issues a request to Task Control pFHKC) 

c. When Terminal Control issues a request to Storage Control 

(DFHSC) 
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d. While performing non— VTAM terminal I/O or chained VTAM terminal 
I/O 

Since many devices are supported by CICS/VS Terminal Management, the 
number of modules required to provide this support is significant. 
Figure 3—49 through 3—53 give an overview of the interrelationships and 
functions within Terminal Management. 
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Figure 3-53. Terminal Management General Flow through Device-dependent 
Modules 
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TRANSACTION BACKOUT PROGRAM (DFHTBP) 

The Transaction Backout program is invoked by the System Initialization 
program in the event of an emergency restart. It reads recovery data 
from the restart data set, previously written there by the Recovery 
Utility program. It passes control to user exits and constructs the 
Temporary Storage message cache and resend slot, which are used in 
message resynchronization and message representation. 

The following notes refer to Figure 3—54. 

Notes : 

■1. DFHTBP is invoked by DFHSIP in an emergency restart , via a 
conditional program control link. 

2. DFHTBP reads data from the restart data set. This data comprises 
the Transaction Backout Table , File Backout Table , Message Backout 
Table , DL/I Backout Table, and transaction backout data. 

3. DFHTBP saves messages for inflight tasks and unresponded— to output 
messages in a Temporary Storage user message cache and resend slot. 

4. Records are read via requests to the Keypoint program. 

5. The Storage Control program is invoked to acquire and free storage 
areas. 

6. User— written exits , if present, are given control. 

7. The Transient Data program is used to write messages, which also go 
to the operator console. 

8. The File Control program is invoked to backout the effects that 
inflight tasks had on data bases under its control. 

9. DFHTBP restores sequence numbers iii VTAM terminal entries 

(including entries for terminals involved in inter system 
communication) . If in doubt when inter system links failed, the 
description of the original failure is reconstructed fcs a list of 
message inserts) and chained of f the terminal control table entry 
for use during session recovery. 
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Figure 3-54. Transaction Backout Program Interfaces 
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TRANSIENT DATA MANAGEMENT (DFHTDP) 

The Transient Data Control program (DFHTDP) communicates directly with 
three other functions of the CICS/VS System Management component. These 
are Task Management, Storage Management, and Program Management (the 
Task Control program, Storage Control program, and Program Control 
program, respectively) . The application program communicates with 
DFHTDP through use of DFHTD macro instructions . 

The notes below refer to Figure 3—55. 

Notes : 



Intrapartition 

1. An application program request for Transient Data services causes a 
request code to be set in TCATDTR, signifying GET, PUT, PURGE, 
LOCATE. The destination identification is placed in TCATDDI. 
Control is passed to the Transient Data Control program. 

2. The field TDDCTDID is used to search the DCT for the destination 
requested. 

3. If an invalid request for Transient Data services is received, 
control is passed to Program Control to terminate the task issuing 
the request. 

4. Task control is used to: 

a. lock a DCT entry, to prevent simultaneous update of the entry 

(BDAM) . Task control is used to lock the DCT, to obtain 
control of the entry, and the access method control blocks 
(VSAM) . 

b. (with logical recovery) acquire ownership of an end of a queue 
until the end of the LUW. 

c. wait for access to the disk map, to prevent simultaneous 
update. 

d. wait for I/O completion. 

5. Transient Data Control uses Storage Control to obtain storage for 
an intrapartition input area, containing a DECB. 

6. If logical recovery is supported by DFHTDP and requested for the 
destination, storage control or RPL creates a Deferred Work Element 

(DWE) for each logically recoverable destination when it is 
accessed. 

7. Transient Data passes control and the address of the DECB to the 
read /write routines of the access methods to perform data set I/O. 

8. The DECB or RPL status bytes are tested for event completion and 
I/O errors. 
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| Figure 3-55. Transient Data Control Program Interfaces for 
I Intrapartition 

9. Transient Data Control obtains intrapartition disk map information 
from the main storage area addressed through the Destination 
Control Table (E)CT) . 
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10. If an automatically initiated task is to be associated with a 
terminal , task control is used to schedule an AID. If an 
automatically initiated task is not to be associated with a 
terminal , task control is used to attach the task. 

11. For physically recoverable destinations , the Journal Control 
program is used to log the DCT entry. 

12 . At the normal end of a logical unit of work (LUW) , defined by 
either an application program DFHSP TYPE=USER request or by Task 
Control at task termination , the CICS/VS Sync Point program gives 
control to the DWE processor of the Transient Data Control program. 
This DWE processor performs the logical update of the DCT entry 
and/or the disk map. A separate DWE is used for GET, PUT # and 
PURGE for each logically recoverable destination accessed by the 
task. The CICS/VS Sync Point program or the Dynamic Backout 
program (if dynamic transaction backout required) presents each DWE 
separately to the DFHTDP DWE processor. 

13. For logically recoverable pWE processor) destinations, the Journal 
Control program is used to log the DCT entry. 

14. If the task abends, DFHDBP invokes the DWE processor to perform 
Transient Data backout of the DCT and disk map when the Dynamic 
Backout program encounters a Transient Data DWE. 

15. The DWE processor (part of DFHTDP) uses common routines in DFHTDP. 
The notes below refer to Figure 3—56. 



Extr apart ition 

1. An application program request for Transient Data services causes a 
request code to be set in TCATDTR, signifying GET, PUT, FEOV, or 
LOCATE. The destination identification is placed in TCATDDI. 
Control is passed to the Transient Data Control program. 

2. The DCT is searched by field TDDCTDID for the destination 
requested. 

3. If an invalid request for Transient Data services is received, 
control is passed to Program Control to terminate the task issuing 
the request. 

4. The DCB is checked for OPEN/CLOSE. Transient Data passes control 
and the address of the DCB to the read/write routines of the access 
methods to perform data set I/O. 

5. The Task Control program is used to enter a dispatchable WAIT, 
before returning to application program. 
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TAPE END OF FILE (DFHTEOF) — 6EH2 

This program is run as a standalone program or attached by the System 
Initialization program pFHSIP) during the initialization phase of an 
emergency restart. It performs the following functions: 

• Verification of tape volumes 

• Verification of log records collected as part of CICS/VS run prior 
to system failure 

• Writing end of file 

The log volume is opened and verified. If an incorrect volume is 
mounted, volume swapping takes place until eithei the correct volume is 
mounted or swapping is discontinued without finding the correct volume. 
In the latter case, the program is terminated. 

As the file is processed, the label records of blocks on the file are 
checked to verify that they are in ascending sequence. Verification of 
these label records is performed as follows: 

• Creation date equal to or greater than that specified on the volume 
label. 

• Volume sequence number equal to or greater than that specified on 
the volume label. 

• Run start time equal to that specified on the volume label. 

The end of valid log data is assumed under either of two conditions: 

• Negative verification occurs during validation of label records. 

• Two consecutive I/O errors are encountered. 

If either of these conditions occurs, the tape volume is backspaced 
over the appropriate number of records and an end-of— file record is 
written. 
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TRACE MANAGEMENT (DFHTRP) 



The Trace Control program pFHTRP) is designed as a debugging aid for 
the programmer. It provides an easy and convenient means of tracing 
system activity. (The content and format of entries in the Trace Table 
are explained in detail in the CICS/VS Application Programmer's 
Reference Manual .) 

— . T * 

The notes below refer to Figure 3—57. 
Notes: 



1. 



2. 



The application program can issue Trace Control (DFHTR) macro 
instructions to turn on/off the trace facility for specific types 
of entries , to turn on/of f or close the auxiliary trace function, 
or to cause a specified entry to be logged into the Trace Table if 
the trace facility is on for that type of entry. 

Standard entries may be recorded in the Trace Table whenever 
CICS/VS macro instructions of the following types are issued by an 
application program or a CICS/VS system program: 



a. 


DFHKC 


b. 


DFHSC 


c. 


DFHPC 


d. 


DFHIC 


e. 


DFHDC 


f . 


DFHFC 


g- 


DFHTD 



h. DFHTS 



DFHJC 



(Task Control) j • 
(Storage Control) k« 
(Program Control) 1. 
(Interval Control) m. 
pump Control) n, 
(File Control) 
(Transient Data- 

Control) 
(Temporary Storage 

Control) p. 

(Journal Control) g. 



DFHBMS (Basic Mapping Support) 
DFHBIF (Built-in Functions) 
CICS/VS-DL/1 Interface 
DFHDI (Data Interchange) 
DFHSP (Sync Point) 



o. DFHZC (VTAM Terminals) 



DFHXFP (Online Transformer Flow) 
DFHISP (ISC Request Shipping) 



3. 



These standard entries in the Trace Table are generated by special 
DFHTRACE macro instructions included in the CICS/VS management 
modules that provide these macro capabilities , or by using the 
DFHLFM macro. 

Control is returned to the requesting program. Bit manipulation 
for on/off requests is performed in the application program itself 
(the inserted macro expansion) in the case of an Assembler— language 
program, or in Program Control in the case of an ANS COBOL or PL/I 
program. 

When the Auxiliary Trace facility is active, trace table entries 
along with a time storage value are written to the Auxiliary Trace 
data set (DFHAUXTR) which can be printed offline using the Trace 
Utility Program pFHTUP) . 
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TEMPORARY STORAGE MANAGEMENT (DFHTSP) 

The Temporary Storage Control program (DFHTSP) communicates directly 
with two other functions of the CICS/VS System Management component. 
These are Storage Management and Task Management (the Storage Control 
program and Task Control program, respectively) . This interface is 
achieved through use of the application program^ (task's) TCA. 

The notes below refer to Figure 3— 58. 

Notes : 

1. An application program requests Temporary Storage services by means 
of a DFHTS macro instruction. 

2. Temporary Storage Control communicates with Storage Control to 
request Temporary Storage unit table extensions. Temporary Storage 
Group Identifications (TSGIDs) , and main storage for DFHTS TYPE=PUT 
or TYPE=PUTQ requests to main storage and DFHTS TYPE=GET or 
TYPE=GETQ requests with no address supplied. 

3. Temporary Storage Control communicates with Task Control to perform 
a CICS/VS WAIT pending completion of I/O (and suspending and 
resuming tasks) • 

4. Temporary Storage Control interfaces indirectly with VSAM (the 
access method) through the Temporary Storage Bit Map. A Request 
Parameter List (RPL) points to fields in this control block which 
are passed to VSAM. 

5. VSAM communicates with Temporary Storage Control (through Task 
Control) when the I/O is complete. 

6. Temporary Storage Control analyzes the contents of the RPL to 
determine the type of completion and any error information. 
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LIFO STORAGE ROUTINES (DFHLFA, DFHLFO) 

The LIFO storage routines (DFHLFA and DFHLFO) provide LIFO storage space 
to be used as work space and to save registers for those CICS/VS modules 
invoked by the task. When such a module is invoked , a portion of LIFO 
storage space (called a LIFO stack entry) is allocated by DFHLFA as a 
data area for use by that particular module. If DFHLFA is unable to 
allocate the requested length of LIFO storage, DFHLFO is invoked to 
obtain another segment. The module to which LIFO storage is allocated 
may in turn link to another CICS/VS module, in which case a further 
stack entry is allocated. 

Stacking continues in this way until a linked— to module completes 
execution. At this time the LIFO stack entry for that module is 
released, and the stack entries for the other uncompleted modules remain 
intact. 

The notes below refer to Figure 3—59. 

Notes ; 

1. Invocation of a CICS/VS module is made by a CICS/VS application 
program. 

2. When the DFHLFM macro is executed from within a CICS/VS module, a 
parameter list is passed to the LIFO prologue routine (DFHLFA in 
module DFHCSA) . DFHLFA attempts to allocate the requested length 
of LIFO storage from the current LIFO segment. 

3. If DFHLFA is unable to allocate sufficient storage, the LIFO 
overflow routine DFHLFO is invoked to obtain another segment. 

4. DFHLFO invokes storage control (DFHSCP) to obtain storage for the 
new LIFO segment and then returns control to DFHLFA. 

5. DFHLFA optionally makes a trace entry for the invoking CICS/VS 
module . 

6 . DFHLFA returns control to the invoking CICS/VS module • 
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CSOT 

master terminal program pFHMTP) 894 
CSSL (control system system log) 12 
CSST 

master terminal program (DFHMTP) 894 
CTYPE command request (HIPO) 169 
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DFHLFM macro 

LIFO 940 

trace management (DFHTRP) 936 
DFHLFO 430,940 
DFHMCP 808 
DFHMGP 302 
DFHMIR 781,876 

ISC handling of EXEC request 859 
DFHMSP 635,890 
DFHMTP 580,894 
DFHMTPA 894 
DFHMTPB 894 
DFHMTPC 894 
DFHMTPD 894 
DFHMTPE 894 
DFHMTPF 894 
DFHMTPG 894 
DFHM32 695,812 
DFHOCP 624,896 
DFHPBP 814 
DFHPCP 80,898 
DFHRD1 615,791 
DFHRD2 615,791 
DFHRLR 816 
DFHRSD 470 
DFHRUP 529,900 
DFHSCP 56,903 
DFHSIA 482 
DFHSIB1 483 
DFHSIC1 484 
DFHSID1 485 
DFHSIE1 4 86 
DFHSIF1 4 87 
DFHSIG1 488 
DFHSIH1 489 
DFHSII1 491 
DFHSIJ1 493 
DFHSIP 479,906 
DFHSPP 423,910 
DFHSRP 445,914 
DFHSTP 500,916 
DFHTBP 549,928 
DFHTCP 112,918 
DFHTDP 361,930 
DFHTEOF 522,934 
DFHTOM 701 
DFHTPP 699,818 
DFHTPQ 705,820 
DFHTPR 709,822 
DFHTPS 826 
DFHTRACE macro 

trace management (DFHTRP) 936 
DFHTRP 431,936 
DFHTS macro 

temporary storage management 
pFHTSP) 938 
DFHTSP 376,938 
DFHWT1 615,794 
DFHWT2 615,794 
DFHXFP 776,872 

ISC handling of EXEC request 859 
DFHZACT 139 
DFHZAIT 133 
DFHZARQ 160 
DFHZASX 279 
DFHZATI 221 
DFHZATT 155 
DFHZCA 918 
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DFHZCB 


918 




DFHZCLS 


214 




DFHZCLX 


273 




DFHZCP 


112,918 




DFHZCRQ 


169 




DFHZCX 


856,918 




DFHZCY 


918 




DFHZCZ 


918 




DFHZDET 


183 




DFHZDSP 


131 




DFHZDWE 


218 




DFHZEMW 


230 




DFHZFRE 


202 




DFHZGET 


202 




DFHZHPRX 


289 




DFHZHPSR 


260 




DFHZISP 


768,870 




ALLOCATE routine 


870 


FREE 


routine 870 




POINT 


routine 870 




DFHZLEX 


281 




DFHZLOC 


203 




DFHZLRP 


253 




DFHZLTX 


277 




DFHZNAC 


294 




DFHZNEP 


257 




DFHZNSP 


292 




DFHZOPA 


146 




DFHZOPN 


145 




DFHZOPX 


264 




DFHZQUE 


225 




DFHZRAQ 


258 




DFHZRAR 


259 




DFHZRLG 


303 




DFHZRPX 


274 




DFHZRRX 


278 




DFHZRSP 


304 




DFHZRST 


213 




DFHZRSY 


215 




DFHZRVS 


173 




DFHZRVX 


267 




DFHZSAX 


270 




DFHZSCX 


272 




DFHZSDA 


172 




DFHZSDR 


177 




DFHZSDS 


189 




DFHZSDX 


28 6 




DFHZSES 


149 




DFHZSEX 


265 




DFHZSHU 


147 




DFHZSIM 


144 




DFHZSKR 


180 




DFHZSLS 


134 




DFHZ SSX 


283. 




DFHZSUP 


152 




DFHZSYX 


28 4 




DFHZTAX 


288 




DFHZTPX 


282 




DFHZUCT 


252 




DFH99BC 


828 




DFH99CC 


828 




DFH99DY 


828 




DFH99FP 


828 




DFH99GI 


828 




DFH99KC 


828 




DFH99KO 


828 




DFH99KR 


829 




DFH99LK 


828 





DFH99M 828 




DFH99ML 829 




DFH99MP 829 




DFH99MT 828 




DFH99RP. 829 




DFH99T 828 




DFH99TK 828 




DFH99TX 829 




direct access 




deblocking 


(HIPO) 


storage 8 




direct access 


method 
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(DAM) 3 

directory information, get (HIPO) 95 
DISCONNECT function processor 

interregion communication (HIPO) 648 
DISCONNECT service 851 
disk map 

transient data management (DFHTDP) 931 
dispatch control area (DCA) 

storage control program (DFHSCP) 903 
task control program pFHKCP) 883 
dispatcher 

partition exit (HIPO) 38 
dispatcher (HIPO) 131 
dispose of acquired data (extrapartition) 

(HIPO) 374 
DL/I 

backout 

dynamic backout program 
PFHDBP) 830 
initialization 

IMS initialization module 838 
interface 836 

CALL macro instruction 836 

CALLDLI macro instruction 836 

common analysis (HIPO) 739 

file control macro instruction 836 

file control program 836 

HIPOs 738 

I/O request (HIPO) 741 

IMS/VS service modules 836 

initialization (DFHDLQ) 838 

initialization (HIPO) 745 

journal control program 836 

master terminal program 

PFHMTP) 836 
open/close program pFHOCP) 836 
parameter pFHDLPDS) 838 
program control program 836 
program specification block 

(PSB) 836 
remote request handler (HIPO) 744 
remote scheduler (HIPO) 743 
remote scheduling block (RSB) 836 
scheduling a PSB (HIPO) 740 
scheduling block (ISB) 836 
simulated routine (HIPO) 746 
storage control program 836 
system initialization program 

pFHSIP) 838 
system initialization table 

PFHSIT) 838 
system termination program 

PFHSTP) 836 
task control program 836 
terminate a PCB (HIPO) 742 
transient data 838 
introduction 4 



Index 
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DL/I (continued) 

ISC handling of requests 
DFHISP 865 
DFHXFP 865 
intermediate control block 

pFHDRX) 865 
mirror program pFHMIR) 865 
mirror transaction (CSMI) 865 
user interface block (UIB) 865 

logging function 13 

mirror transaction program pFHMIR) 876 

record 

recovery utility program 
PFHRUP) 901 

request handling pFHDRPE) 856 

schedule and data base requests 

transformation program (DFHXFP) 872 

transaction backout program (HIPO) 557 

update routine (HIPO) 541 
DL/I backout table pBO) 

recovery utility program PFHRUP) 901 
dump 

of CICS partition (DUMP) 844 

of CICS partition (PDUMP) 844 

of supervisor 844 
dump control 

abnormal condition program (DFHACP) 788 

common system area 832 

dynamic open/close program PFHOCP) 896 

HIPOs 441 

interface with CICS/VS (HIPO) 441 

interval control 832 

OPEN/CLOSE/SWITCH (HIPO) 626 

program control 832 

task control area 832 

trace control 832 
dump data set 

formatted dump program (DFHFDP) 844 
dump management (DFHDCP) 832 
dump utility program 

formatted dump program (DFHFDP) 844 

HIPO 518 
DYNALLOC function 

dynamic allocation program 828 
dynamic allocation program 

DYNALLOC function 828 
dynamic backout program (DFHDBP) 830 

abnormal condition program (DFHACP) 788 

DL/I backout 830 

DWE list 830 

dynamic log 830 

file control 830 

HIPO 568 

program control 830 

retry program 830 

sync point program pFHSPP) 911 

temporary storage 830 

transient data 830 

transient data management pFHTDP) 932 
dynamic close of VTAM ACB (HIPO) 147 
dynamic log 

dynamic backout program (DFHDBP) 830 

scan (HIPO) 571 

sync point program pFHSPP) 911 
dynamic open of VTAM ACB (HIPO) 146 
dynamic open/close program pFHOCP) 896 

dump control 896 V 

file control 896 



dynamic open/close program pFHOCP) (continued) 

HIPOs 624 

initialization of indices 896 

master terminal program pFHMTP) 894 

program control 896 

storage control 896 

transient data control 896 
dynamic storage 4 
dynamic storage pool 

CICS/VS 

system initialization program 
pFHSIP) 908 
dynamic transaction backout 

logging (HIPO) 574 

program control program PFHPCP) 898 



EDF (see execution diagnostic facility) 
edit, field, BIF (HIPO) 729 
EIP initialization routine (HIPO) 757 
elevation, program (HIPO) 86 
emergency restart 906 

recovery utility program PFHRUP) 900 

transaction backout program 928 
enable/disable 

data sets or destinations (HIPO) 592 

transaction or program (HIPO) 591 
end functions 

data interchange program (HIPO) 752 
end— of —file 

format tape (DFHFTAP) 847 

tape (HIPO) 522 
end-of— task record 

sync point program pFHSPP) 911 
enqueue upon a resource (HIPO) 26 
enter SRB mode 

HIPO 43 
entry analysis (HIPO) 114,463 
entry, transient data (HIPO) 362 
environmental characteristics 2 

CICS/VS interfaces 3 

system configuration 2 
error message writer (HIPO) 230,302 
ESETL, FCP (HIPO) 345 
establish selection criteria, BIF 

(HIPO) 735 
ESTAE 

initialization (HIPO) 452 

interface (HIPO) 448 

retry (HIPO) 451 
event completion 

analysis and processing (HIPO) 116 

analysis, BSC entry (HIPO) 114 

input (HIPO) 118 

processing, output (HIPO) 400 
event initiation 

Input (HIPO) 126 

output (HIPO) 123 
exceptional condition handler (HIPO) 

EXEC interface pFHEIP) 762 
EXEC interface (DFHEIP) 756,840 

aquire dynamic storage (HIPO) 760 

call entry (HIPO) 761 

command level assembler program 76 

exceptional condition handler 
(HIPO) 762 

initialization routine (HIPO) 757 

ISC handling of EXEC request 859 
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EXEC interface (DFHEIP) (continued) 

local/remote determination program 
PFHELR) 868 

mirror transaction program PFHMIR) 876 

program control 840 
EXEC NOCHECK request 8 62 
execute 

ABEND exit (HIPO) 85 

PLT program (HIPO) 507 
execution diagnostic facility 

control program (HIPO) 784 

display program (HIPO) 785 

task switch program (HIPO) 783 
exit 

cancel , break storage chains (HIPO) 508 

common (OCP) (HIPO) 631 

DFHZEMW (HIPO) 243 

routine , SNA (HIPOs) 261 

trace program (HIPO) 439 
ex trap art it ion 

transient data management pFHTDP) 932 



facility control area associated address 

task control area (TCA) 
terminal management 
(DFHTCP,DFHZCP) 918 
FASTER 

input analysis (HIPO) 119 

2260 compatibility (DFHFIP,DFHF2P) 846 
terminal control 846 

226 output formatting (HIPO) 690 
FASTER language facility (FLF) 846 
FE trace (HIPO) 434 
fetch , program (HIPO) 87 
field edit, BIF (HIPO) 729 
field verify, BIF (HIPO) 730 
file backout table (FBO) 

recovery utility program (DFHRUP) 901 
file control 

built— in functions program pFHBFP) 798 

dynamic backout program (DFHDBP) 830 

dynamic open/close program (DFHOCP) 896 

master terminal program (DFHMTP) 894 

recovery utility program PFHRUP) 900 
file control macro instruction 

DL/I interface 836 
file control program PFHFCP/DFHFCD) 842 

DL/I interface 8 36 

file control table (FCT) 842 

HIPOs 305,627,628 

journal control 842 

macro instruction 842 

module structure (HIPOs) 306 

storage control 842 

task control 842 

transaction backout program 928 
file control requests 

transformation program pFHXFP) 872 
file control table 

file control program 
PFHFCP/DFHFCD) 842 

master terminal program PFHMTP) 894 

scan (HIPO) 313 
final processing (STP) (HIPO) 509 
FLF (FASTER language facility) 846 
format tape pFHFTAP) 519,847 

end-of-file 847 



format, journal (HIPO) 385 
formatted dump program pFHFDP) 844 

abnormal termination 844 

CSMT SNAP command 844 

dump data set 844 

dump of CICS partition (DUMP) 844 

dump of CICS partition (PDUMP) 844 

dump of supervisor 844 

dump utility program 844 

HIPO 562 
formatting 

input, BIF (HIPO) 733 

output, FASTER 2260 (HIPO) 690 
FREE (HIPO) 

inter system communication 768 
FREE routine 

DFHZISP 870 
FREEMAIN 

aligned subpool (HIPO) 75 

control subpool (HIPO) 70 

controller (HIPO) 69 

exit (HIPO) 78 

isolated subpool (HIPO) 73 

mixed subpool (HIPO) 72 

program subpool (HIPO) 76 

request (HIPO) 202 
frozen storage 903 



generate replacement text (HIPO) 517 
GET 

FIOA (HIPO) 307 

transient data (HIPO) 369 

VSAM, file management (HIPO) 307 
get directory information (HIPO) 95,496 
GETAREA, FCP (HIPO) 328 
GETMAIN 

aligned subpool (HIPO) 67 

control subpool (HIPO) 58 

controller (HIPO) 57 

isolated subpool (HIPO) 63,64 

mixed subpool 61 

program subpool (HIPO) 68 

request (HIPO) 201 

shared subpool (HIPO) 66 

teleprocessing subpool (HIPO) 59 
GETNEXT 

FCP (HIPO) 340 

VSAM, FCP (HIPO) 343 
GETPREV 

FCP (HIPO) 340 

VSAM, FCP (HIPO) 343 
good morning message (HIPO) 579 



high— level language (HLL) 

interface handler (HIPO) 727 

preprocessor (HIPO) 510 
high— performance option (HPO) 

system initialization program 
PFHSIP) 908 
HIPO diagrams 

composition 17 

explanation 15 

visual table of contents 18 
HPO SVC 

HIPO 49 



Index 
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I/O error processing, journal output 

(HIPO) 406 
I/O request 

DL/I interface {HIPO) 741 
ICE (see interval control element) 
ICIP 

close processing (HIPO) 359 

index retrieval (HIPO) 322 

open processing (HIPO) 351 

output .(HIPO) 332 

processing, GET (HIPO) 321 

read index control interval (HIPO) 324 
IMS/VS service modules 

DL/I interface 836 
in— flight task 

transaction backout table (TBO) 
recovery utility program 
(DFHRUP) 901 
indexed sequential access method (ISAM) 3 
indirect access (HIPO) 314 
initialization 

CICS/VS 9 

constant (HIPO) 482 

DL/I interface (HIPO) 745 

ESTAE,SPIE,STAE (HIPO) 452 

file control facilities (HIPO) 4 86 

HIPO 530 

MTP r input (HIPO) 581 

nucleus (HIPO) 483 

of indices 

dynamic open/close program 
pFHOCP) 896 

program control facilities (HIPO) 484 

restart data set, SIP (HIPO) 493 

scan (HIPO) 569 

SRB (HIPO) 47 

table, attach (HIPO) 133 

temporary storage control blocks 
(HIPO) 491 

temporary storage facilities (HIPO) 4 88 

terminal control facilities (HIPO) 487 

terminal scan, BSC (HIPO) 117 

transaction backout program (HIPO) 550 

transient data facilities (HIPO) 485 
initialize 

in-core index (HIPO) 354 
initiate 

weighted retrieval, BIF (HIPO) 734 
initiation, task (HIPO) 102 
inline request processing, journal 

(HIPO) 393 
input 

analysis, FASTER (HIPO) 119 

event completion (HIPO) 118 

event initiation (HIPO) 126 

formatting, BIF (HIPO) 733 

initialization 

MTP (HIPO) 581 

initialization (MSP) (HIPO) 636 

initialization (OCP) (HIPO) 625 

request , journal (HIPO) 420 

segment service (HIPO) 317 
input TIOA 

message switching PFHMSP) 890 
input/output messages 

recovery utility program pFHRUP) 901 
interface 

CICS/VS 3 



interface (continued) 
COBOL (HIPO) 96 

dump control with CICS/VS (HIPO) 441 
ESTAE (HIPO) 448 
PL/I (HIPO) 97 
SPIE (HIPO) 447 
STAE (HIPO) 448 
interface scheduling block (ISB) 8 36 
intermediate control block pFHDRX) 8 65 
interregion communication 

abnormal exit PFHCRC) 858 
batch region controller 

bootstrap (HIPO) 651 

controller program (HIPO) 653 

CONVERSE (HIPO) 657 

initialization (HIPO) 652 

program request handler (HIPO) 656 

STAE/SPIE/CLEANUP (HIPO) 655 

SVC initialization (HIPO) 658 

termination (HIPO) 654 
batch region modules 855 
CONNECT function processor (HIPO) 646 
DISCONNECT function processor 

(HIPO) 648 
for shared data bases 850 
HIPOs 643 

LOGOFF function processor (HIPO) 650 
LOGON function processor (HIPO) 645 
new connection manager (HIPO) 661 
QUIESCE function processor (HIPO) 649 
STAE exit (HIPO) 659 
start-up PFHCRSP) 856 

HIPO 660 
SVC module pFHIRCP) 850 

HIPO 644 

invocation 852 
SWITCH function processor (HIPO) 647 
intersystem communication 764,870 
ALLOCATE (HIPO) 768 
converse (HIPO) 766 
DFHZISP 870 
FREE (HIPO) 768 
handling of CICS/VS EXEC NOCHECK 

request 862 
handling of CICS/VS EXEC requests 859 
handling of DL/I requests 865 
handling of EXEC request 

EXEC interface program 859 

transformation 1 859 

transformation 2 859 

transformation 3 859 

transformation 4 860 
local resource determination 763 
local/remote determination program 

PFHELR) 870 
mirror transaction (HIPO) 781 
POINT (HIPO) 768 
program organization 859 
remote resource determination 763 
terminal control 870 
transformation program pFHXFP) 87 

HIPO 776 
interval control 

terminal page scheduling program 
PFHTPS) 826 
interval control element (ICE) 
build basic (HIPO) 103 
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interval control element (ICE) (continued) 

chain 

system termination program 
(DFHSTP) 916 

save (HIPO) 466 

schedule (HIPO) 111 

terminal page scheduling program 
(DFHTPS) 826 
interval control program pFHICP) 99,848 

cleanup undelivered messages program 
(DFHTPQ) 820 

dump control 832 

journal control program (DFHJCP) 880 

mapping control program (DFHMCP) 809 

page retrieval program (DFHTPR) 823 

task control program (DFHKCP) 882 

task dispatcher 848 

time adjustment 848 
interval control requests 

transformation program pFHXFP) 872 
intrapartition 

transient data management pFHTDP) 930 
introduction 1 

operational considerations 8 

purpose and functions 1 

using program logic manuals 1 
invocation 

of the SVC 852 
ISAM (indexed sequential access method) 3 
ISC (see intersystem communication) 
isolated subpool 

FREEMAIN (HIPO) 73 

GETMAIN (HIPO) 64 

TCA GETMAIN (HIPO) 63 
issue conversational response (HIPO) 641 



JCA (see journal control area) 
journal 

format (HIPO) 385 
journal control 

activity keypoint program PFHAKP) 888 

close request (HIPO) 414 

data sets 13 

DL/I interface 838 

file control program 
(DFHFCP/DFHFCD) 842 

HIPOs 384 

inline request processing (HIPO) 393 

input request 420 

kick-off (HIPO) 388 

open request (HIPO) 410 

open/close subtask (HIPO) 416 

output 

I/O error processing (HIPO) 4 06 
initiation (HIPO) 397 
volume switching (HIPO) 404 

recovery utility program pFHRUP) 900 

start-up/shutdown (HIPO) 38 6 

sync point program (DFHSPP) 911 

tasks bootstrap (HIPO) 390 

transient data management PFHTDP) 932 

wait request (HIPO) 396 

write request (HIPO) 394 
journal control area (JCA) 

journal control program (DFHJCP) 878 
journal control program (DFHJCP) 13,878 

DL/I interface 836 



journal control program pFHJCP) (continued) 

interval control 880 

journal control area (JCA) 878 

journal control table 880 

LECB pool 88 

program control 87 8 

task control 880 

temporary storage 880 
journal control table 

journal control program PFHJCP) 8 80 
journaling, automatic (HIPO) 34 8 



KCQRLS subroutine 

HIPO 29 
KCSRBA subroutine 

HIPO 42 
KCSRBE subroutine 

HIPO 42 
keypoint 

processing routine (HIPO) 542 

READ (HIPO) 497 
keypoint program pFHKPP) 461,8 86 

activity keypoint program (DFHAKP) 888 

recovery utility program pFHRUP) 900 

restart data set 8 86 

system recovery 886 

system termination 8 86 

transaction backout program 928 
kick-off, journal (HIPO) 388 



label record 

verification 

tape end of file program 
pFHTEOF) 934 
label verification routine (HIPO) 532 
LCB (logon control block) 850 
LDC page status (HIPO) 206 
leave SRB mode 

HIPO 45 
LECB (logical event control block) 

(HIPO) 398 
LERAD exit (HIPO) 281 
LIFO 

DFHLFM macro 9 40 

overflow (HIPO) 430 

prologue routine (DFHCSA) 940 

stack entry 940 

storage control 9 40 

storage requests (HIPO) 50 

storage routines pFHLFA,DFHLFO) 9 40 

trace entry 940 
line/control unit status, change 

(HIPO) 588 
list all tasks (MTP) (HIPO) 596 
load program list table (HIPO) 504 
load transaction list table (HIPO) 503 
loader 

program (HIPO) 498 

relocate (HIPO) 90 
local resource determination 

intersystem communication 763 
local/remote determination program 
PFHELR) 868 

EXEC interface program 8 68 

intersystem communication 870 

transformer storage area (XFSTG) 8 68 



Index 
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locate 

ATI status (HIPO) 203 

HIPO 207 

LDC HIPO 207 

terminal entry, analyze request 
(HIPO) 204 
LOCATE/OPEN/CLOSE , FCP (HIPO) 347 
log read routine (HIPO) 531 
log tape volume 

tape end of file program (DFHTEOF) 934 
logging , DL/I 13 
logical event control block (LECB) 

HIPO 398 

pool 

journal control program 
pFHJCP) 880 
logical record presentation, DFHZLRP 

(HIPO) 253 
logical unit of work (LUW) 

recovery utility program (DFHRUP) 900 

sync point program (DFHSPP) 910 

transient data management pFHTDP) 932 
LOGOFF function processor 

interregion communication (HIPO) 650 
LOGOFF service 852 
LOGON 

exit (HIPO) 262 

start (HIPO) 134 
logon control block (LCB) 850 
LOGON function processor 

interregion communication (HIPO) 645 
LOGON service 850 

buffer 851 

connection address control block 
(CACB) 850 

connection control block (CCB) 851 

logon control block (LCB) 850 

subsystem connection address control 
block (SCACB) 851 

subsystem connection control block 
(SCCB) 851 

subsystem logon control block 
(SLCB) 851 
LOSTERM exit (HIPO) 277 



macro request analysis (HIPO) 727 

main storage 4 

mainline routines, SNA (HIPOs) 128 

mapping control program (DFHMCP) 808 
application program 808 
basic mapping support (BMS) 802 
cleanup undelivered messages program 

(DFHTPQ) 820 
interval control 809 

non-3270 input mapping (DFHI IP) 806,809 
page and text build (DFHPBP) 809,814 
program control 809 
route list resolution program 

(DFHRLR) 809,816 
storage control 808 
task control 808,809 
temporary storage control 808 
terminal control 808 
transient data control 809 
3270 mapping (DFHM32) 809,812 

master terminal (CSMT) 

activity keypoint program (DFHAKP) 888 



master terminal program (DFHMTP) 894 

CSMT 894 

CSOT 894 

CSST 894 

destination control table (DCT) 894 

DL/I interface 836 

dynamic open/close 894 

file control 894 

HIPOs 580 

program control 89 4 

system shutdown 895 

task control 894 

transient data control 894 
master terminal program pFHMTPA) 

system termination program pFHSTP) 916 
message 

build output (HIPO) 598 

delivery, delayed, BMS (HIPO) 724 

purge, BMS (HIPO) 718 

route (MSP) (HIPO) 642 

update routine (HIPO) 538 
message backout table (MBO) 

recovery utility program pFHRUP) 901 
message recovery 

transaction backout program (HIPO) 554 
message routine, NACP (HIPO) 297 
message set 

purge (HIPO) 383 
message switching pFHMSP) 890 

basic mapping support 891 

HIPOs 635 

input TIOA 8 90 

introduction 12 

program control 890 

ROUTE operand 890 

storage control 89 

task control area (TCA) 891 

temporary storage control 890 

terminal list task (TLT) 890 
mirror transaction (CSMI) 

DL/I 

ISC handling of requests 865 
mirror transaction program 
pFHMIR) 859,876 

DL/I 876 

ISC handling of requests 865 

EXEC interface program 876 

intersystem communication (HIPO) 781 

terminal control 876 

transformation program (DFHXFP) 876 
mixed subpool 

FREEMAIN (HIPO) 72 

GETMAIN (HIPO) 61 
MSG operand (HIPO) 639 
multiprogramming 2,10 
multitasking 10 



network services exit (HIPO) 292 

new connection manager 

interregion communication (HIPO) 6 61 
transaction CSNC (DFHKRNP) 856 

NOCHECK request 862 

node abnormal condition program pFHNACP) 
ABEND exit (HIPO) 301 
main program (HIPOs) 294 
message routine (HIPO) 297 
NEP interface routine (HIPO) 299 
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node abnormal condition program (DFHNACP) 

(continued) 

representative error routine (HIPO) 298 

terminal management pFHTCP , DFHZ CP) 920 
node error program (DFHNEP) 

terminal management (DFHTCP,DFHZCP) 920 
node error program interface, DFHZNEP 

(HIPO) 257 
non-3270 input mapping pFHIIP) 806 

data interchange 806 

HIPO 698 

mapping control 806,809 

storage control 806 

terminal control 80 6 
non-3270 output mapping (HIPO) 679 
non-3270 TEXTBLD (HIPO) 683 
note operation 

data interchange program (HIPO) 753 
nucleus 4 

initialize (HIPO) 483 
nucleus module 

CICS/VS 

system initialization program 
(DFHSIP) 908 
numeric data, change (HIPO) 584 



open 

file control (HIPO) 627 

request, journal (HIPO) 410 

subtask, journal (HIPO) 416 

transient data (HIPO) 629 
open/close program (DFHOCP) 

DL/I interface 836 
OPEN/CLOSE/LOCATE, FCP (HIPO) 347 
operand 

MSG (HIPO) 639 

process (MSP) (HIPO) 638 
operating system timer facilities 

task control program PFHKCP) 883 
operational considerations 8 

CICS/VS initialization 9 

control information 12 
operator error 

abnormal condition program (DFHACP) 788 
operator terminal (HIPO) 600 
OPNDST 

exit (HIPO) 264 

HIPO 145 
out— of— line macro request processing 

(HIPO) 408 
output event completion processing 

(HIPO) 400 
output formatting, FASTER 2260 (HIPO) 690 
output initiation, journal (HIPO) 397 
output mapping 69 3 

non-3270, PAGEBLD, BMS (HIPO) 679 

3270, CICS (HIPO) 693 

3270, PAGEBLD, BMS (HIPO) 681 
output message, build (HIPO) 598 
output processing (ATP) (HIPO) 621 
output request, terminate, PAGEOUT (BMS) 

(HIPO) 68 6 
output volume switching, journal 

(HIPO) 404 
output, chain to previous command, BMS 

(HIPO) 722 
output, event initiation (HIPO) 123 



overlay 

supervisor (HIPO) 



481 



page allocation map (PAM) 

storage control program pFHSCP) 9 03 
page and text build (DFHPBP) 814 

data stream build (DFHDSB) 804 

mapping control program 
(DFHMCP) 809,814 

program control 814 

storage control 814 

3270 mapping pFHM32) 812 
page fix interface (HIPO) 490 
page frames 4 

page free interface (HIPO) 490 
page query, reset to (HIPO) 715 
page retrieval and display (BMS) 

(HIPO) 711 
page retrieval program (DFHTPR) 822 
(HIPO) 709 

basic mapping support 8 22 

BMS mapping control program 822 

interval control 823 

program control 822 

single keystroke retrieval (HIPO) 723 

storage control 822 

task control 823 

temporary storage control 822 

terminal control 8 23 

terminal output macro instruction 823 

transient data control 823 
page status, LDC (HIPO) 206 
page, copy to another terminal, BMS 

(HIPO) 721 
PAGEBLD, output mapping 

3270 (BMS) (HIPO) 681 
PAGEOUT, terminate output request (BMS) 

(HIPO) 686 
paging 4,7 

pass program control (HIPO) 81 
phonetic conversion 

BIF (HIPO) 731 
PL/I interface (HIPO) 97 
PL/I modules 

program control program (DFHPCP) 898 
POINT (HIPO) 

intersystem communication 768 
POINT routine 

DFHZ ISP 870 
point to new program copy (HIPO) 589 
pre-VS mapping module (DFHBMSMM) 8 02 
pre-VS 3270 output mapping (HIPO) 696 
preprocessor, HLL (HIPO) 510 
primed allocation (PRA) 

storage control program (DFHSCP) 904 
print key 

copy program, 3270 (HIPO) 246 

no task attached, 3270 (HIPO) 249 

task attached, 3270 (HIPO) 2 45 
process 

command options (HIPO) 516 

conversational response (HIPO) 637 

data base/user log record (HIPO) 539 

operands (MSP) (HIPO) 638 
processing program table (PPT) 

search (HIPO) 89 

storage control program pFHSCP) 903 



Index 
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processing, final (STP) (HIPO) 509 
program check interrupt 

system recovery program (DFHSRP) 914 
program control 

abnormal condition program (DFHACP) 788 

asynchronous transaction control 
program PFHATP) 796 

asynchronous transaction input 
processor 792 

asynchronous transaction output 
processor 794 

basic mapping support (BMS) 802 

DL/I interface 838 

dump control 832 

dynamic backout program (DFHDBP) 8 30 

dynamic open/close program pFHOCP) 89 6 

EXEC interface (DFHEIP) 840 

journal control program (DFHJCP) 878 

mapping control program (DFHMCP) 80 9 

master terminal program (DFHMTP) 894 

message switching (DFHMSP) 890 

page and text build pFHPBP) 814 

page retrieval program (DFHTPR) 822 

route list resolution program 
(DFHRLR) 816 

storage control program (DFHSCP) 904 

system recovery program pFHSRP) 914 

system termination program PFHSTP) 916 

task control program PFHKCP) 884 

terminal page scheduling program 
pFHTPS) 826 

transient data management 
PFHTDP) 930,932 
program control facilities, initialize, 

(HIPO) 484 
program control program pFHPCP) 898 

ABEND 898 
' ANS COBOL modules 898 

DL/I interface 8 36 

dynamic transaction backout 898 

HIPOs 80 

pass (HIPO) 81 

PL/I modules 898 

return (HIPO) 93 

transfer (HIPO) 82 
program control table (PCT) 

recovery utility program pFHRUP) 900 

storage control program (DFHSCP) 903 
program elevation (HIPO) 86 
program exit 

task management (HIPO) 77 

trace (HIPO) 439 
program fetch (HIPO) 87 
program library 

CICS/VS 

system initialization program 
pFHSIP) 908 
program list table (PLT) 504 

program, execute (HIPO) 507 

system termination program pFHSTP) 916 
program loader (HIPO) 498 
program release (HIPO) 83 
program specification block (PSB) 

DL/I interface 8 36 
program subpool 

FREEMAIN (HIPO) 76 

GETMAIN (HIPO) 68 



prologue routine pFHCSA) 

LIFO 940 
protect option group 

recovery utility program pFHRUP) 900 
purge 

asynchronous queue (HIPO) 623 

logic, DFHZEMW (HIPO) 240 

messages, BMS (HIPO) 718 

transient data (HIPO) 372 
purge message set (HIPO) 383 
PUT 

FCP (HIPO) 329 

transient data (HIPO) 367 



queue purge, asynchronous (HIPO) 623 
queueing subroutine 

activate (HIPO) 225 
QUIESCE function processor 

interregion communication (HIPO) 649 
QUIESCE service 852 
quiesce terminals (HIPO) 505 



reactivate ABEND exit (HIPO) 94 
read 

data records 

transaction backout program 
(HIPO) 552 

keypoint (HIPO) 497 

log routine (HIPO) 531 

restart data set data (HIPO) 473 
read ahead 

queueing, DFHZRAQ (HIPO) 258 

retrieval, DFHZRAR (HIPO) 259 
receive specific 

exit (HIPO) 267 

HIPO 173 
receive-any (HIPO) 135 
record format 7 
recovery 

storage control program pFHSCP) 9 04 
HIPO 79 

temporary storage (HIPO) 560 
recovery utility program (DFHRUP) 900 

activity keypoint 900 

DL/I backout table PBO) 901 

DL/I record 901 

emergency restart 900 

file backout table (FBO) 9 01 

file control 900 

HIPOs 529 

input/output messages 901 

journal control 900 

keypoint program 900 

logical unit of work (LUW) 900 

message backout table (MBO) 901 

program control table (PCT) 900 

protect option group 900 

system initialization program 
(DFHSIP) 902,907 

system log 900 

temporary storage byte map 901 

temporary storage recovery 9 01 

terminal control 900 

transaction backout table (TBO) 
active task 901 
in-flight task 901 
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recovery utility program pFHRUP) (continued) 

transient data bit map 901 

transient data recovery 901 

update /replace record 901 
:ec ove ry/re start 

sync point program (DFHSPP) 910 
region communication pFHZCX) 857 
release 

data, temporary storage (HIPO) 382 

request exit (HIPO) 278 

storage area, BIF (HIPO) 737 
RELEASE, FCP (HIPO) 326 
remote request handler 

DL/I interface (HIPO) 744 
cemote resource determination 

intersystem communication 763 
cemote scheduler 

DL/I interface (HIPO) 743 
remote scheduling block (RSB) 

DL/I interface 836 
removal of a resource, declare (HIPO) 54 
representative error routine, NACP 

(HIPO) 298 
request analysis, BMS (HIPO) 663 
request parameter list (RPL) 

status byte 

transient data management 
PFHTDP) 930 

temporary storage management 
PFHTSP) 938 
reset routine, time— of-day (HIPO) 107 
reset to page query (HIPO) 715 
RESETL, FCP (HIPO) 346 
RESETSR (HIPO) 213 
resource 

availability, declare (HIPO) 52 

dequeue all (HIPO) 28 

dequeue from (HIPO) 27 
resource determination 

local/remote 763 
response, conversational 

exit (HIPO) 274 

logger (HIPO) 303 

process (HIPO) 637 
restart data set 907 

data, read (HIPO) 473 

data, write (HIPO) 472 

initialize, SIP (HIPO) 493 

keypoint program (DFHKPP) 886 

transaction backout program 928 
restart task after abend (HIPO) 98 
resume a task (HIPO) 33 
re sync send program (HIPO) 304 
resynchronization (HIPO) 215 
retrieve data 

HIPO 105 

temporary storage (HIPO) 380 
retrieve selected records, BIF (HIPO) 736 
retry program 

dynamic backout program (DFHDBP) 830 
return logic 

DFHZEMW (HIPO) 233 
return program control (HIPO) 93 
rollback request 

sync point program (DFHSPP) 911 
route list build (BMS) (HIPO) 678 
route list resolution program (DFHRLR) 816 

HIPO 676 



route list resolution program (DFHRLR) (continued) 

mapping control 809,816 

program control 816 

storage control 816 
route message (HIPO) 642 
ROUTE operand 

HIPO 640 

message switching (DFHMSP) 890 
RPL 

executer (HIPO) 289 

service (HIPO) 260 
runaway task 

HIPO 446 

task control program pFHKCP) 884 
RUP initialization routine (HIPO) 530 



SAM (sequential access method) 3 
save 

BCAs and WREs (HIPO) 467 

CSA data (HIPO) 464 

data from TCAs (HIPO) 471 

DCT bit map (HIPO) 465 

ICEs and AIDS (HIPO) 466 

table entries (HIPO) 463 

TCTTEs (HIPO) 474 

temporary storage data (HIPO) 468 

TS bit map data (HIPO) 469 
SCACB (subsystem connection address 

control block) 851 
scan input text (HIPO) 513 
SCCB (subsystem connection control 

block) 851 
schedule a resource (HIPO) 51 
scheduling a PSB 

DL/I interface (HIPO) 740 
scheduling block pFHISBDS) 

DL/I interface 838 
search 

PPT (HIPO) 89 

table, BIF (HIPO) 732 
segment service, input (HIPO) 317 
selected records, retrieve, BIF (HIPO) 736 
selection criteria, establish, BIF 

(HIPO) 735 
selection operation 

data interchange program (HIPO) 755 
send asynchronous command 

exit (HIPO) 270 

HIPO 172 
send DFSYN 

data exit (HIPO) 286 

HIPO 189 
send error message logic, DFHZEMW 

(HIPO) 237 
send response (HIPO) 177 
send synchronous data flow pFSYN) exit 

(HIPO) 28 3 
send VE response logic, DFHZEMW (HIPO) 236 
sequential access method (SAM) 3 
service analysis (ATP) (HIPO) 620 
service inquiry 

no parameter list (HIPO) 582 

with parameter list (HIPO) 583 
service request block (SRB) 

system initialization program 
pFHSIP) 908 
SESSION control input exit (HIPO) 272 



Index 
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SESSIONC 

exit (HIPO) 265 

HIPO 149 
set LOGON start (HIPO) 134 
SETL 

FCP (HIPO) 336 

VSAM, FCP (HIPO) 338 
shared data base 

interregion communication 850 
shared subpool 

FREEMAIN (HIPO) 74 

GETMAIN (HIPO) 66 
short— on-storage (SOS) 

storage control program (DFHSCP) 903 
shutdown 

determine type of (HIPO) 502 

journal (HIPO) 3 92 
sign-off program (HIPQ 578 
sign— on program (HIPO) 576 
sign-on table 

abnormal condition program pFHACP) 78 8 
signal expiration of specified time 

(HIPO) 101 
SIMLOGON (HIPO) 144 

single keystroke retrieval (HIPO) 723 
SLCB (subsystem logon control block) 851 
SNA (systems network architecture) 

exit routines (HIPO) 128,261 

mainline routines (HIPOs) 128 

support routine (HIPOs) 128,293 
specified time, signal expiration of 

(HIPO) 101 
SPIE 

initialization (HIPO) 452 

interface (HIPO) 447 
SRB 

dispatcher (HIPO) 48 

initialization (HIPO) 47 

management overview (HIPO) 44 

mode 

enter (HIPO) 43 
leave (HIPO) 45 
SRB mode 

task control program (DFHKCP) 884 
STAE 

exit 

interregion communication 
(HIPO) 65 9 

initialization (HIPO) 452 

interface (HIPO) 448 

retry (HIPO) 450 
start— of— task processing routine 

(HIPO) 543 
start— up 

interregion communication (HIPO) 660 

terminal control (HIPO) 494 
start-up pFHSIP) (HIPO) 480 
start-up task (HIPO) 152 
start— up/ shut down, journal (HIPO) 386 
statistics 

routine (RUP) , write (HIPO) 546 

system, request processing (HIPO) 602 

utility program (DFHSTUP) (HIPO) 612 
status, TCP (HIPO) 209 
storage 

frozen 903 
storage chopper (HIPO) 495 



storage control 

abnormal condition program (DFHACP) 788 

asynchronous transaction control 
program (DFHATP) 796 

asynchronous transaction input 
processor 791 

asynchronous transaction output 
processor 794 

basic mapping support (BMS) 802 

built— in functions program (DFHBFP) 798 

cleanup undelivered messages program 
(DFHTPQ) 820 

data interchange program (DFHDIP) 834 

DL/I interface 838 

dynamic open/close program (DFHOCP) 896 

file control program 
PFHFCP/DFHFCD) 8 42 

LIFO 940 

mapping control program PFHMCP) 8 08 

message switching (DFHMSP) 890 

non-3270 input mapping pFHIIP) 806 

page and text build pFHPBP) 814 

page retrieval program pFHTPR) 822 

route list resolution program 
(DFHRLR) 816 

task control program pFHKCP) 882 

temporary storage management 
pFHTSP) 938 

terminal page processor PFHTPP) 818 

terminal page scheduling program 
pFHTPS) 826 

transaction backout program 928 

transient data management (DFHTDP) 930 

3270 mapping PFHM32) 812 
storage control program PFHSCP) 903 

common system area (CSA) 903 

dispatch control area (DCA) 903 

DL/I interface 836 

HIPOs 56 

page allocation map (PAM) 903 

primed allocation (PRA) 904 

processing program table (PPT) 903 

program control 904 

program control table (PCT) 903 

recovery routine 904 

short-on-storage (SOS) 903 

storage violations 903 

system recovery 90 4 

task control 904 

task control area (TCA) 903 

terminal control table terminal entry 
(TCTTE) 903 

terminal storage 903 
storage control recovery (HIPO) 79 
storage management PFHSCP) 

frozen storage 903 

terminal management pFHTCP,DFHZCP) 919 
storage requests, LIFO (HIPO) 50 
storage violations 

storage control program pFHSCP) 9 03 
store data, temporary storage (HIPO) 377 
subpool 

allocation of dynamic storage 7 

build dynamic, SIP (HIPO) 489 

introduction 7 
subroutine 

KCQRLS 

HIPO 29 
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subroutine (continued) 
KCSRBA 

HIPO 42 
KCSRBE 

HIPO 42 
subsystem connection address control block 

(SCACB) 851 
subsystem connection control block 

(SCCB) 851 
subsystem logon control block (SLCB) 8 51 
subtask, journal open/close (HIPO) 416 
supervisor terminal (HIPO) 599 
supervisor, overlay (HIPO) 481 
support routines , SNA (HIPO) 293 
suspend a task (HIPO) 32 
suspended task chain 

task control program (DFHKCP) 883 
SVC 

initialization (DFHDRPF) 856 
interregion communication (HIPO) 644 
services 

CONNECT 851 
DISCONNECT 851 
LOGOFF 852 
LOGON 850 
QUIESCE 852 
SWITCH 851 
SWITCH function processor 

interregion communication (HIPO) 647 
SWITCH service 851 
SYNAD exit (HIPO) 284 
sync point program (DFHSPP) 910 
deferred work element (DWE) 910 
deferred work element chain 910,911 
deferred work element processor 910,911 

abnormal termination 910 
dynamic backout program (DFHDBP) 911 
dynamic log 911 
end (HIPO) 429 
end-of-task record 911 
HIPOs 4 23 

journal control 911 
logical unit of work (LUW) 910 
recovery/restart 910 
rollback request 911 
task control 911 
terminal control table terminal entry 

(TCTTE) 911 
transient data management (DFHTDP) 932 
sync processing routine (HIPO) 533 
sync, TCP (HIPO) 212 
synchronize a task (HIPO) 31 
system abend 

system recovery program pFHSRP) 914 
system configuration 2 
system generation 8 
system initialization overlay 906 
system initialization program 
PFHSIP) 479,906 
CICS/VS 

dynamic storage pool 908 
nucleus module 908 
program library 908 
DL/I interface 8 38 
high— performance option (HPO) 908 
overlay 906 

recovery utility program 
(DFHRUP) 902,907 



(DFHSIP) (continued) 

restart data set 9 07 

service request block (SRB) 908 

system queue area (SQA) 908 

tape end of file program pFHTEOF) 934 

terminal control 908 

transaction backout program 908,928 
system initialization table (DFHSIT) 

DL/I interface 838 
system log 

recovery utility program pFHRUP) 900 
system management 

introduction 2 
system monitoring 

introduction 2 
system queue area (SQA) 

system initialization program 
PFHSIP) 908 
system recovery program pFHSRP) 914 

abnormal termination 914 

HIPOs 445 

keypoint program pFHKPP) 88 6 

program check interrupt 914 

program control 914 

storage control program PFHSCP) 9 04 

system abend 914 

table 914 
system reliability 

introduction 2 
system services 

introduction 2 
system shutdown 

master terminal program pFHMTP) 8 95 
system statistics (HIPOs) 601 
system support 

introduction 2 
system termination program 
(DFHSTP) 501,916 

AID chain 916 

BCA chain 916 

common system area (CSA) 916 

CSMT SHUTDOWN request 916 

DL/I interface 836 

HIPOs 500 

ICE chain 916 

keypoint program pFHKPP) 88 6 

master terminal program pFHMTPA) 916 

overview (HIPO) 501 

program control 916 

program list table (PLT) 916 

transaction list table (XLT) 916 
system trace 

(HIPO) 435 
systems network architecture (see SNA) 



table entries, save (HIPO) 463 

table search, BIF (HIPO) 732 

tables 

preparation of 9 

tape end of file program pFHTEOF) 934 
HIPO 522 

log tape volume 934 
system initialization program 

PFHSIP) 934 
tape volume swopping 934 
verification of label record 934 
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tape volume swopping 

tape end of file program (DFHTEOF) 934 
tape, format routine (HIPO) 519 
task 

attach (HIPO) 155 

delay processing (HIPO) 100 

list all (MTP) (HIPO) 596 

restart after abend (HIPO) 98 

resume (HIPO) 33 

runaway (HIPO) 446 

suspend (HIPO) 32 

synchronize (HIPO) 31 

terminate, abnormally (HIPO) 84 

terminate, using task number (HIPO) 594 

terminate, using terminal ID (HIPO) 593 
task ABEND (HIPO) 455 

bootstrap, journal (HIPO) 390 
task abnormal condition 

abnormal condition program pFHACP) 788 
task abnormal termination routine 

task control program (DFHKCP) 884 
task control area (TCA) 3 

dump management 8 32 

message switching (DFHMSP) 891 

save data from (HIPO) 471 

storage control program (DFHSCP) 903 

terminal management pFHTCP,DFHZCP) 920 

user 

terminal management 
(DFHTCP,DFHZCP) 920 
task control program (DFHKCP) 882 

abnormal condition program pFHACP) 788 

active task chain 883 

asynchronous transaction control 
program (DFHATP) 796 

asynchronous transaction input 
processor 792 

dispatch control area (DCA) 883 

DL/I interface 8 36 

file control program 
(DFHFCP/DFHFCD) 8 42 

HIPOs 19 

interval control 882 

journal control program (DFHJCP) 880 

mapping control program 
pFHMCP) 808,809 

master terminal program PFHMTP) 894 

operating system timer facilities 883 

OS/VS 

timer interrupt routine 884 
WAIT 883 

page retrieval program (DFHTPR) 823 

program control 884 

runaway task 884 

SRB mode 88 4 

storage control 882,904 

suspended task chain 883 

sync point program pFHSPP) 911 

task abnormal termination routine 884 

task dispatcher 883 

TCB mode 884 

temporary storage management 
pFHTSP) 938 

terminal management 

(DFHTCP,DFHZCP) 918,919 

terminal page scheduling program 
PFHTPS) 826 



task control program (DFHKCP) (continued) 

transient data management 
pFHTDP) 930,932 
task detach (HIPO) 183 
task dispatcher 

active DCA scan 36 

dispatch (HIPO) 37 

interval control program (DFHICP) 848 

overview (HIPO) 34 

task control program (DFHKCP) 883 

time analysis (HIPO) 35 

time management pFHICP) 848 
task initialization, automatic (HIPO) 221 
task initiation 10 

ATP (HIPO) 619 

ICP (HIPO) 102 
task priority, change (HIPO) 30 
task termination 

ATI processing (HIPO) 125 
task, attaching 

HIPO 20 
task, detaching 

HIPO 23 
TCA (see task control area) 
TCAM (telecommunications access method) 3 
TCB mode 

task control program pFHKCP) 884 
telecommunications access method (TCAM) 3 
teleprocessing subpool 

FREEMAIN (HIPO) 71 

GETMAIN (HIPO) 59 
temporary storage management pFHTSP) 938 

byte map 

recovery utility program 
pFHRUP) 901 

cleanup undelivered messages program 
PFHTPQ) 820 

control blocks, initialize (HIPO) 491 

data interchange program pFHDIP) 834 

data, save (HIPO) 468 

PFHTS macro 938 

dynamic backout program (DFHDBP) 830 

facilities, initialize (HIPO) 488 

HIPOs 376 

journal control program pFHJCP) 880 

mapping control program PFHMCP) 808 

message switching PFHMSP) 890 

page retrieval program pFHTPR) 822 

recovery (HIPO) 560 

recovery utility program pFHRUP) 901 

request parameter list (RPL) 938 

storage control 938 

task control 938 

temporary storage bit map 938 

temporary storage group identification 
fPSGID) 938 

temporary storage unit table 
extension 938 

terminal page processor pFHTPP) 818 

terminal page scheduling program 
PFHTPS) 826 

transaction backout program 928 
temporary storage requests 

transformation program PFHXFP) 87 2 
terminal abnormal condition line entry 
pFHTACLE) 

terminal management pFHTCP,DFHZCP) 920 



960 



CICS/OS/VS Program Logic: Description 



LICENSED MATERIAL 



PROPERTY OF IBM 



terminal abnormal condition program 
(DFHTACP) 
terminal management (DFHTCP,DFHZCP) 920 
terminal activity control (HIPO) 121 
terminal control 

asynchronous transaction control 

program (DFHATP) 796 
asynchronous transaction input 

processor 791 
asynchronous transaction output 

processor 794 
basic mapping support (BMS) 802 
data interchange program (DFHDIP) 834 
FASTER 

2260 compatibility 
(DFHFIP,DFHF2P) 846 
inters ystem communication 870 
mapping control program (DFHMCP) 808 
mirror transaction program (DFHMIR) 876 
non-32 70 input mapping (DFHIIP) 806 
page retrieval program (DFHTPR) 823 
recovery utility program (DFHRUP) 900 
start up (HIPO) 494 
system initialization program 

(DFHSIP) 908 
3270 mapping (DFHM32) 812 
terminal control facilities, initialize 

(HIPO) 487 
terminal control table 

transaction backout program 928 
terminal control table terminal entry 
(TCTTE) 
save (HIPO) 474 

storage control program pFHSCP) 903 
sync point program (DFHSPP) 911 
terminal data 

asynchronous transaction processor 791 
terminal error, ACP (HIPO) 456 
terminal input/output area 
address 

3270 mapping (DFHM32) 812 
address of, basic mapping support 802 
terminal list task (TLT) 

message switching (DFHMSP) 890 
terminal management (DFHTCP,DFHZCP) 918 
access method dependent interface 919 
access methods 919 
common interface 918 
HIPOs 112 
node abnormal condition program 

PFHNACP) 920 
node error program (DFHNEP) 920 
storage management 919 
task control 918 
task control area (TCA) 

facility control area associated 

address 918 
terminal control 920 
user 920 
terminal abnormal condition line entry 

(DFHTACLE) 920 
terminal abnormal condition program 

(DFHTACP) 920 
WAIT request 918 
terminal output macro instruction 

page retrieval program pFHTPR) 823 
terminal page processor (DFHTPP) 818 
terminal output subroutine (HIPO) 701 



terminal page cleanup program pFHTPQ) 

HIPO 7 05 
terminal page processor PFHTPP) 818 

data stream build pFHDSB) 804 

HIPO 699 

storage control 818 

temporary storage control 818 

terminal output macro instruction 818 

terminal type parameter 818 

3270 mapping PFHM32) 812 
terminal page scheduling program 
PF^TPS) 826 

interval control element (ICE) 826 

program control 826 

storage control 826 

task control 826 

temporary storage control 826 
terminal scan, initialize, BSC (HIPO) 117 
terminal status, change (HIPO) 587 
terminal storage 

storage control program PFHSCP) 9 03 
terminal supervisor (HIPO) 599 
terminal test (HIPO) 634 

terminal transaction initiation (HIPO) 122 
terminal type parameter 

terminal page processor PFHTPP) 818 
terminal, operator (HIPO) 600 
terminate 

output request, PAGEOUT (BMS) 
(HIPO) 686 

PCB 

DL/I interface (HIPO) 742 

task 

abnormally (HIPO) 84 
using terminal ID (HIPO) 593 
termination 

logic, DFHZEMW (HIPO) 233 

routine (RUP) (HIPO) 545 

task, ATI processing (HIPO) 125 

transaction backout program (HIPO) 559 
test, terminal (HIPO) 634 
TEXTBLD 

non-3270 (BMS) (HIPO) 683 

3270 (BMS) (HIPO) 684 
time adjustment program 

HIPO 632 

interval control program pFHICP) 848 

time management pFHICP) 848 
time expiration analysis (HIPO) 108 
time management pFHICP) 99,8 48 

task dispatcher 848 

time adjustment 848 
time-of— day 

current (HIPO) 104 

reset routine (HIPO) 107 
time-ordered request, cancel (HIPO) 106 
timer interrupt 

exit routine (HIPO) 40 

OS/VS 

task control program PFHKCP) 8 84 
TLT (see terminal list table) 
tokenise input string (HIPO) 514 
TPEND exit (HIPO) 282 
trace entry 

LIFO 940 
trace management PFHTRP) 936 

auxiliary trace 936 

data interchange program (DFHDIP) 834 
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trace management PFHTRP) (continued) 

DFHLFM macro 936 

DFHTRACE macro 936 

dump control 832 

FE (HIPO) 434 
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system (HIPO) 435 

table 936 

trace utility program (DFHTUP) 936 
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trace table (TRT) 
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file control program PFHFCP) 928 
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keypoint program PFHKPP) 928 

message recovery (HIPO) 554 

read data records (HIPO) 552 

restart data set 928 

storage control 928 

system initialization program 
PFHSIP) 90 8,928 

temporary storage control 928 

terminal control 
table 928 

termination (HIPO) 559 

transient data program 928 

user exit 928 
transaction backout table (TBO) 

recovery utility program pFHRUP) 901 
transaction CSNC pFHKRNP) 856 
transaction initiation, terminal 

(HIPO) 122 
transaction list table (XLT) 

load (HIPO) 503 

system termination program PFHSTP) 916 
transaction work area 3 
transfer program control (HIPO) 82 
transformation program (DFHXFP) 872 

DL/I schedule and data base 
requests 872 

file control requests 872 

inters ys tern communication 870 
HIPO 776 

interval control requests 872 

mirror transaction program pFHMIR) 876 

temporary storage requests 872 

transformation 1 872 

transformation 2 874 

transformation 3 874 

transformation 4 875 

transient data requests 872 
transformation 1 872 

attach function management header 
(AFMH) 873 

ISC handling of EXEC request 859 
transformation 2 859,874 

ISC handling of EXEC request 859 
transformation 3 874 
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ISC handling of EXEC request 859 
transformation 4 875 
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transformer storage area (XFSTG) 868 

local/remote determination program 
(DFHELR) 868 
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DL/I interface 838 
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entry (HIPO) 362 

facilities, initialize (HIPO) 485 

GET (HIPO) 369 

OPEN (HIPO) 629 

PURGE (HIPO) 372 

PUT (HIPO) 367 

recovery (HIPO) 547 
transient data bit map 

recovery utility program PFHRUP) 901 
transient data CLOSE (HIPO) 630 
transient data control 

abnormal condition program pFHACP) 788 

asynchronous transaction control 
program pFHATP) 796 

asynchronous transaction input 
processor 792 
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processor 794 

cleanup undelivered messages program 
pFHTPQ) 820 

dynamic open/close program pFHOCP) 896 

mapping control program pFHtyCP) 809 

master terminal program pFHMTP) 894 

page retrieval program pFHTPR) 823 
transient data DWE processor (HIPO) 3 64 
transient data intrapartition queue 

asynchronous transaction control 
program pFHATP) 796 
transient data management pFHTDP) 930 

data event control block pECB) , status 
byte 930 

deferred work element pWE) 930,932 

destination control table pCT) 930,932 

disk map 931 

dynamic backout program 932 

extrapartition 932 

HIPO 361 

intrapartition 930 

journal control 932 

logical unit of work (LUW) 932 

program control 930,932 

request parameter list (RPL) , status 
byte 930 

storage control 930 

sync point program 932 

task control 930,932 

transaction backout program 928 
transient data recovery 

recovery utility program PFHRUP) 901 
transient data requests 

transformation program (DFHXFP) 872 
TS bit map data, save (HIPO) 469 
TST update routine (HIPO) 540 
turn on auxiliary trace (HIPO) 436 
turn trace on/off (HIPO) 432 
turn trace table logging on/off (HIPO) 590 
turnaround exit (HIPO) 288 
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TWA (see transaction work area) 
type of shutdown, determine (HIPO) 502 
TYPE=IN processing, BMS (HIPO) 667 
TYPB=MAP processing, BMS (HIPO) 667 
TYPE=PAGEBLD processing, BMS (HIPO) 669 
TYPE=PAGEOUT processing, BMS (HIPO) 671 
TYPE=PURGE processing, BMS (HIPO) 675 
TYPE=ROUTE processing, BMS (HIPO) 665,669 
TYPE=TEXTBLD processing, BMS (HIPO) 669 



UIB (see user interface block) 

unblock keyboard program, 3270 (HIPO) 248 

undelivered messages, cleanup (BMS) 

(HIPO) 705 
update routine 

data base (HIPO) 537 

DCT entry (HIPO) 535 

DL/I (HIPO) 541 

message (HIPO) 538 

TST (HIPO) 540 

user/data base (HIPO) 536 
update/replace record 

recovery utility program 
uppercase translation, 3270 
user data set 8 
user exit 

asynchronous transaction input 
processor 791 

asynchronous transaction output 
processor 79 4 

transaction backout program 928 
user interface block (UIB) 865 
user log record/process data base 

(HIPO) 539 
user log routine, update (HIPO) 536 
user trace (HIPO) 433 
user— written program error program (PEP) 

abnormal condition program (DFHACP) 788 
using program logic manuals 1 
utility program 

dump (HIPO) 518 

statistics (HIPO) 612 

trace (HIPO) 561 



(DFHTCP,DFHZCP) 918 
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WAIT 

os/vs 

task control program pFHKCP) 8 83 

wait request 

journal (HIPO) 396 
terminal management 

warm keypointing 886 

warm restart 906 

weighted retrieval 

initiate, BIF (HIPO) 

WREs, save (HIPO) 467 

write 

auxiliary trace record 
console (HIPO) 499 
DFHRSD control record (HIPO) 
DWE log data (HIPO) 427 
request, journal (HIPO) 394 
restart data set data (HIPO) 
restart data set routine (HIPO) 
statistics routine (RUP) (HIPO) 



(HIPO) 438 



470 



472 



544 
546 



(DFHRUP) 901 
(HIPO) 252 



verification of label record 

tape end of file program pFHTEOF) 934 
verification routine, label (HIPO) 532 
verify field, BIF (HIPO) 730 
virtual storage access method (VSAM) 3 
virtual telecommunications access method 

(VTAM) 3 
VSAM 

close processing (HIPO) 357 

GET, file management (HIPO) 310 

GETNEXT/GETPREV, FCP (HIPO) 343 

open processing (HIPO) 349 

output, FCP (HIPO) 331 

SETL, FCP (HIPO) 338 

work area 

acquisition (HIPO) 319 
disposition (HIPO) 320 
VSWA (see VSAM work area) 
VTAM (virtual telecommunications access 
method) 3 



XFSTG (see transformer storage area) 
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CICS (HIPO) 693 
input mapping 

HIPO 695 

pre-VS (HIPO) 691 
mapping (DFHM32) 812 
output mapping 

HIPO 693 

pre-VS (HIPO) 693 
print key 

copy program (HIPO) 246 

no task attached (HIPO) 249 

task attached (HIPO) 245 
TEXTBLD (BMS) (HIPO) 684 
unlock keyboard program (HIPO) 248 
uppercase translation (HIPO) 252 
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mapping control 809,812 
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812 



Index 



963 



Customer Information Control System/Virtual Storage (CICS/VS) 
Program Logic: Description (OS/VS) 

LY33-6034-0 



READER'S 
COMMENT 
FORM 



This manual is part of a library that serves as a reference source for systems analysts, programmers, and operators 
of IBM systems. This form may be used to communicate your views about this publication. They will be sent 
to the author's department for whatever review and action, if any, is deemed appropriate. Comments may be 
written in your own language; use of English is not required. 

IBM may use or distribute any of the information you supply in any way it believes appropriate without incurring 
any obligation whatever. You may, of course, continue to use the information you supply. 
Note: Copies of IBM publications are not stocked at the location to which this form is addressed. Please direct 
any requests for copies of publications, or for assistance in using your IBM system, to your IBM representative 
or to the IBM branch office serving your locality. 



Number of your latest Technical Newsletter for this publication. 



.9. 
■1.8 



03 Oi 

3£ 



CO Q. 



o 

z 



If you want an acknowledgement, give your name and address below. 
Name 



Job Title Company 



Address 



Zip 



Thank you for your cooperation. No postage stamp is necessary if mailed in the U.S.A. (Elsewhere, your IBM 
representative or IBM branch office will be happy to forward your comments.) 



LY33-6034-0 



Reader's Comment Form 



Fold and tape 



Please do not staple 



Fold and tape 



No postage 

necessary 

if mailed 

in the 

United States 



BUSINESS REPLY MAIL 

FIRST CLASS PERMIT 40 ARMONK, NEW YORK 



Postage will be paid by addressee: 

International Business Machines Corporation 

Department 812H , 

1 133 Westchester Avenue 

White Plains,. New York 10604 




o 
o 

CO 

< 

CO 

"U 

-i 
O 

CO 
0J 

3 

r~ 
o 

en 



CD 



o 

o 

eg 
< 

CO 



Fold and tape 



Please do not staple 



Fold and tape 



International Business Machines Corporation 

Data Processing Division 

1133 Westchester Avenue, White Plains, N.Y. 10604 

IBM World Trade Americas/Far East Corporation 

Town of Mount Pleasant, Route 9, North Tarrytown, N.Y., U.S.A. 10591 



c 

CO 

> 



® 



-< 
CO 
CO 

o 

CO 
4* 



IBM World Trade Europe/Middle East/Africa Corporation 
360 Hamilton Avenue, White Plains, N.Y., U.S.A. 10601 




Technical Newsletter 



This Newsletter No. LN33-6252 

Date December 1978 

Base Publication No. LY33-6028-1 



Previous Newsletters None 



Customer Information Control 
System/Virtual Storage (CICS/VS) 
Version 1 , Release 4 
Program Logic (DOS/VS) 



© IBM Corp. 1978 



This technical newsletter, a part of Version 1 , Release 4 of Customer Information , 
Control System/ Virtual Storage (CICS/VS), provides replacement pages for the subject 
publication. These replacement pages remain in effect for subsequent versions and 
releases unless specifically altered. Pages to be inserted or removed are: 

895,896 

899,900 

919,920 

923,924 

997-1008 

1008.1,1008.2(added) 

1225,1226 

1226.1,1226.2(added) 

A change to the text or to an illustration is indicated by a virtical line to the left of 
the change. 

Summary of Amendments 

The main changes introduced by this TNL are the addition of the Transient Data 
VSAM Control Interval Map, and corrections to the Function Management Header, 
both in the Data Areas section of the publication. 

Note: Please file this cover letter at the back of the publication to provide a record 
of changes. 



IBM United Kingdom Laboratories Ltd, Technical Documentation Department, Hursley 
Park, Winchester, Hampshire S021 2JN, England. 

© IBM Corp. 1978 



LICENSED MATERIAL — PROPERTY OF IBM 



TABLE OF CONTENTS 



Automatic Initiate Descriptor (AID) .. 901 

ATP CSA Extension Area 903 

Batch Control Area (BCA) 904 

Basic Mapping Support Entry Addresses (BMS) 906 

Map Description (BMS) 907 

Map Set Specifications 907 

Tab Format Map Specifications 907 

Map Specifications 908 

Field Specifications 910 

Message Control Block (BMS) 912 

MCB/LDC Repeated Entry 914 

Message Control Record (BMS) 915 

Page Control Area (BMS) 917 

CICS Modified ISMOD Save Area 918 

Common System Area (CSA) 919 

CSA Optional Features List 928 

ISC Module Addresses 932 

ELS Module Addresses 932 

EXEC Interface Module Addresses 932 

ISC Converse Entry, Invoked by DOS-DL/I 933 

DL/I Backout Table (DBO) 936 

Dispatch Control Area (DCA) 938 

Destination Control Table (DCT) 940 

Indirect Destination 942 

Remote Destination 942 

Extrapartition Entry 942 

Intrapartition Entry 942 

Automatic Transaction Initiation Extension 943 

Destination Control Table Full Index 944 

Destination Control Chain Record 945 

Data Interchange Block (DIB) 946 

Data Interchange Control Block 947 

Input Destination Latest FMH 948 

Output Destination Latest FMH ...948 

DL/I Interface Modules Address List 952 

DL/I Resource Table (ISC) 953 

Define The File pTF) 954 

Common Command Control Block 954 

Device Dependent Card Reader 955 

Line Printer 955 

Magnetic Tape 955 

Sequential Disk 956 

CPU Console 956 

Journal Control I/O Communication Area (DTF) 958 

Dump Control Record 961 

Code Definition 962 

Block Format 963 

Transaction Dump Record Format 963 

Date and Time Record Format .963 

Trace Table Header Format 964 

Formatted Dump Record Formats 964 

PSW Record Format . 964 

Register Dump Format 964 

Control Block Index Item Format ....964 

Module Index Item Format ....... 964 

Deferred Work Element (DWE) 965 

Transient Data DWE Extension 966 

Section 5. Data Areas 895 



Page of LY33-6028-1, Revised December 1978 by TNL LN33-6252 
LICENSED MATERIAL — PROPERTY OF IBM 

Temporary Storage DWE Extension • • • • 967 

Terminal Control DWE Extension 967 

Interval Control DWE Extension 967 

Dynamic Backout Record 968 

Dynamic Backout Log ........ 970 

Event Control Entry (ECE) . 971 

EXEC Interface Structure (EIS) ..... 972 

EXEC Interface Communications Area 978 

Free Area Queue Element (FAQE) 979 

File Backout Table (FBO) 980 

File Browse Work Area (FBWA) 981 

File Control Table (FCT) . . . 983 

Remote Entries Only 984 

File Control Table Directory 988 

Segment Control Tables 988 

File Control Table Segment Header C^CTSH) 988 

File Control Table Segment Definition (FCTSD) 989 

File Control Table Segment Set (FCTSS) 990 

File Control Table Indirect Access Extension 990 

File Control Table Shared Resources Control 992 

Build VSAM Pool List 994 

File Input/Output Area (FIOA) 996 

Function Management Header (FMH) .. 998 

Common Section 999 

Batch LU Extension 1000 

Type 1 FMH Format 1000 

Type 2 FMH Overlay .1001 

Type 5 FMH 1002 

CICS Private (Type X'43") FMH 1003 

Type 6 FMH .1003 

Function and Module Identifiers .1008.2 

Function Identifiers 1008.2 

Journal Control .1009 

Dynamic Backout Function Identifiers 1009 

File Control 1009 

Transient Data Function Identifiers . .1009 

Temporary Storage Function Identifiers 1010 

Interval Control Function Identifiers .... .1010 

Activity Keypoint Function Identifiers ....... 1010 

Sync Point Function Identifiers 1010 

BMS Function Identifiers 1011 

Terminal Control Function Identifiers 1011 

Module Identifiers . 1012 

File Work Area (FWA) 1013 

Interval Control Element (ICE) 1014 

ISC Message Parameters .1016 

ISC Request Control Block 1017 

Journal Control Area (JCA) . .1020 

JCA Communication Area 1020 

Write—Request Usage ••••••••• 1021 

Note-Returned Data 1022 

CICS Internal Usage 1023 

Common Root Segment 1024 

File Control Segment . .1024 

Terminal Control Segment 1025 

SPR Segment 1025 

Journal Control Open/Close Parameter List 1026 

Journal Control Records 1027 

Journal Control Record 1027 

Journal Control Label Record '"...'.. .1029 

Journal Control Table Root 1030 



896 CICS/DOS/VS Program Logic 



Page of LY33-6028-1, Revised December 1978 by TNL LN3 3-6252 

LICENSED MATERIAL PROPERTY OF IBM 

VTAM Definitions 1190 

3270 Size Specifications 1190 

System Area . . .1191 

General Information . . .1191 

Terminal Statistics ... .1192 

Operator Statistics 1192 

Terminal Control Indicators 1192 

Operation Status 1193 

Access Method Flags --• 1193 

Operation Requests 1194 

Operation Modifiers 1194 

Bisynchronous Data .1196 

Start Stop Specific Poll Area 1196 

Terminal— Dependent Extension Overlay Area 1196 

2980 Control Extension 1196 

3270 Display Data 1197 

32 70 Compatibility Area 1198 

3735 Extension Area .1198 

3740 Extension Area . . .1199 

3600 BSC Synchronous Extension Area 1199 

SNA System Area 1199 

Sense Data .1199 

VTAM System Area 1201 

Internal Error Code Area 1202 

Activate Chain Requests .1202 

Pacing and RU Count Bytes 1204 

VTAM Internal Requests .1204 

System Service Queue Flag .1205 

EMW Request and Status Flags .1206 

Async Request Flags (for use by ZSDA/ZSAX Only) 1206 

LRP Request and Status Flags 1207 

Attach Required Fields ....... 1207 

VTAM Process Status 1208 

Operation in Progress 1208 

Node Session Status 1209 

Session Characteristics 1210 

Pending Event Status 1210 

Bracket Protocol Status 1211 

Transmission Protocol Status 1212 

CLSDEST Status .1212 

Send Response to Command Request 12' 

Session Functions Definition . . ' 

VTAM 3270 Control Information 

Common Overlay Area , 

VTAM 3270 System Area . 

System Table Entry Definition . 

System Entry - VTAM Specific 

TCTTE Extension for NIB Descriptor 

Terminal Table Extension 

Transient Data Input Area (TDIA) 

Transient Data Output Area (TDOA) 

| Transient Data - VSAM Control Interval Map .« 

| Temporary Storage Table ., 

| Common Part 

Remote Only 

Remote and TSTRNMBM=1 Only 

Temporary Storage Control Record ... . 

Temporary Storage Record Prefix .... 

Temporary Storage Table User— Supplied 

Route List Entry (BMS) 

Temporary Storage TSUTEPTR or TSGID Entry 

Temporary Storage Unit Table .... .. 

Temporary Storage Common Area 

Section 5. Data Areas ~ 



LICENSED MATERIAL — PROPERTY OF IBM 

Temporary Storage Unit Table Entry . . .1238 

Temporary Storage Group Identification (TSGID) .... 1239 

Temporary Storage Input/Output Area (TSIOA) 1241 

Terminal Control Transaction Work Area 1242 

Terminal Input/Output Area (TIOA) 1245 

Trace Table (TRT) .1246 

Terminal Type Parameter (TTP,BMS) 1247 

Common Control Area .1247 

Routing Information Extension 1250 

Device-Dependence Suffix pDS) /Map Set Suffix (MSS) 1251 

Transaction List Table (XLT) .1253 

VSAM Work Area (VSWA) 1254 

File Browse Extension ■. 1256 

Weighted Retrieval Work Area (BIF) .1257 

Write Request Element (WRE) .1260 

Data Area Activity 1261 

CICS/VS Storage Areas 1266 



)0 CICS/DOS/VS Program Logic 



Page of LY3 3-6028-1, Revised December 1978 by TNL LN3 3-6252 

LICENSED MATERIAL — - PROPERTY OF IBM 



COMMON SYSTEM AREA (CSA) 



DSECT NAME: DFHCSADS 

The Common System Area (CSA) is a main storage control area provided for 
each system as a part of CICS/VS. The CSA exists within the system from 
initialization of the system until the system is closed down. The CSA 
is composed of areas of data essential to the operation of CICS/VS and 
an optional work area that may be used as temporary working storage by 
processing programs. The user temporary working storage is available to 
any task while it has control of the system (that is, for operations 
performed between requests to CICS/VS) . 
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98 
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CSAUNQID 


90 


CSAKCMI 


49 


CSASPA2 


1EB 


CSAUTA1 


1F3 


CSAKCMT 


4A 


CSASPA3 


1ED 


CSAUTA2 


1F6 


CSAKCMTA 


1CA 


CSASPNAC 


114 


CSAUTA3 


1F9 


CSAKCMTC 


ICO 


CSASSI1 


48 


CSAUTA4 


1FC 


CSAKCNAC 


EO 


CSASSI2 


49 


CSAWABA 
CSAWAL 


200 
C6 


CSAKCTTA 


ICC 






CSAWTOAD 


18C 


CSAKPACT 


CE 










CSAKPCLK 


DO 










CSAKPCNT 


1C4 










CSAKPFRQ 


CC 










CSAMAXT 


CO 










CSAMAXTC 


C2 











STORAGE LAYOUT 

Offset Length Name 
72 CSAOSRSA 



48 



49 



4A 
4C 

50 



2 
4 



CSASOSI 
CSASSI1 

CSASOSON 



CSAKCMI 

CSAECI 

CSASSI2 

CSAMXTON 

CSATQIM 

CSATCPQM 

CSAPLTPI 

CSAECICS 

CSAFNLTM 

CSASTIM 

CSAKCMT 
CSACDTA 

CSATODP 



Description 

Common system register storage 
area 

Short— on— storage indicator, or 

System signal indicator 1 
Value Function 
X'Ol 1 ' Short on storage 
condition exists 

Maximum number of tasks indicator , 

or 

CICS subset indi'cator # 

or 

System signal indicator 2 



Value 



Function 

Maximum task indicator , 

on condition 

Transaction quiesce 

indicator mask 

Terminal Control 

quiesce mask 

PLTPI phase has 

completed 

CICS Subset 

Indicator 

Final termination phase 

posting mask 

System termination 

indicator mask 



Maximum number of tasks 

Currently 

dispatched TCA task address 

Time of day. A packed integer of the 
form HHMMSSTC where HH is hours , MM is 
minutes , SS is seconds , T is tenths of 
a second , and C is a positive sign. 



X' 


'02' 


X' 


l 04 i 


X 1 


■os 1 


X' 


'10 1 


X' 


"20" 


X 1 


'40 1 


X' 


■80* 
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Offset 



9C 



9D 



9E 

9F 

AO 

A4 

A8 
AC 
BO 
B4 
B8 
BC 
CO 
C2 
C4 
C6 

C8 
CC 
CE 
DO 
D8 



Length Name 

1 CSAOPSYS 

CSADOS 
CSAVS1 
CSASVS 
CSAMVS 

1 CSAOPREL 

CSAD34 
CSA160 
CSAS17 
CSAM37 

1 CSACICS 

CSAELS 
CSAFULL 

1 CSACIREL 

CSAC14 



CSANXDCA 



4 


CSASUSFA 


4 


CSASUSBA 


4 


CSAACTFA 


4 


CSAACTBA 


4 


CSATCTCA 


4 




2 


CSAMAXT 


2 


CSAMAXTC 


2 




2 


CSAWAL 


4 


CSAOPFLA 


2 


CSAKPFRQ 


2 


CSAKPACT 


8 


CSAKPCLK 


4 


CSABTCCB 



Description 

Operating System 
Value Function 
C 1 ^ DOS/VS 
CI 1 OS/VS1 
C^" OS/SVS 
C"M a OS/MVS 

Operating System release 
Value Function 
X , 34 l DOS/VS Release 34 
X^O 1 OS/VS1 Release 6.0 
X'17 1 OS/SVS Release 1.7 
X B 37 I OS/MVS Release 3.7 

CICS/VS System 

Value Function 



C'E 1 
c i F i 



Entry Level System (ELS) 
Full CICS/VS 



CICS/VS Release 

Value Function 



X , 14 B 



Version 1, Release 4 



Zero. Dummy suspended task DCA has 
DCATRIO set to zero. 

Next available Dispatch Control 
Area (DCA) 

Lowest priority suspended task DCA 

Highest priority suspended task DCA 

Lowest priority active task DCA 

Highest priority active task DCA 

Terminal Control TCA address 

Dummy dispatch control , priority , etc 

Maximum active task value 

Maximum active tasks , accumulated 

Reserved 

Length, in bytes, of CSA + CSA work 
area + system ID 

CSA Optional Features List address 

Activity keypoint frequency counter 

Activity keypoint attach counter 

Activity keypoint, store clock 

BTAM master CCB address 
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Offset 
DC 
EO 
E4 



E8 
EC 
FO 
F4 
F8 
FC 
100 

104 
108 
IOC 

110 
114 
118 

11C 
120 

124 

128 

12C 

130 



Length 


Name 


4 




4 


CSAKCNAC 


4 


CSASCNAC 




CSASCPXM 


4 


CSAPCNAC 


4 


CSAICNAC 


4 


CSADCNAC 


4 


CSATCNAC 


4 


CSAFCNAC 


4 


CSATDNAC 


4 


CSATSNAC 


4 


CSASANAC 


4 


CSATRNAC 


4 


CSAPIPSW 


4 


CSAPINAC 


4 


CSASNNAC 


4 


CSASPNAC 


4 


CSATCRWE 


4 


CSATRTBA 


4 


CSAPCTBA 



CSAPPTBA 



CSATCTBA 



CSAFCTBA 



CSADCTBA 



Description 

Memory constant — CNST 

Task Control entry address 

Storage Control entry address 
Value Function 
X • 8 ■ Storage Control 

program-check exit 

active 

Program Control entry address 

Interval Control entry address 

Dump Control entry address 

Terminal Control entry address 

File Control entry address 

Transient Data Control entry address 

Temporary Storage Control entry 
address 

PL/I Storage Allocation module entry 

Trace Control entry address 

Program Interrupt PSW save area 
address , or 

Program Interrupt entry address 
(during System Initialization only) 

Snapshot program entry address 

Sync point program entry address 

Terminal Control program entry 
address 

Trace Table beginning address 

Program Control Table beginning 
address 

Processing Program Table beginning 
address 

Terminal Control Table beginning 
address 

File Control Table 
beginning address 

Destination Control Table beginning 
address 
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Offset 

A 
10 

1A 

1C 
20 
24 
2C 
2E 

2F 

30 
30 
32 

34 
38 
3C 

40 
48 
48 
50 



Length Name 
6 



4 
10 

1 
2 

4 

4 

8 

2 

1 



4 
2 
2 



4 
4 
4 

4 

2 

2 

4 
4 



FCIOAECI 
FCIDLOC 

FCFIOEX 
FCIOERR 

FCRSAVE 

FCFECADR 

FCNREPSV 

FCIDTYPI 

FCDUMISR 

FCFIOTYP 

FCFIOVAR 
FCFIOVRL 
FCMVDISP 

FCFIOLRA 
FCFIOFCT 
FCFBWA 

FCFIOICA 

FIOACAE 

FCFCOUNT 

FCDS01D 
FIOADBA 



Description 

Reserved 

Event control information field , or 
ID location for DAM 

ISAM exception code, or 
DAM error bytes 

Save area for record size 

Address of exclusive control data 

File Control subroutine save area 

DAM block reference indicator 

Dummy record search indicator , or 
ISAM embedded read indicator 

Type of operation (i.e., READKEY) 

Variable area beginning address, or 
Variable record length, and 
Block reference displacement in 
ID location 

Logical record address 

File Control Table entry address 

Address of File Browse Work 
Area (FBWA) 

File I/O Area (FIOA) chain address 

Control area ending address 

Count field (CCHHRKDD) 

Beginning address of data area 
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FUNCTION MANAGEMENT HEADER (FMH) 



The Function Management Header (FMH) is a data string containing SNA 
information. The FMH is optionally added to the data sent or received 
by SNA devices/ according to requirements. 

DSECT NAME: DFHFMHDS 
REGISTER: FMHBAR 

ALPHABETIC INDEX TO FIELD NAMES 



Name 

| FMHARDPN 

| FMHARPRN 

FMHATDBA 

| FMHATDPL 

| FMHATDPN 

FMHATDPV 

| FMHATDQN 

| FMHATPRN 

FMHATSEC 

| FMHCARGL 

FMHCARGN 

FMHCARGV 

| FMHCOPTS 

| FMHCRCDE 

FMHCT 

FMHDAREA 

| FMHDDBDN 

FMHDDRCD 

FMHDDSTS 

FMHDESEL 

| FMHDIOMX 

| FMHDLENG 

FMHDLOCK 

FMHDMKYL 

FMHDNTNT 

FMHDPARM 

FMHDPCBI 

FMHDPKEY 

| FMHDPSBN 

FMHDPSSA 

FMHDRCDS 

FMHDRCD1 

FMHDRCD2 

| FMHDSAMX 

FMHDESGL 

| FMHDSEGN 

FMHDSEGS 

FMHDSNH 

FMHDSNL 

FMHDSRCS 

FMHDSRC1 

FMHDSRC2 

FMHDSTCD 

FMHDTYPE 

FMHERCI 

FMHFLAGS 

FMHFLAG3 



Offset 
or 
Reference 
CD 
CD 
7 

CD 
CD 
1 

CD 
CD 
6 

CD 
2 
3 

CD 
CD 
1 
3 

CD 
6 
7 

CD 

CD 

6 

7 

3 

3 

6 

3 

CD 

3 

6 

6 

7 

CD 

8 

CD 

B 

9 

8 

6 

6 

7 

A 

2 

5 

4 

3 
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Name 

FMHFN 
FMHFORG 
FNHGROUP 
FMHHD 
FMHL 
FMHLDC 
FMHLEN 
FMHLENG 
FMHMEDIA 
| FMHQCURS 
| FMHQNAME 
FMHQQORG 
| FMHQRCLN 
| FMHQRCNT 
| FMHQSENS 
FMHQSTAT 
FMHQSTA1 
FMHQSTA2 
| FMHQTRSZ 
FMHQXFST 
| FMHSCDPN 
FMHRESV2 
| FMHSDELY 
| FMHSIREQ 
| FMHSMCCD 
| FMHSMDCD 
| FMHSMNUM 
| FMHSPPRN 
| FMHSPRN 

FMHSPSTS 

| FMHSQNME 

| FMHSRDPN 

| FMHSREQN 

FMHSRQST 

| FMHSSDPN 

FMHSSSTS 

FMHTYPE 

FMHXCMD 

FMHXFXCT 

FMHXMOD 

FMH2DAT1 

FMH2DAT2 

FMH2NURC 

FMH20PCD 

FMH2RITY 



Offset 
or 
Reference 

3 

6 

2 

1 



2 





2 

CD 

CD 

6 

CD 

CD 

CD 

7 

7 

8 

CD 

7 

CD 

6 

CD 

CD 

8 

C 

6 

CD 

CD 

6 

CD 

CD 

CD 

6 

CD 

6 

1 

2 

5 

3 

3 
2 
3 



STORAGE LAYOUT 



** COMMON SECTION ** 



Offset. Length Name 

1 FMHLENG 

FMHL3600 
FMHLBLU 



Description 

Length of FMH 

Value Function 

X^' Length of 3600 FMH 

X«06» Length of Batch LU FMH 
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Offset 
1 



Length Name 

1 FMHHD 

FMHFD 

FMHALARM 

FMHTBLU 

1 FMHLDC 

FMHBLUIN 



Description 

Header description 
Value Function 



X'40 1 
X t 20 i 
X»01" 



Message has formatted data 
Trigger alarm at device 
Batch LU is type X 1 *)! 1 



Logical device code 

Same values as in DFHSLDC, except: 

Value Function 

X t 80 l Input indicator for 
Batch LU 



Reserved 



** BATCH LU EXTENSION ** 



FMHFLAGS Batch LU flags 



FMHSUSP 
FMHBODS 
FMHEODS 



Value 
X^O 1 
X'40 1 
X^O 1 



Function 
Suspend data set 
Beginning of data set 
End of data set 



Reserved 



**TYPE 1 FMH FORMAT** 





1 



1 FMHLEN Length of complete FMH 

1 FMHTYPE Type of FMH 

Value Function 



FMHFTYP1 


X^l 1 


Type 1 FMH 


FMHFTYP2 


X'02 1 


Type 2 FMH 


FMHFTYP3 


x'03 1 


Type 3 FMH 


FMHFCONC 


X^O" 


Concatenated FMH 


FMHMEDIA 


Media selection byte 




Value 


Function 


FMHMEFCN 


X^O" 


Console 


FMHMEFEX 


X^O" 


Exchange media 


FMHMEFCD 


X^O' 


Card reader 


FMHMEFPR 


X^O 1 


Print 


FMHMEFDI 


X^O 1 


Disk 


FMHMEFPD 


X , 60 i 


PDS 


FMHMEFAN 


X^F 1 


Any 




Only : 


bits 1-3 used 




Bit 


reserved 




Bits 


4-7 = logical subaddress 


FMHFLAG3 


Flag byte 






Value 


Function 



FMHT1STK X^O 1 "your" stack indicator 
Bit 1—7 reserved 
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Offset 


Lenqth 


Name 


Description 




a 


1 


FMHDESEL 


Destination 
Value 
Bit 0-2 


select field 

Function 

only 






FMHDEFRE 


X'OO 1 


Resume data set 






FMHDEFEN 


X^O 1 


End data set 






FMHDEFBG 


X^O 8 


Begin data set 






FMHDEFBD 


X^O 1 


Begin and end data 
set 






FMHDEFSU 


X^O* 


Suspend data set 






FMHDEFAB 


X'AO 1 

Bits 3- 


Abort data set 
7 reserved 


5 


1 


FMHERCI 


Exchange record length 


6 


2 


FMHRESV2 


Reserved 




8 


1 


FMHDSNL 


Length of destination name 


9 


1 


FMHDSNH 


Actual DSN j 


name 



** TYPE 2 FMH OVERLAY ** 



3 
3 



3 
3 
4 



1 


FMH20PCD 


Type of 


operation 






Value 


Function 




FMH2FADD 


X'24 1 


ADD operation 




FMH2FREP 


x^s* 


REPLACE operation 




FMH2FQUE 


X*23* 


QUERY operation 




FMH2FNOT 


X»29 § 


NOTE operation 




FMH2NTRY 


X 8 2A« 


NOTE REPLY operation 




FMH2FRID 


X"2B fl 


RECID operation 




FMH2FERA 


X"2C B 


ERASE operation 




FMH2FVOL 


X'2E" 


VOLID operation 




FMH2NURC 


Number of records affected 




FMH2RITY 


Type of 


key for RECID type 






Value 


Function 




FMH2RIAK 


X B 00" 


Addressed direct 




FMH2RID1 


X"01 B 


Key direct KEY1 




FMH2RID2 


X 9 02« 


Key direct KEY2 




FMH2RIAP 


X"03 B 


Application definition 




FMH2RICC 


X B 04* 


Control definition 




FMH2DAT1 


Start of 


data — first type 


1 




Overlayed byte 


1 


FMH2DAT2 


Start of 


data — second type 



The following part of the DSECT describes Function Management Headers, 
and in some cases the data that can follow the header. 

The organization of the definitions given below is as follows: 

1. The standard part of a Function Management Header. These 
definitions apply whatever type, group, and function code the 
header may carry. 

2. Definitions for Function Management Headers of type 5; that is, 
attach headers. These may be identified by the prefix B FMHA 9 . 
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3. Definitions for Function Management Headers of type 43; that is, 
CICS private headers. These may be identified by the prefix 

1 FMH ' . 

4. Definitions for Function Management Headers of type 6; that is, 
scheduler model, queue model, and DL/I model headers . These may be 
identified by the prefixes B FMHS B , B FMHQ B , and D FMHD° respectively. 

Within the definitions for each FMH # definitions for fixed length 
parameters appear before the definitions for variable length parameters. 
The sequence of the parameters in this DSECT is the same as that in 
which parameters can appear in the FMH. 

Variable length parameters have a length of 1 or 2 bytes and are 
followed by a value. A variable length parameter is omitted if the 
length is 0, and need not appear if it is omitted and also the last 
parameter in the FMH. 

Thus, for variable length parameters, the offset value is generally 
context dependent and no absolute offset value can be given. (In these 
cases the offset value is replaced by CD; CD indicating "context 
dependent 1 ) . For convenience of processing by the transformation 
program, the FMH pointer is assumed to address the length byte 
immediately preceeding the value. 



Offset 


Length 


Name 





1 


FMHL 


1 


1 


FMHCT 
FMHCAT 



2 
2 

3 

4 



2 
1 
1 
1 



FMHT05 
FMHT06 
FMHT07 

FMHT43 

FMHXCMD 

FMHGROUP 

FMHFN 

FMHXMOD 

FMHXLNSZ 

FMHXFXCT 
FMHFORG 



Description 

Length of FMH 

Concatenation flag and FMH type bits 
set as follows: 

Value Function 

X B 80 B A second FMH comes after 

this one 
Bits 1—7 FMH type values set as 
follows 

Function 

IBM architected attach FMH 

IBM architected model FMH 

IBM architected system 

message FMH 

CICS architected model FMH 



Value 
X B 05 B 
X B 06 B 
X"07" 



X B 43 B 

Group and function codes 
Group code 
Function code 



Modifier 
Value 



X B 80 B 
Bits 1—7 reserved 



Function 

B B for 1 byte FMH 

Length fields 



Length of fixed length parameters in 

FMH 

Origin for the type, group, and 
function dependent fixed length 
parameters 
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Offset 



Length Name 



Description 



TYPE 5 FMH - The Function Management Header for an ATTACH 

FMHGROUP values set as follows: 
Value Function 
X a 02 l Group is ATTACH 

FMHFN values set as follows: 
X l 02 l Function is ATTACH 



6 
7 



CD 



CD 



CD 
CD 
CD 
CD 





FMHT5ATT 




FMHATTFN 


1 


FMHATSEC 


1 


FMHATDBA 




FMHAU 




FMHAV 




FMHASCSD 




FMHASCSC 




FMHARUC 




FMHARU 




FMHATDPN 




FMHATDPL 




FMHARLEN 


4 


FMHATDPV 




FMHARMAX 



Security algorithm value 
Data algorithm value 



Value 


X' 


■00 1 


X' 


i 01 i 


X" 


02 ■ 


X 1 


l 03 B 


X" 


04" 


X" 


'05 1 



scs 



Function 
Undefined 
Variable length 
Document subset of 
Card subset of SCS 
Chain of request units 
Request unit 



Process to be initiated 

Process name length 
Value Function 

1 Length of an architected 
process name 

Process name up to four characters 

Value Function 

X"3F' Maximum possible value 
for an architected 
process name (defined as 
non-graphic values) 



FMHATPRN Resource for initiated process 

FMHARDPN Return process name 

FMHARPRN Resource for return process 

FMHATDQN Queue to be associated with initiated 
process 



CICS PRIVATE p?YPE X 1 ^') FMH - The Function Management Header for a 
CICS request or reply. Since this is a private FMH, the direction of 
transmission determines whether it represents a request or a reply. 



CD 



FMHCOPTS For outbound requests — the existence 
and TCA bits from ARGO 



CD 



FMHCRCDE For inbound replies — the error codes 
from EIBRCODES 



The data that follows this FMH represents the argument (s) to an EIP 
call that has to be serviced remotely. 

Not all arguments will be sent; furthermore the value that is sent 
will depend on the CICS function and on the direction of transmission. 
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Offset 



Length Name 



Description 



CD 
2 
3 



FMHCARGL Length of parameter; includes length 
and ARGNO fields 

1 FMHCARGN Argument ,number; ARG3 is represented 

by value X'06 1 

256 FMHCARGV The argument itself, it may be, for 

example, a key 



TYPE 6 FMH — The Function Management Header for a SCHEDULE request 

6 1 FMHSRQST Details of sched request. 

Bits set as follows: 
Value Function 
FMHSTIME X^O' Time delay specified 
Bits 1-7 reserved 

CD FMHSSDPN Name of process that is to be initiated 

CD FMHSPRN Name of primary resource for process 

being initiated 

CD FMHSRDPN Suggested name for return process 

CD FMHSRPRN Suggested name for primary resource 

for return process 

CD FMHSQNME Name of queue associated with process 

being initiated 

CD FMHSREQN Name of request instance associated 

with process 

CD FMHSDELY The interval or time initiation delay 

field 

The Function Management Header for a SCHEDULE STATUS Reply 

6 1 FMHSSSTS 



CD 



Status of schedule request 
Bits set as follows: 
Bits 0-3 reserved 
Value Function 
FMHSIDPN X'08 1 Invalid process name 
FMHSIPRN X'QH* Invalid resource name 

FMHSERR X , 02 l Unable to schedule due to 

processing error 
FMHSINV X^l 1 Invalid request 

FMHSIREQ Request name generated by receiving 
system 



The Function Management Header for a PURGREQ request 
CD FMHSREQN 

CD FMHSCDPN Name of process that is to be cancelled 
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Offset 



Length Name 



Description 



The Function Management Header for a PURGSTAT reply 

6 1 FMHSPSTS Status of purge request 

Bits set as follows: 
Bits 0—6 reserved 
Value Function 
FMHSNFD X'Ol 1 Named request not found 

The Function Management Header for a QPUT request 

6 1 FMHQQORG Type of queue 

Value Function 

Queue type not specified 
Queue type is sequential 
Queue type is linear 
Queue type is hierarchical 



CD 



FMHQNSPE 
FMHQSEQL 
FMHQLINE 
FMHQHIER 

FMHQNAME 


X^O 1 
X^Ol 1 
X»02 i 
X^ 1 

The quel 



The queue name is from 1 to 8 
characters 



The Function Management Header for a QGET request 



6 
CD 
CD 
CD 



The Function Management Header for 

6 1 
CD 

The Function Management Header for 

7 1 FMHQXFST 

FMHQDISP 
FMHQEMSG 



FMHQQORG 

FMHQNAME 

FMHQCURS The cursor is held as two byte binary 

FMHQTRSZ The maximum record length is held as 
two byte binary 

a QPURGE request 

FMHQQORG 

FMHQNAME 

a QXFR reply 



CD 
CD 



FMHQRCNT 



CD FMHQRCLN 

The Function Management Header for 

6 1 

7 2 FMHQSTAT 



Status byte 

Bits set as follows: 

Bits 0-4 reserved 

Value Function 

X'04 1 Disposition of queue 

Bit 6 reserved 

X'01 1 End of message 

FMHQCURS 

Number of occurrences of records at 
lowest level of cursor 

Record length before truncation 

a Q STATUS reply 

FMHQQORG 

Status of request 
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Offset 
7 



8 
CD 
CD 

CD 



Lencrth 


Name 


Description 


1 


PMHQSTA1 


First statu 
Value 




FMHQINVL 


X^O 1 




PMHQINVN 


X»40 f 




FMHQNAUT 


X a 20 § 




FMHQNAVL 


X'lO 1 




FMHQSPAC 


x^s 1 




FMHQINVC 


X"04» 




FMHQERRO 


x > 02 i 




FMHQEMPT 


X^l 1 


1 


FMHQSTA2 


Reserved 
FMHQCURS 




FMHQSENS 


Sense data 



Function 

Invalid length for request 

Invalid queue name 

Unauthorized request 

Queue name not available 

No space left on queue 

Invalid cursor 

I/O error when queue 

accessed 

Queue is empty 



data) 



FMHQNAME 

The Function Management Header for a QREPL request 
6 1 FMHQQORG 

CD FMHQNAME 

CD FMHQCURS 

The Function Management Header for a QGETN request 
6 1 FMHQQORG 

CD FMHQNAME 

CD FMHQTRSZ 

The Function Management Header for a DL/I SCHEDULE request 

CD FMHDPSBN The PSB name is from 1 to 8 characters 

The Function Management Header for a DL/I schedule reply 



6 
6 



2 


FMHDSRCS 


DL/I rel 


1 


FMHDSRC1 


DL/I rei 

follows 

Value 




FMHDNOPN 


X^O 1 




FMHDNFND 


X'40« 




FMHDNACT 


X D 20" 




FMHDFAIL 


X'10 1 




FMHDNAUT 


X'08 i 




FMHDCONF 


X"04 B 



FMHDSRC2 



DL/I return code with bits set as 

Function 

Data base not open 
PSB not found 
DL/I not active 
PSB initialization failed 
Unauthorized access to PSB 
Intent schedule conflict 
Bit 6 and Bit 7 reserved 

Reserved 



The data following this and other FMHs for DL/I, only one I/O area or 
key can follow a FMH; however, several SSAs or PCBs can follow a FMH. 
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Offset 



Length Name 



Description 



CD 



3 
7 

B 
CD 
CD 
CD 



FMHDLENG Length of parameter; includes length 
and type fields 

1 FMHDTYPE Parameter type — values set as follows 

Value Function 
FMHDI0A X^l 1 Flag set to show that 

parameter is an I/O area 
FMHDSSA X , 02 l Flag set to show that 

parameter is a SSA 
FMHDPCB X^* Flag set to show that 

parameter is a PCB 
FMHDKEY X l 04 i Flag set to show that 

parameter is a key 

256 FMHDPARM The parameter itself; it may be for 

example , a PCB 

256 FMHDAREA The I/O area - maximum length rather 

than actual length 

256 FMHDPSSA The segment search argument — maximum 

length rather than actual length 

Processing intent for this data base 

Maximum key length for this PCB 
(binary) 

Number of sensitive segments (binary) 

The DBDNAME is from 1 to 8 characters 

The maximum possible size for a SAA 

The maximum possible size for an I/O 
area 

256 FMHDPKEY The fully concatenated key for this 

operation 

a DL/I REPL request 

The index for this PCB 

a DL/I ISRT request 



4 FMHDNTNT 
4 FMHDMKYL 

4 FMHDSEGS 
FMHDDBDN 
FMHDSAMX 
FMHDIOMX 



The Function Management Header for 

6 2 FMHDPCBI 

The Function Management Header for 



6 3 FMHDPCBI 

The Function Management Header for a DL/I DLET request 

6 3 FMHDPCBI 

The Function Managament Header for a DL/I GU request 

6 3 FMHDPCBI 
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Offset Length Name Description 

The Function Managament Header for a DL/I GHU request 

6 3 FMHDPCBI 

The Function Management Header for a DL/I GN request 

6 3 FMHDPCBI 

The Function Management Header for a DL/I GNH request 

6 3 FMHDPCBI 

The Function Management Header for a DL/I GNP request 

6 3 FMHDPCBI 

The Function Management Header for a DL/I GHNP request 

6 3 FMHDPCBI 

The Function Management Header for a DL/I DLIDBXFR reply 

6 2 FMHDRCDS DL/I return codes 

6 1 FMHDRCD1 DL/I return code with bits set as 

follows 

Value function 

X , 80 l Data base not open 

Bits 1—4 reserved 

X*QH 9 Invalid PCB index 

Bits 6 and 7 reserved 

7 1 FMHDRCD2 Reserved 

8 2 FMHDSEGL Segment level (binary) 

A 2 FMHDSTCD Status codes 

CD FMHDSEGN The segment name is from 1 to 8 

characters 

The Function Management Header for a DL/I DLIDBSTS reply 

6 2 FMHDRCDS 

6 1 FMHDRCD1 

7 1 FMHDRCD2 

8 2 FMHDSEGL 
A 2 FMHDSTCD 

CD FMHDSEGN 
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FMHDRCDS 


1 


FMHDRCD1 




FMHDNOPN 




FMHDNVRQ 


1 


FMHDRCD2 


2 


FMHDSEGL 


2 


FMHDSTCD 




FMHDSEGN 
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Offset Length Name Description 

The Function Management Header for a DL/I DLIDEQ request 

6 2 FMHDLOCK LOCK class assigned to segments by 

prior retrieval or insertion request 

The Function Management Header for a DL/I DLIDEQR reply 

6 1 FMHDDRCD Status of request with bits set as 

follows 

Bits 0—7 reserved 

7 2 FMHDDSTS Status code 
TYPE 7 PMH 

6 2 FMHSMNUM Message number 

8 4 FMHSMCCD CICS abend code 
C 5 FMHSMDCD DL/I abend code 
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FUNCTION AND MODULE IDENTIFIERS 



DSECT NAME: DFHFMIDS 

This control block is a collection of symbolic labels used in connection 
with the following DSECTs: DFHDWEDS, DFHJCADS # and DFHJCR. It does not 
overlay an area of storage , as does a typical DSECT , but rather provides 
symbolic labels equated to constants , for reference in Assembler- 
language instructions , such as MVI and CLI« The symbolic labels are 
listed in groups as function identifiers and module identifiers below, 
first in alphabetic order, then in a logical order according to their 
use . 



FUNCTION IDENTIFIERS 



ALPHABETIC REFERENCE TO FUNCTION IDENTIFIERS 
Name Value 



FIDAJRN 


X'20" 


FIDAKE 


X^l 1 


FIDAKS 


X»80 f 


FIDALOG 


X»40 § 


FIDBEOSP 


x'F6' 


FIDBEOTK 


X'F^ 1 


FIDBMPM 


X B F1 B 


FIDDBCHN 


X^l 1 


FIDDBOFL 


x'so 1 


FIDFCRO 


x'80 1 


FIDFCRU 


X*81* 


FIDFCWA 


x'83 1 


FIDFCWU 


X , 82 i 


FIDICDB 


x'os 1 


FIDICPUT 


x^o* 


FIDJCLAB 


x^so 1 


FIDJCLOK 


X^l* 


FIDKPDCT 


X*83* 


FIDKPTCA 


X , 82' 


FIDKPTCR 


X'8H 9 


FIDKPTST 


x^s* 


FIDLEOTK 


X , F2 i 


FIDLSOSP 


X^l" 


FIDPEOTK 


X^ 1 


FIDSPR 


X g F5» 


FIDTCAJ 


X^O" 


FIDTCAL 


X»40» 


FIDTCDB 


x'os" 


FIDTCDIP 


X'04 1 


FIDTCDWL 


X'Ol 1 


FIDTCEIB 


X^A* 


FIDTCFMH 


X^ 1 


FIDTCIM 


X^l 1 


FIDTCIMF 


X^* 


FIDTCML 


X^O 1 


FIDTCOM 


X"82" 


FIDTCOMN 


x^ 1 


FIDTCON 


X 8 87* 


FIDTCONN 


X^ 8 
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TRANSIENT DATA OUTPUT AREA fTDOA) 



DSECT NAME: 
REGISTER: 



DFHTDOA 
TDOABAR 



The TDOA is used to describe an output area, acquired via a Storage 
Control request, from which intrapartition transient data is moved by a 
PUT macro instruction. 



ALPHABETIC INDEX TO FIELD NAMES 



Name 

TDOADBA 
TDOASAL 
TDOASCA 
TDOAVRL 



Offset 
or 
Reference 

C 
2 

8 



STORAGE LAYOUT 

Offset Length Name 
2 



2 


2 


TDOASAL 


4 


a 


TDOASCA 


8 


2 


TDOAVRL 


A 


2 




C 


Var 


TDOADBA 



Description 

Storage accounting information; 
storage class=Transient Data (see 
"Storage Accounting Area (SAA) ") 

Storage accounting area length 

Transaction storage chain address 

Variable record length 

Reserved 

Beginning of data area 
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| TRANSIENT DATA - VSAM CONTROL INTERVAL MAP 



I 



| DSECT NAME: DFHTDCI 



| The TDCI is a map of the VSAM control interval as used by VSAM transient 
| data. 



| ALPHABETIC INDEX TO FIELD NAMES 



| Name 

| TDCF 
| TDCHBC 
| TDCHDI 
| TDCHFC 
I TDCIDF 
| TDDATED 
| TDID 
| TDLENREC 
| TDLUS 
| TDNUMCI 
| TDNUMREC 
| TDOUS 
| TDRDF 
I TDRESRV 



Offset 
or 
Reference 


4 

8 

C 

1 
2 
A 
1 


10 



| STORAGE LAYOUT 

I Offset Length Name 

| Map of first control interval 

| 10 TDID 

I A 
I 



2 


TDNUMCI 


4 


TDDATED 


12 


TDRESRV 



I c 

I 10 

I 

I Map of chain records at start of subsequent control intervals 



Description 



ID to be checked when restarting 

Number of control intervals used to 
size control interval bit map 

Date information copied from CSAJYDP 

Reserved (not used) 



Offset 

4 
8 



Length Name 

4 TDCHDI 

4 TDCHBC 

4 TDCHFC 



Description 

Chain record destination ID 
Chain record backward chain 
Chain record forward chain 
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DATA RECORDS AND FREE SPACE 



These fields are positioned at negative offsets relative to the end of 
the control interval 



RECORD DEFINITION FIELD 



Offset 





1 

1 



Lenqth 


Name 


3 


TDRDF 


1 


TDCF 




TDRSINGL 




TDRLPAIR 




TDLNUM 


2 


TDNUMREC 


2 


TDLENREC 



Description 

Record definition field 

Control field (flag byte) 
Value Function 
X°00 a Right record definition 

field (RDF) gives length 

of single record. No left 

RDF 
X°40 3 Right RDF says paired left 

RDF exists 
X°08° Left RDF gives number of 

records in TDNUMREC 

Number of records of same length 
Length of record (s) 



CONTROL INTERVAL DEFINITION FIELD 

Offset Lenqth Name Description 

4 TDCIDF Control interval definition field 

2 TDOUS Offset of unused L.pace 

2 2 TDLUS Length of unused space 
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TEMPORARY STORAGE TABLE 



DSECT NAME: DFHTSTDS 

The Temporary Storage Table (TST) is a list of generic mnemonics used 
(1) to identify temporary storage DATAIDs for which CICS/VS is to 
provide recoverability in the event of abnormal termination of CICS/VS 
and subsequent emergency restart (2) to identify DATAIDs on a remote 
system. Each entry in the table specifies the leading characters of 
user— defined DATAIDs for which CICS/VS will provide protection 
(enqueuing) during a logical unit of work by an applciation program and 
automatic logging of the status of the data at task termintion (or sync 
point) . 



ALPHABETIC INDEX TO FIELD NAMES 





Offset 




or 


Name 


Reference 


TSTFL 


2 


TSTLL 





TSTPL 


3 


TSTPRFX 


4 


TSTRPFX 


F 


TSTSYS 


C 



STORAGE LAYOUT 



COMMON PART 



Offset 

2 



3 

4 
4 
8 



Length Name 

2 TSTLL 

1 TSTFL 

TSTRCVBM 
TSTRMTBM 
TSTRNMBM 
TSTLSTBM 

1 TSTPL 

TSTPRFX 

4 

4 



Description 

Length of entry 

Flag describing entry 
Value Function 
X ■ 8 • Recoverable 
X^O 1 Remote 
X , 20 B Remote prefix given 
X , 01 t =1 for last entry 

Prefix length -1 

Prefix 

First four bytes 

Last four — included only when prefix 
greater than four bytes, or remote 
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Figure 3—53. Transaction Backout Program Interfaces 
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TRANSIENT DATA MANAGEMENT (DFHTDP) 

The Transient Data Control program pFHTDP) communicates directly with 
three other functions of the CICS/VS System Management component. These 
are Task Management , Storage Management , and Program Management (the 
Task Control program. Storage Control program, and Program Control 
program, respectively) . The application program communicates with 
DFHTDP through use of DFHTD macro instructions. 

The notes below refer to Figure 3—54. 

Notes; 



Intrapartition 

1. An application program request for Transient Data services causes a 
request code to be set in TCATDTR, signifying GET, PUT, PURGE, 
FEOV, LOCATE, or CHECK. The destination identification is placed 
in TCATDDI. Control is passed to the Transient Data Control 
program. 

2. Transient Data Control obtains intrapartition disk map information 
from the main storage area addressed through the Destination 
Control Table (DCT) . 

3. The field TDDCTDID is used to search the DCT for the destination 
requested. The Data Control Block (DCB) in the DCT is checked for 
OPEN/CLOSE when the reference is to an extrapartition destination. 

4. Task Control is used to wait for access to the DCT and to attach an 
automatically initiated task not associated with a terminal. If a 
task is associated with a terminal, em Automatic Initiate 
Descriptor (AID) is scheduled. 

5. Transient Data Control communicates with Storage Control to obtain 
storage for the DECB for an intrapartition data set and for 
intrapartition I/O areas. 

6. Transient Data passes control and the address of the DECB to the 
read/write routines of the access methods to perform data set I/O. 

7. The DECB status bytes are tested for event completion and I/O 
errors. 

8. If an invalid request for Transient Data services is received, 
control is passed to Program Control to terminate the task issuing 
the request. 

9. If restart/recovery is supported within the system, a Deferred Work 
Element pwE) is created for each logically recoverable destination 
when it is accessed. At the end of a logical unit of work (LUW) , 
defined by either an application program DFHSP TYPE=USER request or 
by Task Control at task termination, the CICS/VS Sync Point program 
gives control to the DWE processor of the Transient Data Control 
program. This DWE processor performs the logical update of the DCT 
entry and/or the track (or control interval— VSAM) bit map. 
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Temporary Storage Control Communication Area 1260 

Data Interchange Communication Area 1262 

Trace Control Communication Area 1264 

Transaction Work Area 1266 

Built— In Functions Control Communications Area 1266 

Bit Manipulation Function Field Definition 1267 

DEEDIT Function Field Definition 1268 

VERIFY Function Field Definition 1269 

Phonetic Conversion Function Field Definition 1269 

Table Search Function Field Definition 1270 

INFORMAT Function Field Definition 1271 

Weighted Retrieval Function Field Definition 

TYPE=WTRETST 1272 

Weighted Retrieval Function Field Definition 

TYPE=WTRTPARM „ . . 1273 

Weighted Retrieval Fucntion Field Definition 

TYPE=WTRTETGET 1274 

Terminal Control Table (TCT) 1276 

Terminal Control Table Prefix (TCTFX) 1276 

Receive-Any Control Element (RACE) 1283 

Terminal Control Table Line Entry (TCTLE) 1285 

Binary Synchronous Communication 1286 

7770 Audio Response Unit 1286 

Terminal Control Table Line Entry Extension 1287 

Bisynchronous Data 1290 

Basic Sequential Access Method (BSAM) Extension 1291 

Graphics Access Method (GAM) Extension 1291 

Basic Telecommunications Access Method (BTAM) Extension . . . 1291 

Telecommunications Access Method (TCAM) Extension 1292 

Terminal Abnormal Condition Line Entry (TACLE) 1293 

Terminal Control Table Terminal Entry (TCTTE) 1295 

TCTTE Section Directory 1295 

Control Information 1299 

Terminal Data Control ...... 1299 

Terminal Identification 1299 

Operation Class Codes 1300 

Terminal Status Codes 1300 

Operation Data . . 1301 

Operator Data 1302 

VTAM FMH Build Area 1302 

Data Stream Type 1302 

Terminal-Dependent Overlay Area 1303 

3270 Definitions 1303 

2980 Definitions 1303 

3600 BSC Definitions . 1303 

VTAM Definitions 1304 

3270 Size Specifications 1305 

System Area 1305 

General Information 1305 

Terminal Statistics 1306 

Operator Statistics 1306 

Terminal Control Indicators ... 1307 

Operation Status ....... 1307 

Access Method Flags 1308 

Operation Requests 1308 

Operation Modifiers 1309 

Bisynchronous Data 1310 

Start Stop Specific Poll Area 1311 

Terminal— Dependent Extension Overlay Area 1311 

2980 Control Extension 1311 

3270 Display Data 1311 

3270 Compatibility Area 1312 

3735 Extension Area 1313 

3740 Extension Area 1313 

Section 5s Data Areas 965 
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3600 BSc Synchronous Extension Area 1314 

SNA System Area 1314 

Sense Data 1314 

VTAM System Area 1316 

Internal Error Code Area 1317 

Activate Chain Requests 1317 

Pacing and RU Count Bytes 1318 

VTAM Internal Requests 1319 

System Service Queue Flag 1320 

EMW Request and Status Flags 1321 

Async Request Flags (for use by ZSDA/ZSAX Only) ...... 1321 

LRP Request and Status Flags 1321 

Attach Required Fields 1322 

VTAM Process Status 1323 

Operation in Progress . . 1323 

Node Session Status 1324 

Session Characteristics . 1325 

Pending Event Status 1325 

Bracket Protocol Status ..... 1326 

Transmission Protocol Status 1326 

CLSDEST Status ..... 1327 

Send Response to Command Request 1327 

Session Functions Definition 1327 

VTAM 3270 Control Information 1329 

Common Overlay Area 1330 

VTAM 3270 System Area 1331 

System Table Entry Definition 1332 

System Entry — VTAM Specific 1332 

System Entry - M-M Specific 1333 

TCP Module Address List 1334 

Standard Names for Modules (BTAM Only) 1335 

Standard Names for Modules (VTAM Only) 1336 

Reserved Extra Space for BTAM Only 1336 

TCTTE Extension for NIB Descriptor 1339 

Terminal Table Extension 1341 

Transient Data Input Area (TDIA) 1345 

Transient Data Output Area (TDOA) 1346 

| Transient Data - VSAM Control Interval Map. 1346.1 

Temporary Storage Common Area 1347 

Temporary Storage Control Record 1350 

Temporary Storage Record Prefix 1351 

Temporary Storage Table 1352 

Temporary Storage Unit Table 1353 

Temporary Storage Unit Table Entry 1354 

Terminal Control Transaction Work Area 1356 

Terminal Input/Output Area (TIOA) 1359 

Trace Table (TRT) 1360 

Temporary Storage Group Identification (TSGID) 1361 

Temporary Storage Input/Output Area (TSIOA) 1363 

Terminal Type Parameter (TTP,BMS) 1364 

Common Control Area ............. 1364 

Routing Information Extension 1367 

Device-Dependent Suffix (DDS) /Map Set Suffix (MSS) 1368 

VSAM Work Area (VSWA) . 1370 

File Browse Extension 1372 

Write Request Element (WRE) 1373 

Weighted Retrieval Work Area . 1374 

Transaction List Table (XLT) 1377 

Daua nx6a nC uiVi v,y .............. .......... 1378 

CICS/VS Storage Areas . 1383 
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Offset 

98 

9C 



Lencrth Name 



9D 



9E 

9P 

AO 

A f 

A8 
AC 
BO 
B4 
B8 
BC 
CO 
C2 
C4 
C6 

C8 
CC 
CE 



CSAPAMA 



CSAOPSYS 



CSAC14 



CSANXDCA 



4 


CSASUSFA 


4 


CSASUSBA 


4 


CSAACTFA 


4 


CSAACTBA 


4 


CSATCTCA 


4 




2 


CSAMAXT 


2 


CSAMAXTC 


2 




2 


CSAWAL 


4 


CSAOPFLA 


2 


CSAKPFRQ 


2 


CSAKPACT 



Description 



Address of Page Allocation Map 
(PAM) 

Operating system 
Value Function 



CSADOS 


C°D° 


DOS/VS 


CSAVS1 


C"l° 


OS/VS1 


CSASVS 


C B S a 


OS/SVS 


CSAMVS 


C B M B 


OS/MVS 


CSAOPREL 


Operating system release 




Value 


Function 


CSAD34 


X B 34 B 


DOS/VS Release 34 


CSA160 


X B 60 B 


OS/VS1 Release 6.0 


CSAS17 


X a 17 B 


OS/SVS Release 1.7 


CSAM37 


X B 37 B 


OS/MVS Release 3.7 


CSACICS 


CICS/VS 


system 




Value 


Function 


CSAELS 


C B E B 


Entry Level System 


CSAFULL 


c t F n 


Full CICS/VS 


CSACIREL 


CICS/VS 


Release 




Value 


Function 



X e 14° 



Version 1, Release 4 



Zero. Dummy suspended task DCA has 
DCATRTO set to 0. 

Next available Dispatch Control 
Area (DCA) 

Lowest priority suspended task DCA 

Highest priority suspended task DCA 

Lowest priority active task DCA 

Highest priority active task DCA 

Terminal Control TCA address 

Dummy dispatch, control, priority, etc 

Maximum active task value 

Maximum active task accumulate 

Reserved 

Length of (CSA + workarea + 
system ID) 

CSA Optional Features List address 

Activity keypoint frequency count 

Activity keypoint attach counter 
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Offset 

DO 
D8 
DC 
EO 
E4 



58 
EC 
FO 
F4 
F8 
FC 
100 

104 
108 
IOC 

110 
114 
118 

11C 
120 

124 

128 

12C 



Lenqth 


Name 


8 


CSAKPCLK 


4 




4 




4 


CSAKCNAC 


4 


CSASCNAC 




CSASCPXM 


4 


CSAPCNAC 


4 


CSAICNAC 


4 


CSADCNAC 


4 


CSATCNAC 


4 


CSAFCNAC 


4 


CSATDNAC 


4 


CSATSNAC 


4 


CSASANAC 


4 


CSATRNAC 


4 


CSAPII>SW 


4 


CSAPINAC 


4 


CSASNNAC 


4 


CSASPNAC 


4 


CSATCRWE 


4 


CSATRTBA 


4 


CSAPCTBA 



CSAPPTBA 



CSATCTBA 



CSAFCTBA 



Description 

Activity keypoint store clock 

Reserved 

Memory constant 

Task Control entry address 

Storage Control entry address 
Value Function 
X^O 1 Storage Control 

program-check exit 

active 

Program Control entry address 

Interval Control entry address 

Dump Control entry address 

Terminal Control entry address 

File Control entry address 

Transient Data Control entry address 

Temporary Storage Control entry 
address 

PL/I Storage Allocation module entry 

Trace Control entry address 

Program Interrupt PSW save area 
address , or 

Program Interrupt entry address (during 
System Initialization only) 

Snapshot program entry address 

Sync Point program entry address 

Terminal Control Program Read/Write 
request program entry 

Trace Table beginning address 

Program Control Table beginning 
address 

Processing Program Table beginning 
address 

Terminal Control Table Prefix 
address 

File Control Table 
beginning address 
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Offset 




Offset 




or 




or 


Name 


Reference 


Name 


Reference 


| SITFDPSF 


F2 


SITPLTPI 


AC 


SITFLDSP 


60 


SITPLTSD 


AE 


SITFLDST 


64 


SITPL1 


6C 


SITHPO 


72 






SITICPOP 


121 


SITPPTOP 


HE 


SITICPSF 


CA 


SITPPTSF 


BO 


SITICVAL 


28 


SITPRINT 


6A 


SITIIPSF 


E8 


SITRICVL 


2C 


SITIMODA 


18 


SITRLRSF 


E0 


SITIND 


11A 






SITIOCP 


34 


SITSCPSF 


C4 


SITIRCS 


71 






SITISCSF 


FA 


SITSCSZ 


3C 


SITISPSF 


100 






SITJCPSF 


DA 


SITSICVL 


30 


SITJCTSF 


A6 







STORAGE LAYOUT 

Offset Length Name Description 
8 DFHSITBA Table entry point 

OPERATING SYSTEM AND CICS/VS LEVELS 



SITOPSYS Operating system 

Value Function 



SITDOS 


C^' 


DOS/VS 




SITVS1 


CI" 


OS/VS1 




SITSVS 


c*s % 


OS/SVS 




SITMVS 


C°M fl 


OS/MVS 




SITOPREL 


Operating system release 






Value 


Function 




SITD34 


X , 34" 


DOS/VS Release 


34 


SIT160 


X , 60» 


OS/VS1 Release 


6.0 


SITS17 


x « 17i 


OS/SVS Release 


1.7 


SITM37 


X , 37 > 


OS/MVS Release 


3.7 


SITCICS 


CICS/VS 


system 






Value 


Function 




SITFULL 


C'F 8 


Full CICS/VS 




SITCIREL 


CICS/VS 


release 






Value 


Function 





SITC14 
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Offset 



Length Name 



Description 



LENGTHS OF SIT AND CWA 



4 
6 



2 SITLEN Length of SIT 

2 SITCWA Required CWA size 



ADDRESS CONSTANTS 



8 

C 

10 

14 

18 
1C 
20 



4 


DFHDLL 


4 


DFHAPT 


4 


SITCOMA 


4 


SITOVRPM 


4 


SITIMODA 


4 


SITSRPAE 


8 





Address of DL/I link list 

Address of ATP CSA extension 

Reserved 

Address of override parameters 

Initialization module suffix list 

Reserved 

Reserved 



TIME CONTROL VALUES 



28 
2C 
30 
32 
34 
36 



4 


SITICVAL 


4 


SITRICVL 


2 


SITSICVL 


2 


SITTSDTI 


2 


SITIOCP 


2 





System time interval 
Runaway task time interval 
Stall time interval 
Terminal scan delay 
Wait count percentage 
Reserved 



MISCELLANEOUS SIZES AND COUNTERS 



38 
3C 
40 
44 
48 



4 


SITOSCOR 


4 


SITSCSZ 


4 


SITPGSIZ 


4 


SITTRTSZ 


2 


SITTSMSG 



Address space reserved for OS 

Storage cushion size 

Pagesize 

Trace table number of entries 

Number of messages per ID or group 
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DATA RECORDS AND FREE SPACE 



These fields are positioned at. negative offsets relative to the end of 
the control interval 



RECORD DEFINITION FIELD 



Offset 





1 
1 



Lenqth 


Name 


3 


TDRDF 


1 


TDCF 




TDRSINGL 




TDRLPAIR 




TDLNUM 


2 


TDNUMREC 


2 


TDLENREC 



Description 

Record definition field 

Control field (flag byte) 
Value Function 
X'OO" Right record definition 

field (RDF) gives length 

of single record. No left 

RDF 
X B 40" Right RDF says paired left 

RDF exists 
X'OS" Left RDF gives number of 

records in TDNUMREC 

Number of records of same length 
Length of record (s) 



CONTROL INTERVAL DEFINITION FIELD 

Offset Length Name Description 

4 TDCIDF Control interval definition field 

2 TD0US Offset of unused space 

2 2 TDLUS Length of unused space 
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TRANSIENT DATA - VSAM CONTROL INTERVAL MAP 



DSECT NAME: DFHTDCI 



The TDCI is a map of the VSAM control interval as used by VSAM transient 
data. 



ALPHABETIC INDEX TO FIELD NAMES 





Offset 




or 


Name 


Reference 


TDCF 





TDCHBC 


4 


TDCHDI 





TDCHFC 


8 


TDCIDF 





TDDATED 


C 


TDID 





TDLENREC 


1 


TDLUS 


2 


TDNUMCI 


A 


TDNUMREC 


1 


TDOUS 





TDRDF 





TDRESRV 


10 



STORAGE LAYOUT 

Offset Length Name 
Map of first control interval 
10 TDID 

A 2 



C 
10 



4 
12 



TDNUMCI 

TDDATED 
TDRESRV 



Description 



ID to be checked when restarting 

Number of control intervals used to 
size control interval bit map 

Date information copied from CSAJYDP 

Reserved (not used) 



Map of chain records at start of subsequent control intervals 



Offset 


Lenqth 


Name 





4 


TDCHDI 


4 


4 


TDCHBC 


8 


4 


TDCHFC 



Description 

Chain record destination ID 
Chain record backward chain 
Chain record forward chain 
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